鼠标按键精灵

hufyhang

#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>

#AutoIt3Wrapper_Res_Description=MarinaClick
#AutoIt3Wrapper_Res_Fileversion=1.01Beta
#AutoIt3Wrapper_Res_Language=English

#Region ### START Koda GUI section ### Form=

HotKeySet("{F1}", "Focus")
HotKeySet("{F2}", "Active")
HotKeySet("{F3}", "Pause")
HotKeySet("{ESC}", "Terminate")

Global $pos, $index, $target, $locked = 0, $flag = 1, $inf = 0

$Form2 = GUICreate("MarinaClick", 270, 160, 270, 150)
$Input1 = GUICtrlCreateInput("5", 112, 8, 41, 21)
$Label1 = GUICtrlCreateLabel("Set Delay:", 32, 8, 76, 22)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$Label2 = GUICtrlCreateLabel("Seconds", 160, 8, 66, 22)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$Label3 = GUICtrlCreateLabel("F1 = Focus | F2 = Active | F3 = Pause", 20, 80, 260, 21)
GUICtrlSetFont(-1, 11, 400, 0, "Arial")
$Label4 = GUICtrlCreateLabel("Current Statue:", 20, 107, 108, 22)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$Label5 = GUICtrlCreateLabel("Standby", 150, 100, 97, 34)
GUICtrlSetFont(-1, 16, 800, 0, "Arial Black")
GUICtrlSetColor(-1, 0x008000)
$Label6 = GUICtrlCreateLabel("Repeat:", 48, 32, 59, 22)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$Input2 = GUICtrlCreateInput("10", 112, 32, 41, 21)
$Label7 = GUICtrlCreateLabel("Times", 160, 32, 47, 22)
GUICtrlSetFont(-1, 12, 400, 0, "Arial")
$Label7 = GUICtrlCreateLabel("Leave blank for Infinite-Loop mode", 35, 56, 260, 22)
GUICtrlSetFont(-1, 10, 400, 0, "Arial")
$Progress1 = GUICtrlCreateProgress(5, 135, 260, 10)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit

        EndSwitch
WEnd

Func Focus()
        $pos = MouseGetPos()
        $locked = 1
        GUICtrlSetData($Label5, "Ready")
        TrayTip("Tips", "Position Locked -- ("&$pos[0]&","&$pos[1]&")", 5, 1)
EndFunc

Func Terminate()
        Exit
EndFunc

Func Active()
        If $locked <> 1 Then
                MsgBox(16, "Warning", "Pls focus on a click position by pressin' [F1] bfr activing process.")
        Else 
                LoopBlock()
        EndIf
EndFunc

Func LoopBlock()
        TrayTip("Tips", "Working in progress...", 5, 1)
        GUICtrlSetData($Label5, "Actived")
        If GUICtrlRead($Input2) <> "" Then
                Loop()
        Else
                InfLoop()
        EndIf
        
        ;ProgData()
        GUICtrlSetData($Label5, "Standby")
        GUICtrlSetData($Progress1, 0)
        TrayTip("Tips", "Process finished", 5, 1)
EndFunc

Func ProgData()
        GUICtrlSetData($Progress1, $index*100/$target)
EndFunc

Func Loop()
        $index = 1
        $target = GUICtrlRead($Input2)
        While $index <> $target+1
                ProgData()
                MouseClick("left", $pos[0], $pos[1])
                sleep(GUICtrlRead($Input1)*1000)
                $index += 1
        WEnd
        $locked = 0
EndFunc

Func InfLoop()
        $inf = 1
        While $flag
                MouseClick("left", $pos[0], $pos[1])
                sleep(GUICtrlRead($Input1)*1000)
        WEnd
        $flag = 1
        $inf = 0
EndFunc

Func Pause()
        If $inf = 1 Then
                $flag = 0
        Else
                MsgBox(16, "Warning", "Pause function,[F3], could ONLY be used under Infinite-mode.")
        EndIf
EndFunc

stch

謝謝提供！！！！

bgoo2008

谢谢lz分享！

urwk

。。。。。。。。。。。。

qvvcity

看一看，谢谢

Gray

不知道这个是用来干嘛的~~

ollydbg

这个怎么用啊

jianganew

下来看看,谢谢了

迷龙88

謝謝提供！！！！

hzcjd

这个怎么使用 不懂

ashfinal

原来写过一个完整版的 弄丢了 也懒的写了

haijie1223

标记一下，谢谢分享

jkl642359

最快是多少？

jkl642359

怎么是英文的啊，还会报错

water197

dddddddddddddddddddddddddddddddddddddddw