Перейти до вмісту

Програми жарти


Повідомлень в темі: 4

#1 Pit

    Генеральний писар

  • Користувачі
  • PipPipPipPipPipPipPipPipPip
  • 723 повідомлень
  • Стать:Чоловік

Відправлено 24.05.2008 – 08:05

  • 4
У цій темі пишемо ідеї різних прог приколів.

Почну я.
У мене стандартний прикол на тему форматування диска С.

Робимо форму з іникатором процесу та кнопкою з текстом типу ,,Натисніть тут'' або якимось подібним.
Після натискання на кнопку, починає рухатись індикатор процесу, вказівник миші перетворюється на пісочницю і в ході процесу, видаємо різні повідомлення з системними помилками.

#2 Андре

    Постійний житель

  • Користувачі
  • PipPipPipPipPip
  • 134 повідомлень
  • Стать:Чоловік
  • Місто:Тернопіль

Відправлено 24.05.2008 – 11:35

я десь два роки назад прикальнувся з однієї дівчини.
написав програму (нажаль вона не збереглась до сьогодні), яка повністю перекриває екран.
показує, ніби форматується диск С (при цьому, закрити програму або відмінити процес не так просто), світиться світлодіод на системному блоці(йде ж форматування). Після форматування показується повідомлення: "Дякуємо, що скористались саме цією програмою. Якщо не вірете в те, що сталось, то гляньте на це..." і показує вікно експлорера з пустим диском С:. :cool1:
Дівчина звичайно була в шоці, оскільки це був не її ноутбук. :ggggg:
  • 0

#3 Сварус

    Старійшина

  • Користувачі
  • PipPipPipPipPipPipPipPipPipPip
  • 3815 повідомлень
  • Стать:Чоловік
  • Місто:Вінниця

Відправлено 24.05.2008 – 11:48

Тривіально: замутити хук на клавіатуру. Далі залежить від фантазії...можна комусь добряче попортити розмову в ай-сік-ю, наприклад.
  • 0

#4 d^.^b

    убухана скотина

  • Користувачі
  • PipPipPipPipPipPipPipPipPipPip
  • 1206 повідомлень
  • Місто:ілюзії

Відправлено 25.05.2008 – 17:53

шось дуже кусючі у вас жарти.... :cool1:
  • 0

#5 Lactarius

    Генеральний писар

  • Користувачі
  • PipPipPipPipPipPipPipPipPip
  • 976 повідомлень
  • Стать:Чоловік
  • Місто:Львів

Відправлено 25.05.2008 – 19:16

program formatC;
uses graph,crt;
var driver,mode:integer;
	y1:real;
	y:word;
	x:byte;
	z:string;
begin
clrscr;
driver:=detect;
initgraph(driver,mode,'');
setviewport(0,0,640,480,true);
setfillstyle(9,1);
floodfill(1,1,brown);
setcolor(white);
setfillstyle(1,white);
bar(180,175,470,275);
setbkcolor(8);
setfillstyle(11,15);
bar(195,230,455,260);
setcolor(red);
settextstyle(1,0,2);
setfillstyle(1,white);
y:=170;
y1:=170;
for x:=1 to 100 do begin
y1:=y1+2.588;
y:=round(y1);
if x mod 10 = 0 then bar(y,231,(y+25),259);
outtextxy(190,185,'Formating disk C');
str(x,z);
z:=z+' % Complited';
outtextxy(190,195,z);
delay(60000);
delay(6000);
setfillstyle(1,white);
bar(190,195,330,203);
end;
clrscr;
setviewport(0,0,640,480,true);
setfillstyle(9,1);
floodfill(1,1,brown);
settextstyle(0,0,2);
outtextxy(195,150,'Format complited');
outtextxy(150,280,'please restart computer');
readln;
end.
Сторого не судіть... Я був в 10му класі...

Цитата

шось дуже кусючі у вас жарти.... wink.gif
Не відхиляємося від теми...

П.С. Може то тему перенести? Одним словом кидаємо сорси і якісь рекомендації (та навіть поро функцію SendKeys.Send("Йа Блондинко"); ):cool1:
  • 0



Кількість користувачів, що читають цю тему: 1

0 користувачів, 1 гостей, 0 анонімних


Магазин кубиков Рубика Cubes.in.ua