MsgBox(0, "Auto Clicker For [سلكرود فور عربي ]", "Refer to the ReadMe file for more help using this program By Bando." & @CRLF & " " & @CRLF & "Thanks and enjoy.")
MsgBox(0, "ملحوظه", "البرنامج هتطلعلط الاسئله دلواتي عشان يعرفك الاستخدام بمعني اصح الهوت كي." & @CRLF & " " & @CRLF & "جميع الحقوق محفوظه ل العضو [Bando] .silkroad4arab")
$startclick = InputBox("الهوت كي ", "Button to start left clicking", "{F9}", "", -1, -1, 0, 0)
$Rightclick = InputBox("الهوت كي التاني Bando", "Button to start right clicking", "{F10}", "", -1, -1, 0, 0)
$HK_STOP = InputBox("اخر هوت كي ", "Button to stop all clicking commands", "{F11}", "", -1, -1, 0, 0)
HotKeySet($startclick, "startclick")
HotkeySet($HK_STOP, "HK_STOP")
Hotkeyset($Rightclick, "Rightclick")
;HotKeySet("{F8}", "Autobuff")
; This is the clicking function
Func startclick()
; Continuous loop that clicks the left mouse button
while(1)
; Starts the auto clicker
MouseClick("left")
Opt("MouseClickDelay", 10)
WEnd
EndFunc
Func Rightclick()
; Continuous loop that clicks the left mouse button
while(1)
MouseClick("Right")
WEnd
EndFunc
Func Autobuff()
While (1)
Send("2")
Opt("MouseCoordMode", 1)
MouseClick("Right",1226,25)
Opt("MouseClickDownDelay", 200)
Send("3")
Opt("MouseCoordMode", 1)
MouseClick("Right",1226,25)
Opt("MouseClickDownDelay", 200)
Send("6")
Opt("MouseCoordMode", 1)
MouseClick("Right",1226,25)
Opt("MouseClickDownDelay", 700)
Send("2")
Opt("MouseCoordMode", 1)
MouseClick("Right",1226,65)
Opt("MouseClickDownDelay", 200)
Send("3")
Opt("MouseCoordMode", 1)
MouseClick("Right",1226,65)
Opt("MouseClickDownDelay", 200)
Send("6")
Opt("MouseCoordMode", 1)
MouseClick("Right",1226,65)
Opt("MouseClickDownDelay", 700)
Send("2")
Opt("MouseCoordMode", 1)
MouseClick("Right",1226,105)
Opt("MouseClickDownDelay", 200)
Send("3")
Opt("MouseCoordMode", 1)
MouseClick("Right",1226,105)
Opt("MouseClickDownDelay", 200)
Send("6")
Opt("MouseCoordMode", 1)
MouseClick("Right",1226,105)
Opt("MouseClickDownDelay", 700)
Send("2")
Opt("MouseCoordMode", 1)
MouseClick("Right",1226,160)
Opt("MouseClickDownDelay", 200)
Send("3")
Opt("MouseCoordMode", 1)
MouseClick("Right",1226,160)
Opt("MouseClickDownDelay", 200)
Send("6")
Opt("MouseCoordMode", 1)
MouseClick("Right",1226,160)
Opt("MouseClickDownDelay", 700)
Send("2")
Opt("MouseCoordMode", 1)
MouseClick("Right",1226,195)
Opt("MouseClickDownDelay", 200)
Send("3")
Opt("MouseCoordMode", 1)
MouseClick("Right",1226,195)
Opt("MouseClickDownDelay", 200)
Send("6")
Opt("MouseCoordMode", 1)
MouseClick("Right",1226,195)
Opt("MouseClickDownDelay", 700)
Wend
Endfunc
; Stops the program
Func HK_STOP()
while 1 = 1
Sleep(1000)
wend
EndFunc
; Need to keep the program running until you press the hotkey
while(1)
sleep(1000)
WEnd
|