鼠标连点器V3.0(20230613更新)【AutoIt3编译】

Defender

【温馨提示】
1.因程序不定期更新，占用篇幅越来越大，故文末仅放置最/新版本源码，敬请谅解。
2.之前版本仍暂时保留下载链接，如后续再有更新，可能会将其删除。
3.AutoIt3和易语言一样，编译出来的程序在运行时先释放文件到内存中，易被杀毒软件报错（不知道我理解的对不对），但本人无利益驱动，纯属个人爱好。
如对报毒介意者可到AutoIt官方网站下载安装Scite编辑器，将源码保存为.au3文件，即可在编辑器内打开运行，但自定义的程序图标和吾爱破/解论坛LOGO图片不能正常显示。
4.有的坛友提出，想要增加记录鼠标轨迹、多方位点击、间隔时间点击等功能，这些功能可以尝试下载安装按键精灵，稍微会点儿编程的就能玩转。
5.有的坛友提出，想要增加中键点击和左右键同时点击的功能，这个暂时还没打算，感觉此功能用的极少。如真有需要，可以再留言，根据个人需求探讨解决办法。


【20230613更新】鼠标连点器V3.0
运行界面：

更新内容：
1.应坛友要求，增加了通过下拉菜单切换热键的功能，可供选择的有Esc和F1~F10键。
2.优化了界面，增加了吾爱破/解的LOGO。
3.在按下热键启动和停止时，相应的标签背景显示为红色（今日的2.2版本更新了此功能）。
4.仅允许有一个程序在运行。
5.设置了程序运行时窗口置顶。

下载链接：https://cowtransfer.com/s/834b4604613042 点击链接查看 [ 鼠标连点器3.0.exe ] ，或访问奶牛快传 cowtransfer.com 输入传输口令 apmuoo 查看；



【20230613更新】鼠标连点器2.2
软件运行界面、使用方法同2.0版本。
更新内容：
按热键启动和停止时，会将相应的标签背景显示为红色。
下步更新计划：
1.去掉左侧冗余的界面。
2.尝试加入自定义热键功能（其实这个功能我是不愿意触碰的）。
下载链接：
https://cowtransfer.com/s/cb380c90ec4d46 点击链接查看 [ 鼠标连点器2.2.exe ] ，或访问奶牛快传 cowtransfer.com 输入传输口令 crfzy2 查看；


【20230523更新】鼠标连点器2.1
软件运行界面、使用方法同2.0版本。
更新内容：
按F11停止时，清除左侧激活状态。
下载链接：
https://cowtransfer.com/s/07ca114529c840 点击链接查看 [ 鼠标连点器2.1.exe ] ，或访问奶牛快传 cowtransfer.com 输入传输口令 6ah4gj 查看


【20230518更新】鼠标连点器2.0
感谢大家的支持，应坛友需求，发布2.0版本。
软件运行后界面如下：


使用方法：
1.设置点击频率，默认为10次/10秒，即每秒1次。
2.按F9或F10开启左键或右键连点，期间按F10键或F9键可切换为右键或左键连点，按F11键停止连点。

下载链接：
https://cowtransfer.com/s/a62896cb37ba44 点击链接查看 [ 鼠标连点器2.0.exe ] ，或访问奶牛快传 cowtransfer.com 输入传输口令 n8fbvp 查看


【2023年5月7日首发】鼠标连点器1.0
写在前面的话：编写这段小程序的初衷是看到了这篇贴子：
非常简单的连点器
https://www.52pojie.cn/thread-1780846-1-1.html
(出处: 吾爱破/解论坛)
鉴于大家的回贴中提到了”热键冲突“的问题，因此依葫芦画瓢制作了一个鼠标连点器。

软件名称：鼠标连点器
版本：1.0
运行系统：Windows
软件版本：32位
软件运行界面如下：

（发贴经验有限，大家能否看到图片，请回复一下）
使用方法：
1.设置要点击的按键，是左键还是右键
2.设置要点击的频率，注意这里是每10秒几次，默认是1秒钟1次。如果想每秒点击5次，那就在这里输入50。
注意：
（1）受限于计算机的不同配置，这里实际运行的频率可能不太准确，可根据实际需救自行调整数值。
（2）当设置数值过大、频率过高时，可能始终趋近于鼠标点击的极限速度。
3.将鼠标放置在要连点的位置，按F9开始，按F10停止

下载地址：
https://cowtransfer.com/s/6446b01ed3e34d 点击链接查看 [ 鼠标连点器1.0.exe ] ，或访问奶牛快传 cowtransfer.com 输入传输口令 p7rzf0 查看；



【文末】最/新版本程序源码
[Asm] [color=rgb(51, 102, 153) !important]纯文本查看 [color=rgb(51, 102, 153) !important]复制代码
[backcolor=rgb(27, 36, 38) !important][color=rgb(255, 255, 255) !important]

[color=#ffffff !important]?

001 002 003 004 005 006 007 008 009 010 011 012 013 014 015 016 017 018 019 020 021 022 023 024 025 026 027 028 029 030 031 032 033 034 035 036 037 038 039 040 041 042 043 044 045 046 047 048 049 050 051 052 053 054 055 056 057 058 059 060 061 062 063 064 065 066 067 068 069 070 071 072 073 074 075 076 077 078 079 080 081 082 083 084 085 086 087 088 089 090 091 092 093 094 095 096 097 098 099 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127

#region ;**** 参数创建于 ACNWrapper_GUI **** #PRE_Icon=favicon.ico #PRE_Outfile=鼠标连点器3.0.exe #PRE_UseX64=n #PRE_Res_requestedExecutionLevel=None #PRE_Add_Constants=y #PRE_Run_Tidy=y #endregion ;**** 参数创建于 ACNWrapper_GUI **** $g_szVersion = "鼠标连点器3.0-ZPSoft-52pojie.cn" If WinExists($g_szVersion) Then Exit ; 此脚本已经运行了 AutoItWinSetTitle($g_szVersion) #include <ButtonConstants.au3> #include <ComboConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <StaticConstants.au3> #include <WindowsConstants.au3> Opt("GUIOnEventMode", 1) #region ### START Koda GUI section ### Form=D:\autoit3\au3\form1鼠标连点器3.0.kxf $Form1 = GUICreate("鼠标连点器3.0-ZPSoft-52pojie.cn", 305, 122, 192, 124) GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close") $Group1 = GUICtrlCreateGroup("频率", 20, 8, 120, 50) $Input1 = GUICtrlCreateInput("10", 28, 28, 48, 21) GUICtrlSetOnEvent(-1, "Input1Change") $Label1 = GUICtrlCreateLabel("次/10秒", 80, 32, 48, 18) GUICtrlCreateGroup("", -99, -99, 1, 1) $Group2 = GUICtrlCreateGroup("热键", 160, 8, 120, 100) $Label2 = GUICtrlCreateLabel("左键", 169, 32, 24, 18) $Label3 = GUICtrlCreateLabel("右键", 169, 56, 24, 18) $Label4 = GUICtrlCreateLabel("停止", 169, 80, 26, 18) $Combo1 = GUICtrlCreateCombo("F1", 208, 28, 57, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL)) GUICtrlSetData(-1, "F2|F3|F4|F5|F6|F7|F8|F9|F10|F11|Esc", "F9") GUICtrlSetOnEvent(-1, "Combo1Change") $Combo2 = GUICtrlCreateCombo("F1", 208, 52, 57, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL)) GUICtrlSetData(-1, "F2|F3|F4|F5|F6|F7|F8|F9|F10|F11|Esc", "F10") GUICtrlSetOnEvent(-1, "Combo2Change") $Combo3 = GUICtrlCreateCombo("F1", 208, 76, 57, 25, BitOR($CBS_DROPDOWN, $CBS_AUTOHSCROLL)) GUICtrlSetData(-1, "F2|F3|F4|F5|F6|F7|F8|F9|F10|F11|Esc", "F11") GUICtrlSetOnEvent(-1, "Combo3Change") GUICtrlCreateGroup("", -99, -99, 1, 1) $Pic1 = GUICtrlCreatePic("D:\autoit3\au3\logo.jpg", 20, 64, 120, 40) GUISetState(@SW_SHOW) WinSetOnTop("鼠标连点器3.0-ZPSoft-52pojie.cn", "", 1) #endregion ### END Koda GUI section ### Dim $i, $LorR Dim $list[12] = ["F1", "F2", "F3", "F4", "F5", "F6", "F7", "F8", "F9", "F10", "F11", "Esc"] Dim $rate = 10 Dim $hotleft = "F9" Dim $hotright = "F10" Dim $hotstop = "F11" freshcombolist() HotKeySet("{" & $hotleft & "}", "leftstart") HotKeySet("{" & $hotright & "}", "rightstart") HotKeySet("{" & $hotstop & "}", "clickstop") While 1         If $i = 1 Then                 MouseClick($LorR)                 Sleep(10000 / $rate)         EndIf WEnd Func leftstart()         $LorR = "left"         GUICtrlSetBkColor($Label2, 0xFF0000)         GUICtrlSetBkColor($Label3, $GUI_BKCOLOR_TRANSPARENT)         GUICtrlSetBkColor($Label4, $GUI_BKCOLOR_TRANSPARENT)         $i = 1 EndFunc  ;==>leftstart Func rightstart()         $LorR = "right"         $i = 1         GUICtrlSetBkColor($Label2, $GUI_BKCOLOR_TRANSPARENT)         GUICtrlSetBkColor($Label3, 0xFF0000)         GUICtrlSetBkColor($Label4, $GUI_BKCOLOR_TRANSPARENT) EndFunc  ;==>rightstart Func clickstop()         $i = 0         GUICtrlSetBkColor($Label2, $GUI_BKCOLOR_TRANSPARENT)         GUICtrlSetBkColor($Label3, $GUI_BKCOLOR_TRANSPARENT)         GUICtrlSetBkColor($Label4, 0xFF0000) EndFunc  ;==>clickstop Func Form1Close()         Exit EndFunc  ;==>Form1Close Func Input1Change()         $rate = GUICtrlRead($Input1) EndFunc  ;==>Input1Change Func Combo1Change()         HotKeySet("{" & $hotleft & "}")         $hotleft = GUICtrlRead($Combo1)         HotKeySet("{" & $hotleft & "}", "leftstart")         freshcombolist() EndFunc  ;==>Combo1Change Func Combo2Change()         HotKeySet("{" & $hotright & "}")         $hotright = GUICtrlRead($Combo2)         HotKeySet("{" & $hotright & "}", "rightstart")         freshcombolist() EndFunc  ;==>Combo2Change Func Combo3Change()         HotKeySet("{" & $hotstop & "}")         $hotstop = GUICtrlRead($Combo3)         HotKeySet("{" & $hotstop & "}", "clickstop")         freshcombolist() EndFunc  ;==>Combo3Change Func freshcombolist()         Dim $n, $combolist = "|"         For $n In $list                 If $n <> $hotright And $n <> $hotstop Then                         $combolist = $combolist & $n & "|"                 EndIf         Next         GUICtrlSetData($Combo1, $combolist, $hotleft)         Dim $n, $combolist = "|"         For $n In $list                 If $n <> $hotleft And $n <> $hotstop Then                         $combolist = $combolist & $n & "|"                 EndIf         Next         GUICtrlSetData($Combo2, $combolist, $hotright)         Dim $n, $combolist = "|"         For $n In $list                 If $n <> $hotleft And $n <> $hotright Then                         $combolist = $combolist & $n & "|"                 EndIf         Next         GUICtrlSetData($Combo3, $combolist, $hotstop) EndFunc  ;==>freshcombolist