Code: Select all
f9::Suspend
LButton::
Loop
{
SetMouseDelay 20
Click
If(GetKeyState("LButton","P")=0)
Break
}
Any help with the above request would be greatly appreciated.
Code: Select all
Code: Select all
f9::Suspend
LButton::
RButton::
SetMouseDelay 20
While, (GetKeyState("LButton","P") Or GetKeyState("RButton","P"))
Click
Return
Code: Select all
f9::
Suspend
SetTimer, LClick, Off
SetTimer, RClick, Off
Return
$LButton::SetTimer, LClick, 50
$LButton Up::SetTimer, LClick, Off
LClick:
SetMouseDelay 20
Click
Return
$RButton::SetTimer, RClick, 50
$RButton Up::SetTimer, RClick, Off
RClick:
SetMouseDelay 20
Click, right
Return
Code: Select all
f9::Suspend
LButton::
SetMouseDelay 20
While, GetKeyState("LButton","P")
{
Click
Click, right
}
Return
Code: Select all
HotKey, q, Off
Return ;End of Auto-execute Section
q::Return
f9::Suspend
LButton::
SetMouseDelay 20
HotKey, q, On
While, GetKeyState("LButton","P")
{
If !GetKeyState("q","P")
Click, right
}
HotKey, q, Off
Return
Code: Select all
MsgBox, %A_AhkVersion%
Code: Select all
f9::Suspend
LButton::
+LButton::
SetMouseDelay 20
While, GetKeyState("LButton","P")
{
Click
If GetKeyState("Shift")
Click, right
}
Return
Code: Select all
f9::Suspend
~Shift::
RClick := !RClick
ToolTip % RClick ? "On":"Off"
KeyWait, Shift
ToolTip
Return
LButton::
+LButton::
SetMouseDelay 20
While, GetKeyState("LButton","P")
{
Click
If RClick
Click, right
}
Return
Users browsing this forum: Shoobis and 69 guests