鼠标控制器（微调）
本帖最后由 倪沁东 于 2021-2-24 23:25 编辑鼠标控制器（微调）
今天正好有这个需求就写了这么个小工具，该工具的主要功能及使用方法：
利用键盘的上下左右键控制鼠标的微调
说明：功能单一，刚才火绒报毒了，自行决定是否使用。
源码：
#Region ;**** 参数创建于 ACNWrapper_GUI ****
#PRE_UseX64=n
#PRE_Res_requestedExecutionLevel=None
#EndRegion ;**** 参数创建于 ACNWrapper_GUI ****
HotKeySet("{LEFT}", "_left")
HotKeySet("{UP}", "_up")
HotKeySet("{RIGHT}", "_right")
HotKeySet("{DOWN}", "_down")
#include <Misc.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("鼠标控制器", 419, 133, 192, 124)
$Label1 = GUICtrlCreateLabel("△X", 40, 40, 36, 17)
$Input1 = GUICtrlCreateInput("20", 88, 40, 65, 21)
$Label2 = GUICtrlCreateLabel("△Y", 40, 80, 36, 17)
$Input2 = GUICtrlCreateInput("20", 88, 72, 65, 21)
$Button1 = GUICtrlCreateButton("开始", 240, 48, 81, 49)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
Local $hDLL = DllOpen("user32.dll")
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
change()
EndSwitch
WEnd
Func change()
$btn = ControlGetText("鼠标控制器", "", $Button1)
If $btn = "开始" Then
ControlSetText("鼠标控制器", "", $Button1, "暂停")
Else
ControlSetText("鼠标控制器", "", $Button1, "开始")
EndIf
EndFunc ;==>change
Func _left()
$btn = ControlGetText("鼠标控制器", "", $Button1)
If $btn <> "开始" Then
$dx = ControlGetText("鼠标控制器", "", $Input1)
$dy = ControlGetText("鼠标控制器", "", $Input2)
Local $aPos = MouseGetPos()
MouseMove($aPos - $dx, $aPos, 0)
Sleep(100)
EndIf
EndFunc ;==>_left
Func _up()
$btn = ControlGetText("鼠标控制器", "", $Button1)
If $btn <> "开始" Then
$dx = ControlGetText("鼠标控制器", "", $Input1)
$dy = ControlGetText("鼠标控制器", "", $Input2)
Local $aPos = MouseGetPos()
MouseMove($aPos, $aPos - $dy, 0)
EndIf
EndFunc ;==>_up
Func _right()
$btn = ControlGetText("鼠标控制器", "", $Button1)
If $btn <> "开始" Then
$dx = ControlGetText("鼠标控制器", "", $Input1)
$dy = ControlGetText("鼠标控制器", "", $Input2)
Local $aPos = MouseGetPos()
MouseMove($aPos + $dx, $aPos, 0)
EndIf
EndFunc ;==>_right
Func _down()
$btn = ControlGetText("鼠标控制器", "", $Button1)
If $btn <> "开始" Then
$dx = ControlGetText("鼠标控制器", "", $Input1)
$dy = ControlGetText("鼠标控制器", "", $Input2)
Local $aPos = MouseGetPos()
MouseMove($aPos, $aPos + $dy, 0)
EndIf
EndFunc ;==>_down
明明是AU3写C++,差点被骗...
话说从演示和说明上没看出来到底是干啥的... 是用来防止手滑错点到什么页面的吗:lol 主要作用是什么呢？ 感谢分享原创作品 是给手抖的人用的吧;www 如果不用点开始，或是用键盘快捷键开始的话还是有点用的，比如没只接键盘没接鼠标或是鼠标坏了的时候可以临时代替一下鼠标用 邪恶海盗 发表于 2021-2-25 00:36
明明是AU3写C++,差点被骗...
没找到au3的代码区，我就随便找了个，主要是拉框的时候用的，比如精确截图之类的。 想吃一碗肠旺面 发表于 2021-2-25 02:43
主要作用是什么呢？
主要就是拉框的时候用的，你比如说你要精确的拉一个框，覆盖某个范围的时候或者截图的时候用的。
页:
[1]