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

zhaopengdoctor · 发表于 2023-5-7 12:24

本帖最后由 zhaopengdoctor 于 2023-6-13 23:10 编辑

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

【20230613更新】鼠标连点器V3.0
运行界面：
未标题-1.jpg

更新内容：
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版本。
软件运行后界面如下：
未命名图片.png

使用方法：
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位
软件运行界面如下：
未命名图片.png

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

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

【文末】最新版本程序源码

[Asm] 纯文本查看 复制代码

#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

18号 · 发表于 2023-5-7 13:21

转蓝奏https://wwxg.lanzoub.com/b01etzbzg
密码:67aa

mokson · 发表于 2023-5-7 14:40

一秒钟点那么多次有什么用？

你太牛逼了 · 发表于 2023-5-7 12:27

前排谢谢分享

雾都孤尔 · 发表于 2023-5-7 12:39

收藏备用，感谢分享。

山娃 · 发表于 2023-5-7 12:44

收藏备用，感谢分享。

小海马 · 发表于 2023-5-7 13:04

有没有安卓的，做个点点直播间赞挺不错的

hza9099 · 发表于 2023-5-7 13:48

感谢分享，收藏了！

winterchen · 发表于 2023-5-7 14:41

感谢，收藏备用了

czyufeng · 发表于 2023-5-7 14:43

锟斤拷谢~锟斤拷支锟斤拷

帐号		自动登录	找回密码
密码			注册[Register]

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

免费评分

免费评分

个人中心