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

    Всего: 162

  2. Куча / Говнокод #14241

    +128

    1. 1
    2. 2
    3. 3
    4. 4
    http://rghost.ru/51035531
    Новый бот для минусования (запускать на виртуалке)
    
    Описание такое, чтобы отпугнуть хомячье.

    Новый бот для минусования.

    Stertor, 17 Декабря 2013

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

    −121

    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
    Добрый день.
    
    я пытаюсь сделать иконку в трее, чтоб вне зависимости видно окно программы или нет, программу можно было остановить. В моём коде не одно окно(( я так понимаю AddSysTrayIcon привязывается к окну. я попытался запустить цыкл контроля нажатия на иконку в отдельном потоке, компилятор матерится(( подскажите что не так делаю плиз? (в моём коде не один цыкл, при нажатие на определённые кнопки, открываются другие окна, и я не понял как сделать чтоб иконка в трее была постоянно((( может я вапше не правильно понимаю логику?)
    Код:
    Procedure.s GetSysDirectory() ; Путь к системной папке
       Path.s=Space(500)
       GetSystemDirectory_(@Path,500)
    ProcedureReturn Path
    EndProcedure
    
    Procedure.s Tray()
    CreatePopupMenu(0) ; Контекстное меню для трея
     MenuItem(0,"Выход")
    OpenWindow(0,0,0,200,100,"",#PB_Window_Invisible)
    AddSysTrayIcon(1,WindowID(0),ExtractIcon_(0,GetSysDirectory()+"\shell32.dll",4))
    AddWindowTimer(0,2,100)
    Repeat
      Event=WaitWindowEvent()
      If Event=#PB_Event_SysTray
        If EventType()=#PB_EventType_RightClick
          DisplayPopupMenu(0,WindowID(0))
        EndIf
      ElseIf Event=#PB_Event_Menu
        If EventMenu()=0
          End
        EndIf
     
      EndIf
    Until Event=#PB_Event_CloseWindow
    EndProcedure
    CreateThread(@Tray(), 0)
    ;Tray()
    ;Дальше код ...

    Да не покажутся мои слова обидны богу, но как же портит парадигму этот ваш вайсик! (
    p/s/ еще каких то 6 лет назад я бы сам себе язык вырвал за эти слова.

    Stertor, 06 Декабря 2013

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

    +76

    1. 01
    2. 02
    3. 03
    4. 04
    5. 05
    6. 06
    7. 07
    8. 08
    9. 09
    10. 10
    11. 11
    12. 12
    procedure TForm1.FormCreate(Sender: TObject);
    begin
    SetCurrentDir(ExtractFileDir(Application.ExeName)); 
    try
    ADOConnection1.Connected:=true;
    if ADOConnection1.Connected=true then
    begin
      ADOTable1.Active:=True;
    end;
    except
      MessageDLG('Îøèáêà ïîäêëþ÷åíèÿ ÁÄ',mtError,[mbOk],0);
    end;

    SetCurrentDir(ExtractFileDir(Application .ExeName));
    Не знаю, откуда ты, но знаю, куда тебе дальше.

    Stertor, 03 Декабря 2013

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

    −97

    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
    Imports System
    Imports System.IO
    Public Class Form1
    Inherits System.Windows.Forms.Form
    Windows Form Designer generated code
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
    Dim Folder As Directory' Объявляем переменную Folder для работы с папками
    
    Files = Folder.GetFiles("c:")' В массив Files записываются все файлы содержащиеся в диске C:
    
    For i = 0 To Files.Length - 1
    Label1.Text = Label1.Text & Files(i) & vbCrLf'
    Next i
    
    End Sub 
    End Class

    Вот какой он - убогий бейсик под .net: такой убогий.

    Stertor, 01 Декабря 2013

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

    −101

    1. 1
    2. 2
    http://vbbook.ru/visual-basic/pro-dll/
    Без комментариев.

    Без комментариев.

    Stertor, 27 Ноября 2013

    Комментарии (1)
  8. Pascal / Говнокод #14141

    +133

    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
    function tform1.ExistsFiles(path:string):boolean;
    var
      hfile:thandle;
      fname:string;
      WD:win32_find_dataA;
    begin
      result:=false;
      if directoryexists(path)=false then
      exit;
      path:=includetrailingpathdelimiter(path);
      hfile:=FindFirstFile(pchar(path+'*.*'),wd);
      if hfile <> invalid_handle_value then
      begin
        repeat
          fname:=string(wd.cFileName);
          if (fname <> '.') and (fname <> '..') then
          begin
            if (wd.dwFileAttributes and file_attribute_directory <> 0) then
            begin
              if existsfiles(path+fname)=true then
              begin
              result:=true;
              break;
              end;
            end
            else
            if ansilowercase(extractfileext(fname))='.txt' then
            begin
              result:=true;
            break;
            end;
          end;
        until findnextfile(hfile,wd) <> true;
        windows.findclose(hfile);
      end;
    end;

    Проверяем, есть ли в папке и ее подпапках текстовые документы...

    Stertor, 26 Ноября 2013

    Комментарии (1)
  9. Куча / Говнокод #14134

    +131

    1. 1
    http://bolknote.ru/files/dogfight/

    Возбуждает

    Stertor, 24 Ноября 2013

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

    +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
    50. 50
    51. 51
    52. 52
    53. 53
    54. 54
    55. 55
    56. 56
    57. 57
    58. 58
    59. 59
    procedure tnewthread.checkfiles; // процедура выполняется в потоке
    var
      i:integer;
      status:tstatus;
      ptmp:array of char;
      temp:string;
      len:integer;
      fstream:tfilestream;
    begin
      flist.Clear;
      findfiles(findpath);
      for i:=flist.Count-1 downto 0 do
      begin
        status:=s_ok;
        try
          try
            fstream:=tfilestream.Create(flist[i],fmopenread);
            fstream.Position:=0;
            setlength(ptmp,fstream.size);
            fstream.Read(pointer(ptmp)^,fstream.size);
          except
            status:=s_error;
          end;
        finally
          fstream.free;
        end;
        temp:=string(pchar(ptmp));
        temp:=stringreplace(temp,'&nbsp;',' ',[rfreplaceall]);
        temp:=stringreplace(temp,'&gt;','>',[rfreplaceall]);
        temp:=stringreplace(temp,'&nbsp;',' ',[rfreplaceall]);
        temp:=stringreplace(temp,'&lt;','<',[rfreplaceall]);
        temp:=stringreplace(temp,'&amp;','&',[rfreplaceall]);
        temp:=stringreplace(temp,'&quot;','"',[rfreplaceall]);
        temp:=stringreplace(temp,'&copy;',#169,[rfreplaceall]);
        temp:=stringreplace(temp,#10,#13#10,[rfreplaceall]);
        Len := Length(temp);
        try
          try
            fstream:=tfilestream.Create('C:\1.txt',fmcreate); // заменил в целях теста, не помогает.
            fstream.Position:=0;
              fstream.WriteBuffer(temp[1], Len); // в этом  месте поток вылетает с ошибкой "Range check error"
          except
            status:=s_error;
          end;
        finally
          fstream.free;
        end;
        if status=s_ok then
        begin
          addfileinfo(flist[i]); 
          shrecyclefile(flist[i]);
        end
        else
        begin
          adderrinfo(flist[i]); // синхронизируемся с мемо и добавляем в него красную строчку с именем файла
          shmovefile(flist[i],erroroutputpath +'\' + extractfilename(flist[i])); // перемещаем файл в директорию с файлами, при обр. которых произошла ошибка
        end;
      end;
    end;

    Процедура для обработки текстовых файлов. Имеем дремлющий поток, залоченный waitsingleobject, который будит
    таймерная функция, если в папке есть по крайней мере 1 файл. т.е. одновременно к файлам обращается 1 поток.
    При разлочивании поток немедленно начинает заполнять лист именами файлов, после чего начинает прогонять их
    через процедуру-обработчик. Но вот беда - возникает ошибка range check error. причем возникает только в доп.потоке -
    вне потока все работает нормально. Товарищи ,не подскажете, в чем лажа? (

    Stertor, 24 Ноября 2013

    Комментарии (38)
  11. 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)