编写这段小程序的初衷是看到了这篇贴子：
非常简单的连点器
https://www.52pojie.cn/thread-1780846-1-1.html
(出处: 吾爱破解论坛)
鉴于大家的回贴中提到了”热键冲突“的问题，因此依葫芦画瓢制作了一个鼠标连点器。
软件名称：鼠标连点器
版本：1.0
运行系统：Windows
软件版本：32位
软件运行界面如下：
未命名图片.png (22.82 KB, 下载次数: 0)
下载附件
2023-5-7 12:17 上传
（发贴经验有限，大家能否看到图片，请回复一下）
使用方法：
1.设置要点击的按键，是左键还是右键
2.设置要点击的频率，注意这里是每10秒几次，默认是1秒钟1次。如果想每秒点击5次，那就在这里输入50。
[color=]注意：
[color=]（1）受限于计算机的不同配置，这里实际运行的频率可能不太准确，可根据实际需救自行调整数值。
[color=]（2）当设置数值过大、频率过高时，可能始终趋近于鼠标点击的极限速度。
3.将鼠标放置在要连点的位置，按F9开始，按F10停止
源码：
[Asm] 纯文本查看 复制代码#region ;**** 参数创建于 ACNWrapper_GUI ****
#PRE_Icon=favicon.ico
#PRE_Outfile=鼠标连点器1.0.exe
#PRE_UseX64=n
#PRE_Res_requestedExecutionLevel=None
#PRE_Add_Constants=y
#PRE_Run_Tidy=y
#endregion ;**** 参数创建于 ACNWrapper_GUI ****
#include [B]
#include
#include
#include
#include
Opt("GUIOnEventMode", 1)
#region ### START Koda GUI section ### Form=D:\软件\autoit3\SciTe\Koda\Forms\Form1鼠标连点器.kxf
$Form1 = GUICreate("鼠标连点器-ZPSoft-52pojie.cn", 337, 142, 192, 124)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
$Group1 = GUICtrlCreateGroup("鼠标按键", 12, 8, 96, 120)
$Radio1 = GUICtrlCreateRadio("", 36, 47, 18, 18)
GUICtrlSetState(-1, $GUI_CHECKED)
GUICtrlSetOnEvent(-1, "Radio1Click")
$Label1 = GUICtrlCreateLabel("左键", 52, 47, 28, 17)
$Radio2 = GUICtrlCreateRadio("", 36, 87, 18, 18)
GUICtrlSetOnEvent(-1, "Radio2Click")
$Label2 = GUICtrlCreateLabel("右键", 52, 87, 28, 17)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("频率", 120, 8, 96, 120)
$Input1 = GUICtrlCreateInput("10", 128, 47, 48, 18)
GUICtrlSetOnEvent(-1, "Input1Change")
$Label3 = GUICtrlCreateLabel("次/10秒", 166, 72, 48, 18)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("热键", 228, 8, 96, 120)
$Label4 = GUICtrlCreateLabel("开始：F9", 248, 47, 52, 18)
$Label5 = GUICtrlCreateLabel("停止：F10", 248, 87, 58, 18)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
HotKeySet("{F9}", "clickstart")
HotKeySet("{F10}", "clickstop")
Dim $i, $LorR, $rate
$LorR = "left"
$rate = 10
While 1
If $i = 1 Then
MouseClick($LorR)
Sleep(10000 / $rate)
EndIf
WEnd
Func clickstart()
$i = 1
EndFunc ;==>clickstart
Func clickstop()
$i = 0
EndFunc ;==>clickstop
Func Form1Close()
Exit
EndFunc ;==>Form1Close
Func Input1Change()
$rate = GUICtrlRead($Input1)
EndFunc ;==>Input1Change
Func Radio1Click()
$LorR = "left"
EndFunc ;==>Radio1Click
Func Radio2Click()
$LorR = "right"
EndFunc ;==>Radio2Click
下载地址：
https://cowtransfer.com/s/6446b01ed3e34d 点击链接查看 [ 鼠标连点器1.0.exe ] ，或访问奶牛快传 cowtransfer.com 输入传输口令 p7rzf0 查看；
