أهلاً وسهلاً بك زائرنا الكريم، إذا كانت هذه زيارتك الأولى للمنتدى، فيرجى التكرم بزيارة صفحة التعليمات، بالضغط هنا. كما يشرفنا أن تقوم بالتسجيل بالضغط هنا إذا رغبت بالمشاركة في المنتدى، أما إذا رغبت بقراءة المواضيع والإطلاع فتفضل بزيارة القسم الذي ترغب أدناه
#Persistent Run http://www.elmasryy.com/f8-montada MsgBox, by seto kiba SetTimer, PressTheKey, 500 Return
PressTheKey: Send, {Space} Return
SetTimer, masry, 500 Return
masry: Send,{Click down} Return
gosub, end !q::ExitApp ; Alt+Q to Quit Pause::Pause ; Pause using the Pause Button end: ExitApp
معني الاكواد alt +q بيقفل البرنامج pause في الكي بورد بيوقف البرنامج
بينط و يضرب كل 5 ثواني المطلوب عشان البرنامج يشتغل البرنامج مش قاري كروس فير عشان يشتغل عليها
السورس هيبقا زي كده
عشان الهاك يشتغل عليها
الكود:
HotKeySet("{F9}","BotOnOff") HotKeySet("{F11}","GetPixel") HotKeySet("{F10}","ExitApp") Tooltip("F9 = Start, F10 = Close", 0, 0) Dim $shoot = False Dim $drop = False $WinTitle = _GetHwnd("conquer.exe") $H= ControlGetHandle($WinTitle,"???", 1021) Func _GetHwnd($id,$txt="") ;Retrieve Hwnd of process $proc = 0 If _IsPIDOrProc($id) Then $proc = _PIDOrProcToHwnd($id) ElseIf _IsWinTitle($id,$txt) Then $proc = _WinTitleToHwnd($id,$txt) EndIf Return $proc EndFunc
Func _IsPIDOrProc(ByRef $id) ;Is running PID or Processname If Not ProcessExists($id) Then Return 0 Else Return $id EndIf EndFunc
Func _IsWinTitle(ByRef $id,$txt="") ;Is running Window Title $win = WinGetTitle($id,$txt) If Not $win Then Return 0 $id = $win Return 1 EndFunc
Func _IsWinVisible($handle) ;Is Window Visible If BitAnd( WinGetState($handle), 2 ) Then Return 1 Else Return 0 EndIf EndFunc
Func _PIDOrProcToHwnd($proc) ;Convert PID or process to Hwnd If ProcessExists($proc) <> $proc Then $proclist = ProcessList($proc) $proc = $proclist[1][1] EndIf $var = WinList() For $i = 1 to $var[0][0] ;Pair PID/Process with Window Title If $var[$i][0] <> "" AND _IsWinVisible($var[$i][1]) Then If WinGetProcess($var[$i][0]) = $proc Then $proc = WinGetHandle($var[$i][0]) EndIf Next Return $proc EndFunc
Func _WinTitleToHwnd($proc,$txt="") ;Convert Window title to Hwnd $winlist = WinList($proc,$txt) If Not $winlist[0][0] Then Return -1 Return $winlist[1][1] EndFunc
Func BotOnOff() If $shoot = False Then $shoot = True ToolTip("Shooting; F9 = Stop",0,0) Else $shoot = False Tooltip("F9 = Start, F10 = Close", 0, 0) EndIf EndFunc Func GetPixel() $MPos = MouseGetPos() MsgBox ( 0, "MSG", "MousePos: "& $MPos[0] &", " & $MPos[1]) Sleep(500) EndFunc Func ExitApp() Exit EndFunc While True If $shoot = True Then Dim $t = PixelSearch(1103,598,1148,642,5331033) if not @error Then sleep(Random(20000,20500,1)) ControlClick($WinTitle,"",$H,"left",1,random(19,25,1),random(20,26,1)) sleep(Random(200,500,1)) EndIf ControlClick($WinTitle,"XP2","Button2","right",1,random(200,994,1),random(126,650,1)) sleep(Random(400,1000,1)) EndIf WEnd
وشكرا
توقيع العضو : سيتو كيبا
اهلا بيك يا زائر في توقيعي الخاص بالتوفيق ليك في منتدى المصري
[حصري] زيادة عدد متابعين الفيس بوك بمئات الالاف مجرب 100
حل مشكله هاك SynBozPro اسم الغرفه حل مشكله العداد بتاع adf.ly شرح الهاك و كيف يعمل
الريبونات و الاسلحه لو عندك اي استفسار ارجو مراسلتي عن طريق الرسائل الخاصه
موضوع: رد: سورس autohotkey الإثنين 02 يوليو 2012, 5:27 pm
اسم العضو:Tito4ever
سيتو كيبا كتب:
الموضوع الاصلي هنا ولكنه لا يعمل
ده اخر ما توصلت اليه من اكود
الكود:
#Persistent Run http://www.elmasryy.com/f8-montada MsgBox, by seto kiba SetTimer, PressTheKey, 500 Return
PressTheKey: Send, {Space} Return
SetTimer, masry, 500 Return
masry: Send,{Click down} Return
gosub, end !q::ExitApp ; Alt+Q to Quit Pause::Pause ; Pause using the Pause Button end: ExitApp
معني الاكواد alt +q بيقفل البرنامج pause في الكي بورد بيوقف البرنامج
بينط و يضرب كل 5 ثواني المطلوب عشان البرنامج يشتغل البرنامج مش قاري كروس فير عشان يشتغل عليها
السورس هيبقا زي كده
عشان الهاك يشتغل عليها
الكود:
HotKeySet("{F9}","BotOnOff") HotKeySet("{F11}","GetPixel") HotKeySet("{F10}","ExitApp") Tooltip("F9 = Start, F10 = Close", 0, 0) Dim $shoot = False Dim $drop = False $WinTitle = _GetHwnd("conquer.exe") $H= ControlGetHandle($WinTitle,"???", 1021) Func _GetHwnd($id,$txt="") ;Retrieve Hwnd of process $proc = 0 If _IsPIDOrProc($id) Then $proc = _PIDOrProcToHwnd($id) ElseIf _IsWinTitle($id,$txt) Then $proc = _WinTitleToHwnd($id,$txt) EndIf Return $proc EndFunc
Func _IsPIDOrProc(ByRef $id) ;Is running PID or Processname If Not ProcessExists($id) Then Return 0 Else Return $id EndIf EndFunc
Func _IsWinTitle(ByRef $id,$txt="") ;Is running Window Title $win = WinGetTitle($id,$txt) If Not $win Then Return 0 $id = $win Return 1 EndFunc
Func _IsWinVisible($handle) ;Is Window Visible If BitAnd( WinGetState($handle), 2 ) Then Return 1 Else Return 0 EndIf EndFunc
Func _PIDOrProcToHwnd($proc) ;Convert PID or process to Hwnd If ProcessExists($proc) <> $proc Then $proclist = ProcessList($proc) $proc = $proclist[1][1] EndIf $var = WinList() For $i = 1 to $var[0][0] ;Pair PID/Process with Window Title If $var[$i][0] <> "" AND _IsWinVisible($var[$i][1]) Then If WinGetProcess($var[$i][0]) = $proc Then $proc = WinGetHandle($var[$i][0]) EndIf Next Return $proc EndFunc
Func _WinTitleToHwnd($proc,$txt="") ;Convert Window title to Hwnd $winlist = WinList($proc,$txt) If Not $winlist[0][0] Then Return -1 Return $winlist[1][1] EndFunc
Func BotOnOff() If $shoot = False Then $shoot = True ToolTip("Shooting; F9 = Stop",0,0) Else $shoot = False Tooltip("F9 = Start, F10 = Close", 0, 0) EndIf EndFunc Func GetPixel() $MPos = MouseGetPos() MsgBox ( 0, "MSG", "MousePos: "& $MPos[0] &", " & $MPos[1]) Sleep(500) EndFunc Func ExitApp() Exit EndFunc While True If $shoot = True Then Dim $t = PixelSearch(1103,598,1148,642,5331033) if not @error Then sleep(Random(20000,20500,1)) ControlClick($WinTitle,"",$H,"left",1,random(19,25,1),random(20,26,1)) sleep(Random(200,500,1)) EndIf ControlClick($WinTitle,"XP2","Button2","right",1,random(200,994,1),random(126,650,1)) sleep(Random(400,1000,1)) EndIf WEnd
وشكرا
الف شكر بس كمل جميلك ونزلنا البرنامج كامل ومتعدل عليه