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

Всего: 162

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

+128

1
2
3
4

http://rghost.ru/51035531
Новый бот для минусования (запускать на виртуалке)

Описание такое, чтобы отпугнуть хомячье.

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

Stertor, 17 Декабря 2013

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

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

−121

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

Добрый день.

я пытаюсь сделать иконку в трее, чтоб вне зависимости видно окно программы или нет, программу можно было остановить. В моём коде не одно окно(( я так понимаю 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)

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

−117

1
2
3
4

For i=@stroca$ 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)

Pascal / Говнокод #14168

+76

01
02
03
04
05
06
07
08
09
10
11
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)

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

−97

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
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)

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

−101

1
2

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

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

Stertor, 27 Ноября 2013

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

Pascal / Говнокод #14141

+133

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

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)

Куча / Говнокод #14134

+131

1

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

Возбуждает

Stertor, 24 Ноября 2013

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

Pascal / Говнокод #14129

+132

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

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)

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

−132

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

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)

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