VisualBasic — Говнокод.ру

VisualBasic / Говнокод #4639

−101

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45

Dim lcIsCheck As Boolean = False

        Dim lcImages As DS_ExportFIO.sdImageRow = Me.DS_ExportFIO1.sdImage.Rows(0)

        If lcImages!Photo Is DBNull.Value Then

            lcIsCheck = IIf(lcIsCheck, lcIsCheck, False)

        Else

            lcIsCheck = True

        End If

        If lcImages!PhotoIshodn Is DBNull.Value Then

            lcIsCheck = IIf(lcIsCheck, lcIsCheck, False)

        Else

            lcIsCheck = True

        End If

        If lcImages!Sign Is DBNull.Value Then

            lcIsCheck = IIf(lcIsCheck, lcIsCheck, False)

        Else

            lcIsCheck = True

        End If

        If lcImages!SignIshod Is DBNull.Value Then

            lcIsCheck = IIf(lcIsCheck, lcIsCheck, False)

        Else

            lcIsCheck = True

        End If

        Return lcIsCheck

хм... даже не знаю, как окоментить =)

HellMaster_HaiL, 15 Ноября 2010

Комментарии (3)

VisualBasic / Говнокод #4493

−83

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16

Public Class Form1...

Dim isClicked as Integer = false

End class

if isClicked = true then
me.left = mouseposition.x - Me.width / 2
me.top = mouseposition.y - me.height / 2
end if

if isClicked = false Then
isClicked = true
else
isClicked = false
end if...

Код не мой... Но integer в виде false очень улыбнул ))) да собственно говоря и не только он )))

psyhco1219, 31 Октября 2010

Комментарии (3)

VisualBasic / Говнокод #4474

−84

01
02
03
04
05
06
07
08
09
10
11
12
13

If Not CheckX Then Goto 1
    For i = 0 to USecX
	Goto 2
1:
    For i2 = 0 to USecY
2:
  	...
	If CheckX Then Goto 3
    Next
    If Not CheckX then Goto 4
3:
    Next
4:

Как-то потребовалось выполнить немалый участок кода, но в двух разных случаях нужно было использовать два разных фора. В отдельную процедуру было очень неудобно выносить (пришлось бы передавать слишком много переменных), так что пришлось сделать этот... свичджампинг форов :)

DragDen, 28 Октября 2010

Комментарии (11)

VisualBasic / Говнокод #4372

−99

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59

10 DEFM 13:VAC
20 PRINT " Генератор."
30 FOR N=0 TO 6:Z$(N)="00000":NEXT N
40 CSR 0,:FOR N=6 TO 0 STEP -1:FOR M=1 TO 5
50 IF GETC(Z$(N),M)="1";DRAW M-1,N
60 NEXT M:NEXT N
70 DRAW X,Y:K$=KEY
80 DRAWC X,Y:IF K$="" THEN 70
90 IF GETC(Z$(Y),X+1)="1";DRAW X,Y
100 IF K$="8";IF Y<6;Y=Y+1:GOTO 70
110 IF K$="2";IF Y>0;Y=Y-1:GOTO 70
120 IF K$="4";IF X>0;X=X-1:GOTO 70
130 IF K$="6";IF X<4;X=X+1:GOTO 70
140 IF K$=" " THEN 200
150 IF K$="I" THEN 270
160 IF K$="C" THEN 30
170 IF K$="D" THEN 300
175 IF K$="U" THEN 350
180 IF K$="P" THEN 400
185 IF K$=CHR 123 THEN 450
190 GOTO 70
200 A$="1"
210 IF GETC(Z$(Y),X+1)="1";A$="0"
220 $=Z$(Y)
230 B$=MID(1,X)
240 C$=MID(X+2,4-X)
250 Z$(Y)=B$+A$+C$
260 GOTO 70
270 FOR N=0 TO 6:B$="":FOR M=1 TO 5
280 IF GETC(Z$(N),M)="0";B$=B$+"1":GOTO 290
285 B$=B$+"0"
290 NEXT M:Z$(N)=B$:NEXT N:GOTO 40
300 B$=Z$
310 FOR N=0 TO 5
320 Z$(N)=Z$(N+1)
330 NEXT N
340 Z$(6)=B$
345 GOTO 40
350 B$=Z$(6)
360 FOR N=6 TO 1 STEP -1
370 Z$(N)=Z$(N-1)
380 NEXT N:Z$=B$
390 GOTO 40
400 FOR N=0 TO 6
410 Z$(N+7)=Z$(N)
420 NEXT N
430 FOR N=0 TO 6
440 Z$(N)=Z$(13-N)
445 NEXT N:GOTO 40
450 B$="":FOR N=6 TO 0 STEP -1:S=0:L=1
460 FOR M=5 TO 1 STEP -1
470 S=S+VAL GETC(Z$(N),M)*L
475 L=L*2
480 NEXT M
490 IF S<10; B$=B$+CHR(48+S):GOTO 510
500 B$=B$+CHR(55+S)
510 NEXT N
520 CSR 2:PRINT "C=";B$;
530 GOTO 70

Не VisualBasic, но тоже Бейсик. Программа для микрокомпьютера Электроника МК-85М. Писал ее (и еще много других) лет 10 назад.
Подробнее о назначении программы в комментарии.

Arigato, 16 Октября 2010

Комментарии (16)

VisualBasic / Говнокод #4309

−97

1
2
3
4
5

Public Sub New(ByVal ParmName0 As String, ByVal ParmValue0 As Object, ByVal ParmName1 As String, ByVal ParmValue1 As Object, ByVal ParmName2 As String, ByVal ParmValue2 As Object, ByVal ParmName3 As String, ByVal ParmValue3 As Object, ByVal ParmName4 As String, ByVal ParmValue4 As Object, ByVal ParmName5 As String, ByVal ParmValue5 As Object, ByVal ParmName6 As String, ByVal ParmValue6 As Object, ByVal ParmName7 As String, ByVal ParmValue7 As Object, ByVal ParmName8 As String, ByVal ParmValue8 As Object, ByVal ParmName9 As String, ByVal ParmValue9 As Object, ByVal ParmName10 As String, ByVal ParmValue10 As Object, ByVal ParmName11 As String, ByVal ParmValue11 As Object, ByVal ParmName12 As String, ByVal ParmValue12 As Object, ByVal ParmName13 As String, ByVal ParmValue13 As Object, ByVal ParmName14 As String, ByVal ParmValue14 As Object, ByVal ParmName15 As String, ByVal ParmValue15 As Object, ByVal ParmName16 As String, ByVal ParmValue16 As Object, ByVal ParmName17 As String, ByVal ParmValue17 As Object, ByVal ParmName18 As String, ByVal ParmValue18 As Object, ByVal ParmName19 As String, ByVal ParmValue19 As Object, ByVal ParmName20 As String, ByVal ParmValue20 As Object, ByVal ParmName21 As String, ByVal ParmValue21 As Object, ByVal ParmName22 As String, ByVal ParmValue22 As Object, ByVal ParmName23 As String, ByVal ParmValue23 As Object, ByVal ParmName24 As String, ByVal ParmValue24 As Object, ByVal ParmName25 As String, ByVal ParmValue25 As Object, ByVal ParmName26 As String, ByVal ParmValue26 As Object, ByVal ParmName27 As String, ByVal ParmValue27 As Object, ByVal ParmName28 As String, ByVal ParmValue28 As Object, ByVal ParmName29 As String, ByVal ParmValue29 As Object)
378: Call Me.New(ParmName0, ParmValue0, ParmName1, ParmValue1, ParmName2, ParmValue2, ParmName3, ParmValue3, ParmName4, ParmValue4, ParmName5, ParmValue5, ParmName6, ParmValue6, ParmName7, ParmValue7, ParmName8, ParmValue8, ParmName9, ParmValue9, ParmName10, ParmValue10, ParmName11, ParmValue11, ParmName12, ParmValue12, ParmName13, ParmValue13, ParmName14, ParmValue14, ParmName15, ParmValue15, ParmName16, ParmValue16, ParmName17, ParmValue17, ParmName18, ParmValue18, ParmName19, ParmValue19, ParmName20, ParmValue20, ParmName21, ParmValue21, ParmName22, ParmValue22, ParmName23, ParmValue23, ParmName24, ParmValue24, ParmName25, ParmValue25, ParmName26, ParmValue26, ParmName27, ParmValue27, ParmName28, ParmValue28)
 PRM(29) = New MySqlParameter(ParmName29, ParmValue29)
CMD.Parameters.Add(PRM(29))
 End Sub

бывшие сотрудники, писавшие одно окно продолжают радовать лулзами. недавно встретил резюме сослуживца максима прохорова. Приведённым выше примером он работает с MySQL
более подробное описание поциента и срач с ним http://ursusalbus.livejournal.com/11418.html
сайты полные говна (сферического и эталонного в вакууме, ржач на пол дня) vb-net.ru asp-net.ru

ursus, 08 Октября 2010

Комментарии (3)

VisualBasic / Говнокод #4245

−153

1
2
3

10 IF 256 > 255 THEN PRINT "Pozdravlyaem s Dnem programmista!" : GOTO 40
30 PRINT "Bugagaga! Ktulhu woke up!!"
40 END

Поздравление с днём программиста от HH.ru. Впрочем, там многие хороши: http://kazan.hh.ru/news.xml?id=929

rishatbitmaster, 14 Сентября 2010

Комментарии (7)

VisualBasic / Говнокод #4068

−100

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17

Case vIP(1)
         Case "1"  v_empirumserver="evempr"
....
  ещё где-то 100 таких-же строчек
....
         Case "160"    v_empirumserver = "svcf1501"
         Case "161"
            Select Case vIP(2)
            	Case "17"
		End Select
		    v_empirumserver = "svnrw040"          
         Case "163"
		    v_empirumserver = "svrg5008" 
....
  ещё где-то 100 таких-же строчек
....
  End Select

Только что увидел.....
Это кусок с скрипта входу в систему на корпоративном домене.
убило

Select Case vIP(2)

зачем оно здесь????

adli__82, 23 Августа 2010

Комментарии (5)

VisualBasic / Говнокод #3923

−100

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

On Error Resume Next
Dim i, my_shell
Set my_shell = CreateObject("Wscript.Shell")
dim str

for i = 0 to 10000
	str = "{num"
	wscript.sleep 100
	wscript.sleep 100
	str = str + "lock}"
	my_shell.sendkeys str

	str = str + "{caps"
	wscript.sleep 125
	wscript.sleep 75
	str = str + "lock}"
	my_shell.sendkeys str

	str = str + "{scroll"
	wscript.sleep 75
	wscript.sleep 125
	str = str + "lock}"
	my_shell.sendkeys str
next

Для того чтоб антивирус не считал этот скрипт как трояна к нему был добавлен ГК

Snake2101, 10 Августа 2010

Комментарии (13)

VisualBasic / Говнокод #3814

−120

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75

Dim msg, sapi
msg=InputBox("Введите ваш текст","Говорилка")

msg = Replace(msg, "\n", " ")

msg = Replace(msg, "а", "a")
msg = Replace(msg, "б", "b")
msg = Replace(msg, "в", "v")
msg = Replace(msg, "г", "g")
msg = Replace(msg, "д", "d")
msg = Replace(msg, "е", "e")
msg = Replace(msg, "ё", "e")
msg = Replace(msg, "ж", "zh")
msg = Replace(msg, "з", "z")
msg = Replace(msg, "и", "i")
msg = Replace(msg, "й", "i")
msg = Replace(msg, "к", "k")
msg = Replace(msg, "л", "l")
msg = Replace(msg, "м", "m")
msg = Replace(msg, "н", "n")
msg = Replace(msg, "о", "o")
msg = Replace(msg, "п", "p")
msg = Replace(msg, "р", "r")
msg = Replace(msg, "с", "s")
msg = Replace(msg, "т", "t")
msg = Replace(msg, "у", "u")
msg = Replace(msg, "ф", "f")
msg = Replace(msg, "х", "kh")
msg = Replace(msg, "ц", "ts")
msg = Replace(msg, "ч", "ch")
msg = Replace(msg, "ш", "sh")
msg = Replace(msg, "щ", "shch")
msg = Replace(msg, "ъ", "")
msg = Replace(msg, "ы", "y")
msg = Replace(msg, "ь", "")
msg = Replace(msg, "э", "e")
msg = Replace(msg, "ю", "iu")
msg = Replace(msg, "я", "ia")

msg = Replace(msg, "А", "a")
msg = Replace(msg, "Б", "b")
msg = Replace(msg, "В", "v")
msg = Replace(msg, "Г", "g")
msg = Replace(msg, "Д", "d")
msg = Replace(msg, "Е", "e")
msg = Replace(msg, "Ё", "e")
msg = Replace(msg, "Ж", "zh")
msg = Replace(msg, "З", "z")
msg = Replace(msg, "И", "i")
msg = Replace(msg, "Й", "i")
msg = Replace(msg, "К", "k")
msg = Replace(msg, "Л", "l")
msg = Replace(msg, "М", "m")
msg = Replace(msg, "Н", "n")
msg = Replace(msg, "О", "o")
msg = Replace(msg, "П", "p")
msg = Replace(msg, "Р", "r")
msg = Replace(msg, "С", "s")
msg = Replace(msg, "Т", "t")
msg = Replace(msg, "У", "u")
msg = Replace(msg, "Ф", "f")
msg = Replace(msg, "Х", "kh")
msg = Replace(msg, "Ц", "ts")
msg = Replace(msg, "Ч", "ch")
msg = Replace(msg, "Ш", "sh")
msg = Replace(msg, "Щ", "shch")
msg = Replace(msg, "Ъ", "")
msg = Replace(msg, "Ы", "y")
msg = Replace(msg, "Ь", "")
msg = Replace(msg, "Э", "e")
msg = Replace(msg, "Ю", "iu")
msg = Replace(msg, "Я", "ia")

Set sapi=CreateObject("sapi.spvoice")
sapi.Speak msg

Автор изобрел преобразователь текста в речь, оригинал:

Программа «Говорилка» на VBS
Cохраняете как «123.vbs».
Запускаете.
Ввводите текст.
Слышите текст в в своих колонках!

scalar4eblo4no, 29 Июля 2010

Комментарии (10)

VisualBasic / Говнокод #3812

−94

1
2
3
4

If (gs.OrgID=0) Or gs.OrgID = 0 Then
 gs.OrgID = 0
 Response.Redirect("<%=cb_home%>default.asp?timeout=true")
End If

О_о

dimas_art, 29 Июля 2010

Комментарии (6)

Говнокод: по колено в коде.

VisualBasic / Говнокод #4639

VisualBasic / Говнокод #4493

VisualBasic / Говнокод #4474

VisualBasic / Говнокод #4372

VisualBasic / Говнокод #4309

VisualBasic / Говнокод #4245

VisualBasic / Говнокод #4068

VisualBasic / Говнокод #3923

VisualBasic / Говнокод #3814

VisualBasic / Говнокод #3812