الموقع العربي الاول للعبة Silkroad Online

الموقع العربي الاول للعبة Silkroad Online (https://silkroad4arab.com/vb/index.php)
-   قـسـم S4 League (https://silkroad4arab.com/vb/forumdisplay.php?f=246)
-   -   كليكر بسط + السورس كود (https://silkroad4arab.com/vb/showthread.php?t=528829)

xXbandoXx201 24-09-2013 09:22 PM

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


كود:

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

لتحميل الكلكر من تحت
هنا تحياتي علي مركذ مخذن ارجوا الفحص عشان سرعه النت بطيئه حتي شوفhttp://im32.gulfup.com/3jwIf.png

-N1TR0Z- 26-09-2013 02:58 PM

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

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

-N1TR0Z- 27-09-2013 12:06 AM

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

افندينا ™Hamboka™ 03-10-2013 08:28 PM

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


الساعة الآن 12:33 PM.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2026, vBulletin Solutions, Inc.