AutoIt做的鼠标左键连击工具

 1  $z  =   0          ; //= 0一直循环 = 1停止循环，这算是个全局变量.
 2  HotKeySet( " !1 " ,  " clickit " )        ; // Alt + 1  事件.
 3  HotKeySet( " !2 " ,  " clickover " )        ; // Alt + 2  事件.
 4  HotKeySet( " {esc} " ,  " byebye " )        ; // Esc 事件.
 5  MsgBox ( 0 ,  " 鼠标左键连击工具提示 " ,  " Alt+1:开始点击 "   &  @CRLF  &   " Alt+2:暂停 "   &  @CRLF  &   " Esc:退出程序 "   &  @CRLF  &  @CRLF  &   " 每秒点击1次 " )
 6  While   1          ; // 这边连着3行我不懂为什么要写，但是不写就直接运行热键对应的函数了，抄的帮助内的原句.
 7      Sleep( 5000 )
 8  WEnd
 9  Func clickit()         ; // Alt + 1  事件.
10       Dim  $x  =  MouseGetPos()         ; //  得到当前鼠标的坐标，模拟点击的时候就靠它来确定点击的位置.
11      $z  =   0          ; // 这相当于1个开关，每次按热键Alt + 1  都会把它打开 这样就能模拟点击了.
12       While  $z  <>   1          ; // 判断当前开关的状态.
13          MouseClick( " left " , $x[ 0 ], $x[ 1 ],  1 ,  1000 )         ; // 1秒点击1次.
14       WEnd
15  EndFunc           ; ==> clickit
16  Func clickover()         ; // Alt + 2  事件.
17      $z  =   1          ; // 把$z开关关闭，就暂停了 模拟点击。联系clickit()事件中的$z = 0  就知道为什么这么做了.
18  EndFunc           ; ==> clickover
19  Func byebye()         ; // Esc 事件.
20       Exit   0          ; // exit = 0  就是退出程序，为何 = 0 ？这和系统有关，我不清楚。
21  EndFunc           ; ==> byebye

 

 

转载于:https://www.cnblogs.com/jhcla/archive/2010/08/06/1794418.html