For $i = 1 to 200
$x = Random(10,1000)
$y = Random(20,900)
MouseMove($x, $y) ;鼠标位置随机移动
HotKeySet("{Esc}", "captureEsc") ;接收键盘输入
Next
Func captureEsc();
MsgBox(0,"knifewei","this is a joke");提示并退出
Exit
EndFunc
程序运行后,你的鼠标会不受控制的移动,如果不做按esc键的话,会在移动200次后停止;
如果按esc会提示并退出。
程序很简单,一个for循环,让鼠标随机移动200次,然后再循环中接受键盘输入,设置事件触发;
当按下esc键时,提示是一个玩笑,并退出。
第一次写autoit的程序,当个恶作剧的小程序吧,呵呵,
程序我已经测试通过,不过不要做坏事哦,
如果你有更好的autoit方面的小程序也教教我,我也是刚开始玩。
http://blog.youkuaiyun.com/knifewei/archive/2011/04/07/6308063.aspx
刚刚又添加了对桌面和工具栏隐藏、和防止程序多次运行的代码,算是一个比较完整一点的恶作剧程序了,
详见我发的最新下载;
http://download.youkuaiyun.com/source/3171528