المنتدىالمجلةإتصل بنامركز المصري
الأوسمةالرصيدالمكافأت الشهريةشرح المنتدى
أهلاً و سهلاً بك فى منتدى المصري.
أهلاً وسهلاً بك زائرنا الكريم، إذا كانت هذه زيارتك الأولى للمنتدى، فيرجى التكرم بزيارة صفحة التعليمات، بالضغط هنا. كما يشرفنا أن تقوم بالتسجيل بالضغط هنا إذا رغبت بالمشاركة في المنتدى، أما إذا رغبت بقراءة المواضيع والإطلاع فتفضل بزيارة القسم الذي ترغب أدناه



إحصائيات المنتدى
أفضل الأعضاء فى هذا الشهر
أخر المشاركات
4 المساهمات
2 المساهمات
إحصائيات سريعة
هذا المنتدى يتوفر على 37476 عُضو.
آخر عُضو مُسجل هو master2130 فمرحباً به.
أعضاؤنا قدموا 422284 مساهمة في هذا المنتدى , في 72372 موضوع


شاطر  |  



سيتو كيبا
كاتب الموضوع
عضو مميز
عضو مميز
وسائل الإتصال
facebook

البيانات
المشاركات : 909
الجـــنـــس : ذكر
علم دولتى : مصر
عدد التقييمات
عدد التقييمات لكاتب الموضوع :
أوسمتك يا سيتو كيبا

الأوسـمـة & الرصيد
 : وسام العضو المميز
02072012
مُساهمةموضوع: سورس autohotkey

الموضوع الاصلي هنا
ولكنه لا يعمل

ده اخر ما توصلت اليه
من اكود
الكود:
#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

وشكرا



توقيع العضو : سيتو كيبا


اهلا بيك يا زائر في توقيعي الخاص بالتوفيق ليك في منتدى المصري
سورس autohotkey  2069019191541438018
[حصري] زيادة عدد متابعين الفيس بوك بمئات الالاف مجرب 100
حل مشكله هاك SynBozPro اسم الغرفه
حل مشكله العداد بتاع adf.ly
شرح الهاك و كيف يعمل

سورس autohotkey  Sign
الريبونات و الاسلحه
لو عندك اي استفسار ارجو مراسلتي عن طريق الرسائل الخاصه

مواضيع مماثلة

-
» مهم جدا لكل الى بيعمل فارم .. AutoHotKey
» [من برمجتي] : سورس كود برنامج منبة
» [من برمجتي] : سورس كود برنامج Yahoo Multi Messenger
» سورس كود برنامج مفكرة لتعديل الموضوع قبل طرحة بلغة BBCode .. <!-- من برمجتي -->
» [من برمجتي] : سورس كود برنامج مساعد لإضافة برامج لقائمة زر الفأرة الأيمن

شارك الموضوع على : reddit



سورس autohotkey

استعرض الموضوع التالي استعرض الموضوع السابق الرجوع الى أعلى الصفحة
سورس autohotkey  Icon_minitimeالإثنين 02 يوليو 2012, 12:40 am
الكاتب:
اللقب:
عضو مميز
الرتبه:
عضو مميز
Mamo
المشاركات : 2007
الجـــنـــس : ذكر
علم دولتى : مصر
أوسمتك يا Mamo

الأوسـمـة & الرصيد
 : وسام العضو المميز
الحالة:
وسائل الإتصال:
مُساهمةموضوع: رد: سورس autohotkey سورس autohotkey  Icon_minitimeالإثنين 02 يوليو 2012, 12:40 am

تسلم على الموضوع وجارى التجربه

توقيع العضو : Mamo


اللى عنده كلمه حلوه يقلها

واللى مش عنده  يبقى ميتكلمشى احسن D:

سورس autohotkey  620749056
سورس autohotkey  763557571
سورس autohotkey  335086238
الرجوع الى أعلى الصفحة اذهب الى الأسفل
سورس autohotkey  Icon_minitimeالإثنين 02 يوليو 2012, 3:59 pm
الكاتب:
اللقب:
عضو مميز
الرتبه:
عضو مميز
Mohamed Iron
المشاركات : 3662
الجـــنـــس : ذكر
علم دولتى : مصر
أوسمتك يا Mohamed Iron

الأوسـمـة & الرصيد
 : بــدون اوســمــة
الحالة:
وسائل الإتصال:
مُساهمةموضوع: رد: سورس autohotkey سورس autohotkey  Icon_minitimeالإثنين 02 يوليو 2012, 3:59 pm

مش فاهم حاجة بس ع العموم شكرا

توقيع العضو : Mohamed Iron


سورس autohotkey  G9qmB

لمراسلة الادارة بأمور خاصة لا يشاهدها غير الادارة
من هنا لوضع اى شكوى خاصة بالمشرفين
من هنا لتقديم الاقتراحات البنائه بهدف تطوير منتدانا الحبيب
من هنا لمتابعة قوانين المنتدىفريق إشراف منتدى المصري
الرجوع الى أعلى الصفحة اذهب الى الأسفل
سورس autohotkey  Icon_minitimeالإثنين 02 يوليو 2012, 5:27 pm
الكاتب:
اللقب:
عضو فعال
الرتبه:
عضو فعال
Tito4ever
المشاركات : 1199
الجـــنـــس : ذكر
علم دولتى : مصر
أوسمتك يا Tito4ever
الحالة:
وسائل الإتصال:
مُساهمةموضوع: رد: سورس autohotkey سورس autohotkey  Icon_minitimeالإثنين 02 يوليو 2012, 5:27 pm

سيتو كيبا كتب:
الموضوع الاصلي هنا
ولكنه لا يعمل

ده اخر ما توصلت اليه
من اكود
الكود:
#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

وشكرا


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

mohamedd5 كتب:
مش فاهم حاجة بس ع العموم شكرا

ومين الى فهم يعنى king منتظرين البرنامج

توقيع العضو : Tito4ever


سورس autohotkey  13391610962سورس autohotkey  13391610961سورس autohotkey  13391610962
سورس autohotkey  13391602214سورس autohotkey  Signسورس autohotkey  13391602214
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
۞ إِنَّ اللَّهَ وَمَلائِكَتَهُ يُصَلُّونَ عَلَى النَّبِيِّ يَا أَيُّهَا الَّذِينَ آمَنُوا صَلُّوا عَلَيْهِ وَسَلِّمُوا تَسْلِيمًا ۞
~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
سورس autohotkey  13443450531
الرجوع الى أعلى الصفحة اذهب الى الأسفل

سورس autohotkey

استعرض الموضوع التالي استعرض الموضوع السابق الرجوع الى أعلى الصفحة

« الموضوع السابق|الموضوع التالي »

الـــرد الســـريـــع

((ما يلفظ من قول إلا لديه رقيب عتيد))

المتواجدون حاليا فى هذا القسم
عدد المتصفحين الحاليين للمنتدى: لا أحد
سورس autohotkey  Collap12تعليمات المشاركة
لاتستطيع الرد على المواضيع في هذا المنتدى

BB Code is متاحة
كود [IMG] متاحة
كود HTML متاحة


Powered by vBulletin™ Version 3.8.7
Copyright © 2017 vBulletin Solutions, Inc. All rights reserved
جميع الحقوق محفوظة لمنتدى المصري