鼠标连点器V3.0(20230613更新)【AutoIt3编译】
【温馨提示】1.因程序不定期更新，占用篇幅越来越大，故文末仅放置最/新版本源码，敬请谅解。
2.之前版本仍暂时保留下载链接，如后续再有更新，可能会将其删除。
3.AutoIt3和易语言一样，编译出来的程序在运行时先释放文件到内存中，易被杀毒软件报错（不知道我理解的对不对），但本人无利益驱动，纯属个人爱好。
如对报毒介意者可到AutoIt官方网站下载安装Scite编辑器，将源码保存为.au3文件，即可在编辑器内打开运行，但自定义的程序图标和吾爱破/解论坛LOGO图片不能正常显示。
4.有的坛友提出，想要增加记录鼠标轨迹、多方位点击、间隔时间点击等功能，这些功能可以尝试下载安装按键精灵，稍微会点儿编程的就能玩转。
5.有的坛友提出，想要增加中键点击和左右键同时点击的功能，这个暂时还没打算，感觉此功能用的极少。如真有需要，可以再留言，根据个人需求探讨解决办法。
【20230613更新】鼠标连点器V3.0
运行界面：
https://attach.52pojie.cn/forum/202306/13/224621nauujilicggcav7i.jpg
更新内容：
1.应坛友要求，增加了通过下拉菜单切换热键的功能，可供选择的有Esc和F1~F10键。
2.优化了界面，增加了吾爱破/解的LOGO。
3.在按下热键启动和停止时，相应的标签背景显示为红色（今日的2.2版本更新了此功能）。
4.仅允许有一个程序在运行。
5.设置了程序运行时窗口置顶。
下载链接：https://cowtransfer.com/s/834b4604613042 点击链接查看 [ 鼠标连点器3.0.exe ] ，或访问奶牛快传 cowtransfer.com 输入传输口令 apmuoo 查看；
https://static.52pojie.cn/static/image/hrline/1.gif
【20230613更新】鼠标连点器2.2
软件运行界面、使用方法同2.0版本。
更新内容：
按热键启动和停止时，会将相应的标签背景显示为红色。
下步更新计划：
1.去掉左侧冗余的界面。
2.尝试加入自定义热键功能（其实这个功能我是不愿意触碰的）。
下载链接：
https://cowtransfer.com/s/cb380c90ec4d46 点击链接查看 [ 鼠标连点器2.2.exe ] ，或访问奶牛快传 cowtransfer.com 输入传输口令 crfzy2 查看；
https://static.52pojie.cn/static/image/hrline/1.gif
【20230523更新】鼠标连点器2.1
软件运行界面、使用方法同2.0版本。
更新内容：
按F11停止时，清除左侧激活状态。
下载链接：
https://cowtransfer.com/s/07ca114529c840 点击链接查看 [ 鼠标连点器2.1.exe ] ，或访问奶牛快传 cowtransfer.com 输入传输口令 6ah4gj 查看
https://static.52pojie.cn/static/image/hrline/1.gif
【20230518更新】鼠标连点器2.0
感谢大家的支持，应坛友需求，发布2.0版本。
软件运行后界面如下：
https://attach.52pojie.cn/forum/202305/19/195645yraw0onjnr2o88oa.png
使用方法：
1.设置点击频率，默认为10次/10秒，即每秒1次。
2.按F9或F10开启左键或右键连点，期间按F10键或F9键可切换为右键或左键连点，按F11键停止连点。
下载链接：
https://cowtransfer.com/s/a62896cb37ba44 点击链接查看 [ 鼠标连点器2.0.exe ] ，或访问奶牛快传 cowtransfer.com 输入传输口令 n8fbvp 查看
https://static.52pojie.cn/static/image/hrline/1.gif
【2023年5月7日首发】鼠标连点器1.0
写在前面的话：编写这段小程序的初衷是看到了这篇贴子：
非常简单的连点器
https://www.52pojie.cn/thread-1780846-1-1.html
(出处: 吾爱破/解论坛)
鉴于大家的回贴中提到了”热键冲突“的问题，因此依葫芦画瓢制作了一个鼠标连点器。
软件名称：鼠标连点器
版本：1.0
运行系统：Windows
软件版本：32位
软件运行界面如下：
https://attach.52pojie.cn/forum/202305/07/121735pr2mf98pf29049z5.png
（发贴经验有限，大家能否看到图片，请回复一下）
使用方法：
1.设置要点击的按键，是左键还是右键
2.设置要点击的频率，注意这里是每10秒几次，默认是1秒钟1次。如果想每秒点击5次，那就在这里输入50。
注意：
（1）受限于计算机的不同配置，这里实际运行的频率可能不太准确，可根据实际需救自行调整数值。
（2）当设置数值过大、频率过高时，可能始终趋近于鼠标点击的极限速度。
3.将鼠标放置在要连点的位置，按F9开始，按F10停止
下载地址：
https://cowtransfer.com/s/6446b01ed3e34d 点击链接查看 [ 鼠标连点器1.0.exe ] ，或访问奶牛快传 cowtransfer.com 输入传输口令 p7rzf0 查看；
https://static.52pojie.cn/static/image/hrline/1.gif
【文末】最/新版本程序源码
纯文本查看 复制代码
?
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 = ["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
页:
[1]