1. Список говнокодов пользователя Stertor

    Всего: 162

  2. 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)
  3. 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

    Комментарии (162)
  4. Куча / Говнокод #13800

    +116

    1. 1
    2. 2
    3. 3
    4. 4
    5. 5
    Кто может посоветовать сайт, на котором стоит потроллить?
    Хочу отточить свои навыки.
    
    З.Ы. Представляю, как скрежещут зубами тарас и борманд. Слово кабальеро - как только кто нибудь посоветует, заминусую топик.
     )

    Флудинг, троллинг и спаминг.

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

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

    −96

    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
    Public Class Form1
        Dim ns As Double : Dim s As Integer       ' Akiva     14/IX-2013
        Private Sub b1_Click(sender As Object, e As EventArgs) Handles b1.Click
            tm1.Enabled = True
        End Sub
        
        Private Sub nums_ValueChanged(sender As Object, e As EventArgs) Handles nums.ValueChanged
            s = nums.Value : ns = s
        End Sub
    
        Private Sub tm1_Tick(sender As Object, e As EventArgs) Handles tm1.Tick
            If ns >= 0.1 Then
                ns -= 0.1
                l1.Text = Format(ns, "00.0")  
            End If
        End Sub
    
        Private Sub b2_Click(sender As Object, e As EventArgs) Handles b2.Click
            tm1.Enabled = False
        End Sub
    End Class

    Обратный отсчет до Апокалипсиса.

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

    Комментарии (12)
  6. Pascal / Говнокод #13792

    +130

    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
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    Program KrestZero;
    ...
    
    procedure TForm1.DrawGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
      Rect: TRect; State: TGridDrawState);
    begin
    
      case m[arow,acol]of
         1: DrawGrid1.Canvas.Draw(acol*81,arow*81 ,bmpkrest);
         0:  DrawGrid1.Canvas.Draw(acol*81,arow*81 ,bmpfon);
         2:  DrawGrid1.Canvas.Draw(acol*81,arow*81 ,bmpnul);
      end;
    
    
    end;
    function win:boolean;
    var a:byte;
    begin
      result:=false;
      k:=0;
      for I := 0 to 2 do
         if m[0,i]=a then k:=k+1;
      if k=3 then begin result:=true; exit; end;
        
        
    end;
    
    procedure TForm1.DrawGrid1MouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
      var
      acol,arow:integer;
    begin
       DrawGrid1.MouseToCell(x,y,acol,arow);
       if (m[arow,acol]<>0) then
        ShowMessage('Нельзя!')
       else
       begin
        inc(hod);
        if hod mod 2 =1 then m[arow,acol]:=1
        else m[arow,acol]:=2;
        if win then  ShowMessage('Победа!');
        
       end;
    end;
    
    procedure TForm1.FormShow(Sender: TObject);
    var i,j:byte;
    begin
       bmpkrest:=TBitmap.Create;
       bmpkrest.LoadFromFile('krest.bmp');
       bmpfon:=TBitmap.Create;
       bmpfon.LoadFromFile('fon.bmp');
       bmpnul:=TBitmap.Create;
       bmpnul.LoadFromFile('nol.bmp');
       for i:=0 to 2 do
         for j:=0 to 2 do
          m[i,j]:=0;
       hod:=0;
    end;

    А вот так, товарищи, кодит препод в одной из шаражек в нашем родном Владикавказе.
    В коде ничего не менял - выложил, как есть.
    Одно только название - krestzero уже поднимает давление настроение.

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

    Комментарии (39)
  7. Куча / Говнокод #13785

    +141

    1. 1
    2. 2
    3. 3
    http://d.topic.lt/Fm_fi/images/picsw/042008/09/funy_police/013_funy_police.jpg
    
    Ох, мама мия. Слабонервным не смотреть.

    Лучше будет, если коментарий напишет кто-то другой, а то монитор из под стола не видно...

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

    Комментарии (50)
  8. Куча / Говнокод #13784

    +139

    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
    Отключениа автозапуска в windows 7
    
    Stertor140 [11.09.2013 23:20] Удалить
    
    Автозапуски отключены по умолчанию)
    К тому же, этот способ не затрагивает сменные носители.
    Shade870 [12.09.2013 09:23]
    
    На всех носителях отключается автозапуск.
    Stertor140 [12.09.2013 12:45] Удалить
    
    Какой наивный парень)
    Автозапуск уже отключен, по умолчанию.
    Нет смысла все это делать.
    Shade870 [12.09.2013 16:23]
    
    Смысл есть это делать, так как вирусники попадают через автозапуск со съемного носителя.
    Stertor140 [12.09.2013 16:57] Удалить
    
    Охх, какой ты упертый. Я же тебе объясняю, если ты вставишь заразную флешку, файл autorun.inf НЕ БУДЕТ обработан, система вообще его не увидит. Майкрософт отключила в семерке автозапуск для сменных устройств, так как появилось множество вирусов, использовавших эту уязвимость. Совсем другое дело, если вирус на флешке маскируется под папку. Но и тут этот способ не поможет, смешно даже. Единственный выход - антивирус.
    Stertor140 [12.09.2013 17:02] Удалить
    
    Вам тут всем ЧСВ надо снижать, причем для вашей же пользы:админ ваш уже это понял, теперь очередь за участниками. Чем выставлять себя идиотом, мысля и рассуждая ошибочно, лучше спросить мнения умных людей; но вам никто не будет помогать, если вы не приземлитесь,так и будете до старости пребывать в невежестве...
    alex13sh230 [12.09.2013 18:09]
    
    ты типо самый умный? чё ты споришь с опытным человеком работающий компьютерщиком ? ты тут не кого незнаешь, ты изгой, пшёл вон от сюда!
    Shade870 [12.09.2013 18:11]
    
    Stertor, ты самое настоящий лох, а не умник. Таких как ты надо расстреливать, знаток херов. Иди учись.
    Shade870 [12.09.2013 18:13]
    
    Охх, какой ты упертый. Я же тебе объясняю, если ты вставишь заразную флешку, файл autorun.inf НЕ БУДЕТ обработан, система вообще его не увидит. Майкрософт отключила в семерке автозапуск для сменных устройств, так как появилось множество вирусов, использовавших эту уязвимость.
    
    Ты придурок, как это так не будет обрабатывать и кто ее отключал?? Кусок недоучки. Аж бесят такие шкеты.

    http://vbbook.ru/windows/otkluchenie-avtozapuska-windows/
    Практика показывает, что настоящее школоло плохо поддается перевоспитанию.

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

    Комментарии (42)
  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. Pascal / Говнокод #13769

    +139

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    type
      TCriricalThread = class (TThread)
      private
        FileS    : integer;
        Percent  : integer;
        DlSize   : integer;
        procedure SetMaxPos;
        procedure SetCurPos;
        procedure LockButton;
        procedure DislockButton;
      protected

    Ну, уж если есть критические секции, почему бы не сделать критический поток?
    TCriricalThread = class (TThread)

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

    Комментарии (60)
  11. Pascal / Говнокод #13763

    +80

    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
    Главная » Усыпление программы
    Усыпление программы
    Автор: -Гепард97-
    Написать автору
    [просмотров 751]
    
    В VBS есть функция wscript.sleep, позволяющая усыпить скрипт. Но как такое сделать в VB? Ответ прост: делаем новый модуль и пишем код:
    
    Public Declare Sub Sleep Lib "kernel32" (byval dwMilliseconds As Long)
    
    И все. Когда прогу нужно усыпить, просто пишем в коде проги, если например прога должна остановиться на 2 секунды то пишем
    
    Sleep 2000
    
    Этого способа нет на MSDN, я его сам отрыл

    Билл Гатэс прочел это и уснул...
    Z-z-z-z...

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

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