鼠标控制器（微调）

倪沁东

鼠标控制器（微调）
今天正好有这个需求就写了这么个小工具，该工具的主要功能及使用方法：

利用键盘的上下左右键控制鼠标的微调

说明：功能单一，刚才火绒报毒了，自行决定是否使用。




源码：

[C++] 纯文本查看 复制代码

#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[0] - $dx, $aPos[1], 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[0], $aPos[1] - $dy, 0)
        EndIf
        
EndFunc   ;==>_up


Func _right()
        
        $btn = ControlGetText("鼠标控制器", "", $Button1)
        
        If $btn <> "开始" Then
                
                
                $dx = ControlGetText("鼠标控制器", "", $Input1)
                
                $dy = ControlGetText("鼠标控制器", "", $Input2)

                Local $aPos = MouseGetPos()
                
                MouseMove($aPos[0] + $dx, $aPos[1], 0)
        EndIf
        
EndFunc   ;==>_right

Func _down()
        
        $btn = ControlGetText("鼠标控制器", "", $Button1)
        
        If $btn <> "开始" Then
                
                
                
                $dx = ControlGetText("鼠标控制器", "", $Input1)
                
                $dy = ControlGetText("鼠标控制器", "", $Input2)

                Local $aPos = MouseGetPos()
                
                MouseMove($aPos[0], $aPos[1] + $dy, 0)
                
        EndIf

        
EndFunc   ;==>_down

邪恶海盗

明明是AU3写C++,差点被骗...


话说从演示和说明上没看出来到底是干啥的...

netpeng

是用来防止手滑错点到什么页面的吗

想吃一碗肠旺面

主要作用是什么呢？

ooda65

感谢分享原创作品

yyp2020

是给手抖的人用的吧

mrz139

如果不用点开始，或是用键盘快捷键开始的话还是有点用的，比如没只接键盘没接鼠标或是鼠标坏了的时候可以临时代替一下鼠标用

倪沁东

邪恶海盗 发表于 2021-2-25 00:36
明明是AU3写C++,差点被骗...

没找到au3的代码区，我就随便找了个，主要是拉框的时候用的，比如精确截图之类的。

倪沁东

想吃一碗肠旺面 发表于 2021-2-25 02:43
主要作用是什么呢？

主要就是拉框的时候用的，你比如说你要精确的拉一个框，覆盖某个范围的时候或者截图的时候用的。