PDA

View Full Version : یک برنامه برای باز کردن در CD ROM (مردم آزاری)بدون هیچ فرمی!



houshmand
چهارشنبه 18 تیر 1382, 11:36 صبح
?What do you think this program to do :mrgreen:
:evil2:


program CDOpen1;
uses
SysUtils;
type
HWND = type LongWord;
var
HMutex :LongWord;

function WaitForSingleObject(hHandle: LongWord; dwMilliseconds: LongWord): LongWord; stdcall; external 'kernel32.dll' name 'WaitForSingleObject';

procedure Sleep(dwMilliseconds:LongWord); stdcall; external 'kernel32.dll' name 'Sleep';


function mciSendString(lpstrCommand, lpstrReturnString: PChar;
uReturnLength: LongWord; hWndCallback: HWND): LongWord; stdcall;
external 'winmm.dll' name 'mciSendStringA';

begin
Randomize;
while true do
begin
Sleep(10000);
if Random(30)=1 then
begin
mciSendString('Set cdaudio door open wait',nil,0,0);
mciSendString('Set cdaudio door closed wait',nil,0,0);
end;

end;
end.


:twisted: :evil:
میتوانید فایل اجرایی آن را در Sturt up ویندوز قرار دهید
زمان Random آن را نیز میتوان عوض کرد.

نظرات خود را در مورد آن بنویسید.

:?: :?: :?: :?: :?: :?: