كليكر بسط + السورس كود

[xXbandoXx201]

السلام عليكم
اليوم قررت اني اطرح كلكر بسيط اوي اوي ايو مصنوع بي الاوتو ات وطور انتا

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

لتحميل الكلكر من تحت
عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ]

[-N1TR0Z-]

اولا انا اسف يا جماعا على الغياب بس والله مشاكل كتير

المهم ياريت تحت لينك فحص يا بشا

[-N1TR0Z-]

تمام اتاكد من الملفات مفيش ا حاجه ضاره

[افندينا ™Hamboka™]

تسلم يا برنس بس يارت صوره لى scan