Thứ Bảy, 13 tháng 2, 2010

[AutoIT] Nghịch 1 chút

Đoạn mã này sẽ thực hiện chức năng Buzz liên tục khi bấm phím \, nhớ bấm phím \ lại để dừng

HotKeySet("","Buzz")
$B = False
While 1
If $B = True Then
Send("^g")
Sleep(100)
MouseMove(Random(0,1024),Random(0,768),1)
EndIf
WinClose("Windows Task Manager")
Wend

Func Buzz()
$B = Not $B
If $B = False Then Exit
EndFunc



Không có nhận xét nào:

Đăng nhận xét