简单的鼠标连点程序

asc2hex

很简单,一张图搞定一切,AutoIt3编写.有时鼠标连点按得手酸,随便搞了这么个小工具.

熱鍵:
"`" (TAB键上面的键) ----->开始或者暂停
"shift+`"   ----->退出
"ESC" ----->切换左右键

没有界面,只有一个工具提示显示在屏幕左上方,拥有UIAccess属性,因此,此提示不会被一般程序遮挡.





鼠标键连点.rar (434.24 KB, 下载次数: 1374)

2023-7-17 14:57 上传

点击文件名下载附件

Svip5120

我要借此机会向大家表达我的由衷感激和感谢之情。在这个论坛里，我找到了一个真正充满温暖和友善的社区。每一次我在这里提问或分享，你们总是给予我耐心和热情的回复，帮助我解决了很多问题。

谢谢你们在我遇到困难时给予的支持和鼓励，这对我来说意义深远。你们的知识和分享让我学到了很多新东西，我感到自己在不断成长和进步。

我还要感谢这个论坛的管理员和所有工作人员，你们辛勤的付出使得这个论坛成为一个如此宝贵的资源。你们的辛苦工作和维护让我们能够享受到一个安全、友好、有序的环境。

最后，感谢每一位论坛成员，你们的存在让这个论坛变得如此特别。我珍惜我们的交流和互动，期待与大家在这个论坛继续分享和学习。

再次感谢大家的支持和帮助！

最诚挚的问候。

asc2hex

源代码在此,需要的自己拿去改吧

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

#include <Misc.au3>
Global $sTitle='Simple Click'
If _Singleton($sTitle, 1) = 0 Then Exit
#include <WinAPISysWin.au3>
#include <FontConstants.au3>
#include <WindowsConstants.au3>
#include <WinAPIGdiInternals.au3>
#include <GuiToolTip.au3>
#include <SendMessage.au3>
Global $Mkey
Global $Paused = True
Global const $sTooltipText='["`"->开始或暂停,"shift+`"->退出,"ESC"->切换左右键]'
Global $sKey='左键',$sState='暂停'
Global $Form1=GUICreate($sTitle,Default,Default,Default,Default,Default,$WS_EX_TOPMOST)
Global $hToolTipFont = _WinAPI_CreateFont(22, 0, 0, 0, 700, False, False, False, $DEFAULT_CHARSET, $OUT_DEFAULT_PRECIS, $CLIP_DEFAULT_PRECIS, $DEFAULT_QUALITY, 0, '微软雅黑')
Global $hToolTipHwnd = _GUIToolTip_Create($Form1, 0x00000001)
_GUIToolTip_SetMaxTipWidth($hToolTipHwnd, 600)
DllCall("UxTheme.dll", "int", "SetWindowTheme", "hwnd", $hToolTipHwnd, "wstr", "", "wstr", "") ;关闭视觉样式
_SendMessage($hToolTipHwnd, $TTM_SETTIPTEXTCOLOR, _WinAPI_SwitchColor(12632256)) ;启用视觉样式后，此消息不起作用
_SendMessage($hToolTipHwnd, $TTM_SETTIPBKCOLOR, _WinAPI_SwitchColor(16448)) ;启用视觉样式后，此消息不起作用
_SendMessage($hToolTipHwnd, $WM_SETFONT, $hToolTipFont, 1)
_WinAPI_SetWindowLong($hToolTipHwnd,$GWL_EXSTYLE, BitOR( _WinAPI_GetWindowLong($hToolTipHwnd,$GWL_EXSTYLE), $WS_EX_TRANSPARENT, $WS_EX_LAYERED))
_WinAPI_SetLayeredWindowAttributes($hToolTipHwnd, 0x010101,100)




_GUIToolTip_AddTool($hToolTipHwnd, 0, $sKey  &  $sState & '   ' & $sTooltipText, 0, 0, 0, 0, 0, 0x00000080 + 0x00000020)
_GUIToolTip_TrackActivate($hToolTipHwnd, True, 0, 0)
_SendMessage($hToolTipHwnd, 0X400 + 18, 0, 0)

;Shift-Esc
HotKeySet("+`", "EscD") ;Shift-Esc
HotKeySet("{Esc}", "EscDun")
HotKeySet("`", "Paus")

While 1
	If Not $Paused Then
		If Not $Mkey Then
			MouseClick("left")
		Else
			MouseClick("right")
		EndIf
	EndIf
	Sleep(20)


WEnd



Func EscDun()
	$Mkey = Not $Mkey
	$sKey = $Mkey = true ? '右键' : '左键'
	_GUIToolTip_UpdateTipText($hToolTipHwnd,0,0,$sKey  &  $sState & '   ' & $sTooltipText)
EndFunc   ;==>EscDun

Func Paus()
	$Paused = Not $Paused
	$sState = $Paused = true ? '暂停' : '运行'
	_GUIToolTip_UpdateTipText($hToolTipHwnd,0,0,$sKey  &  $sState & '   ' & $sTooltipText)
	While $Paused
		Sleep(100)
	WEnd
EndFunc   ;==>Paus

Func EscD()
	Exit
EndFunc   ;==>EscD

hxkjc

学习分享  ........

twinsdeng

感谢分享

akang

感谢分享，感觉我可以用来游戏匹配后自动点击准备。

a85401234

感谢楼主，感谢分享~

dongsuo52499

没有设置毫秒的地方？

noirkosakai

感谢楼主，感谢分享~

左右转

这个好，感谢分享

跌宕起伏

好像是射击类游戏专用