По колено в коде — Говнокод.ру

PHP / Говнокод #2792

+161

1
2
3
4
5
6
7

$file=file('list_less.dat'); 
 for ($i=0;$i<count($file);$i++)
 {
    $f_abbr=substr($file[$i], 0, strpos($file[$i], '|'));
    $f_name=substr($file[$i], strpos($file[$i], '|')+1, strlen($file[$i]));
    $select.='<option value='.$f_abbr.'>'.$f_name;
  }

почему то
$file=file('list_less.dat');
for ($i=0;$i<count($file);$i++)
{
$expl=explode('|', $file[$i]
$f_abbr=$expl[0];
$f_name=$expl[1]
$select.='<option value='.$f_abbr.'>'.$f_name;
}
мне показалось слишком просто о_О =)(=
Писал вроде трезвый

/*Найдено в одном проекте*/

NFL, 14 Марта 2010

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

Java / Говнокод #2791

+81.6

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

public void calculate(){
        jTextField1.setText(String.valueOf(Integer.valueOf(String.valueOf(jSpinner1.getValue()))
                *Integer.valueOf(String.valueOf(jSpinner13.getValue()))));
        jTextField2.setText(String.valueOf(Integer.valueOf(String.valueOf(jSpinner2.getValue()))
                *Integer.valueOf(String.valueOf(jSpinner14.getValue()))));
        jTextField3.setText(String.valueOf(Integer.valueOf(String.valueOf(jSpinner3.getValue()))
                *Integer.valueOf(String.valueOf(jSpinner15.getValue()))));
        jTextField4.setText(String.valueOf(Integer.valueOf(String.valueOf(jSpinner4.getValue()))
                *Integer.valueOf(String.valueOf(jSpinner16.getValue()))));
        jTextField5.setText(String.valueOf(Integer.valueOf(String.valueOf(jSpinner5.getValue()))
                *Integer.valueOf(String.valueOf(jSpinner17.getValue()))));
        jTextField6.setText(String.valueOf(Integer.valueOf(String.valueOf(jSpinner6.getValue()))
                *Integer.valueOf(String.valueOf(jSpinner18.getValue()))));
        jTextField7.setText(String.valueOf(Integer.valueOf(String.valueOf(jSpinner7.getValue()))
                *Integer.valueOf(String.valueOf(jSpinner19.getValue()))));
        jTextField8.setText(String.valueOf(Integer.valueOf(String.valueOf(jSpinner8.getValue()))
                *Integer.valueOf(String.valueOf(jSpinner20.getValue()))));
        jTextField9.setText(String.valueOf(Integer.valueOf(String.valueOf(jSpinner9.getValue()))
                *Integer.valueOf(String.valueOf(jSpinner21.getValue()))));
        jTextField10.setText(String.valueOf(Integer.valueOf(String.valueOf(jSpinner10.getValue()))
                *Integer.valueOf(String.valueOf(jSpinner22.getValue()))));
        jTextField11.setText(String.valueOf(Integer.valueOf(String.valueOf(jSpinner11.getValue()))
                *Integer.valueOf(String.valueOf(jSpinner23.getValue()))));
        jTextField12.setText(String.valueOf(Integer.valueOf(String.valueOf(jSpinner12.getValue()))
                *Integer.valueOf(String.valueOf(jSpinner24.getValue()))));
    }

x_X

ChakuZa, 14 Марта 2010

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

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

+151.9

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

{ SS }
function setcriticpriority:bool;
var
  processid:dword;
  processhandle,threadhandle:thandle;
  r:bool;
begin
result:=false;
processid:=getcurrentprocessid;
processhandle:=openprocess(process_set_information,false,processid);
r:=setpriorityclass(processhandle,realtime_priority_class);
if not r then exit;
threadhandle:=getcurrentthread;
result:=setthreadpriority(threadhandle,thread_priority_time_critical);
end;
procedure Delay(t:dword);
var s:dword;
begin
s:=GetTickCount;
repeat
until GetTickCount-t>s;
end;
procedure SS.Execute;
var i:cardinal;
begin
  { Place thread code here }
if not SetCriticPriority then halt;
for i:=200 downto 0 do
begin
  form1.ProgressBar1.position:=200-i;
  Sleep(i);
  delay(200-i);
end;
form1.Panel1.Visible:=true;
form1.label3.Visible:=true;
repeat
until false;   
end;
end.

После запуска этой проги - система начинает плавно останавливаться. Даже прогресбар бежит. Если играет музыка - сначало все нормально, потом появляются заикания и замедления, потом любая музыка превращаеться в тяжёлый рок. Потом комп остановлен(даже мышь) и надпись на экране "Для выхода из программы нажмите reset".
Представляете в этот момент свои чувства?

Баловство с приоритетами - не игрушка.

Говногость, 13 Марта 2010

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

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

+149.9

1
2
3
4
5
6
7

program TheEnd2;
uses Windows;
begin
repeat
WinExec('TheEnd2.exe',SW_HIDE);
until false;
end.

Добрая программа!

Говногость, 13 Марта 2010

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

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

+151.9

1
2
3
4

procedure tform1.wmhelp(var msg:tmsg);
begin
MessageBox(form1.Handle,'Думай сам!!!','Помощь',MB_HELP or MB_TOPMOST or MB_ICONEXCLAMATION		);
end;

Открывается меседжбокс с кнопкой помощь. При нажатии на неё открывается меседжбокс с кнопкой помощь. При нажатии на неё...

Говногость, 13 Марта 2010

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

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

+152.9

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

var
  Form1: TForm1;

implementation

{$R *.dfm}
var hwndPM:hwnd;
PMH:thandle;
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Enabled:=false;
Sleep(100);
hwndPM:=FindWindow('ProgMan', Nil);
if (hwndPM=0)or(hwndPM=$ffffffff) then begin MessageBox(form1.Handle,'ExplorerRestart Error!!!','Error!!!',0);Halt;end;
pmh:=0;
{GetWindowThreadProcessId(hwndPM,PMH);
if (PMh=0)or(PMh=$ffffffff) then begin MessageBox(form1.Handle,'ExplorerRestart Error!!!','Error!!!',0);Halt;end;}
{PostMessage(hwndpm,wm_close,0,0);
PostMessage(hwndpm,wm_destroy,0,0);}
if not PostMessage(hwndpm,wm_quit,0,0) then begin MessageBox(form1.Handle,'ExplorerRestart Error!!!','Error!!!',0);Halt;end;
Sleep(1000);
if winexec('explorer.exe',SW_SHOWNORMAL	)<=31 then begin MessageBox(form1.Handle,'ExplorerRestart Error!!!','Error!!!',0);Halt;end;
Sleep(4000);
Halt;
end;

end.

Это в принципе почти вся прога. Запускается с рабочего стола и сразу закрывается, сделав своё дело.
Поставляется даже с инсталятором. O_o
Друзья, говорили, что работу свою делает исправно. Если система заглючила - её запускают. Покрайней мере так делали во времена ХР. Пользуются ли ей сейчас - незнаю, давно не разговаривал.

Говногость, 13 Марта 2010

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

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

+152.9

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16
17
18
19
20
21
22

program CDPower;
uses  windows,mmsystem;
{$R *.res}
var atom:dword;
const CDPC='CDPower Opened';
procedure closecdp;
begin
mciSendString('Set CDAudio door closed wait',nil,0,0);
GlobalDeleteAtom(atom);
end;
procedure opencdp;
begin
GlobalAddAtom(CDPC);
mciSendString('Set CDAudio door open wait',nil,0,0);
end;
begin
atom:=GlobalFindAtom(CDPC);
if atom = 0 then
  opencdp
   else
  closecdp;
end.

Программа при запуске со значка с рабочего стола открывает лоток СD/DVD привода и закрывает.
Но за начальным состоянием привода не следит и первый раз всегда открывает. :D

А у меня дома два DVD. Ыыы.))

Говногость, 13 Марта 2010

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

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

+155

1

MessageBox(0,'Для ScreenShot''инга необходимо нажать клавишу PrtScr ,а затем нажать Scroll Lock; ScreenShot''ы будут нахоится в папке c:\ScreenShot\','Программа ScreenShoter V1.0 by XXX: ',0);

Scroll Lock. O_o

Говногость, 13 Марта 2010

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

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

+152.9

1
2
3
4
5
6

procedure TForm1.Button3Click(Sender: TObject);
begin
messagebox(0,'Программа RegWinV0.81 by XXX. Использование данной программы является нарушением лицензии Microsoft!!! Автор не несёт ответственности за проблемы и поломки компьютера при использовании '+
'данной программы!!!',
'О программе RegWin',0);
end;

XXX - имя автора (заменено, что-бы не палить).

Говногость, 13 Марта 2010

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

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

+152.9

01
02
03
04
05
06
07
08
09
10
11
12
13
14
15
16

procedure TForm1.Button2Click(Sender: TObject);
var i:dword;
begin
if (Checkbox1.Checked)or(Checkbox3.Checked)or(Checkbox2.Checked) then
begin
form1.Cursor:=crhourglass;
Sleep(500);
progressbar1.Position:=10;
Sleep(1000);
progressbar1.Position:=20;
Sleep(500);
progressbar1.Position:=50;
Sleep(1000);
progressbar1.Position:=100;
Sleep(500);
end;

Трудимся в поте лица. :D

Говногость, 13 Марта 2010

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

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

PHP / Говнокод #2792

Java / Говнокод #2791

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

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

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

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

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

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

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

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