houshmand
چهارشنبه 18 تیر 1382, 12: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 آن را نیز میتوان عوض کرد.
نظرات خود را در مورد آن بنویسید.
:?: :?: :?: :?: :?: :?:
: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 آن را نیز میتوان عوض کرد.
نظرات خود را در مورد آن بنویسید.
:?: :?: :?: :?: :?: :?: