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



إحصائيات المنتدى
أفضل الأعضاء فى هذا الشهر
أخر المشاركات
13 عدد المساهمات
7 عدد المساهمات
3 عدد المساهمات
2 عدد المساهمات
2 عدد المساهمات
1 مُساهمة
1 مُساهمة
1 مُساهمة
1 مُساهمة
1 مُساهمة
إحصائيات سريعة
هذا المنتدى يتوفر على 36033 عُضو.
آخر عُضو مُسجل هو المطرى فمرحباً به.
أعضاؤنا قدموا 396989 مساهمة في هذا المنتدى , في 49386 موضوع

شاطر  |  



كاتب الموضوع
عضو مميز
عضو مميز
وسائل الإتصال
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

وشكرا



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


اهلا بيك يا زائر في توقيعي الخاص بالتوفيق ليك في منتدى المصري

[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]

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

شارك الموضوع على : Excite BookmarksDiggRedditDel.icio.usGoogleLiveSlashdotNetscapeTechnoratiStumbleUponNewsvineFurlYahooSmarking



سورس autohotkey

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

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

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

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


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

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



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

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

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

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




[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]
[ندعوك للتسجيل في المنتدى أو التعريف بنفسك لمعاينة هذا الرابط]فريق إشراف منتدى المصري
الرجوع الى أعلى الصفحة اذهب الى الأسفل
2012-07-02, 5:27 pm
الكاتب:
اللقب:
عضو فعال
الرتبه:
عضو فعال
المشاركات : 1199
الجـــنـــس : ذكر
علم دولتى : مصر
أوسمتك يا Tito4ever
الحالة:
وسائل الإتصال:
مُساهمةموضوع: رد: سورس autohotkey 2012-07-02, 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

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

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

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

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

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

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


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