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
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