برنامج Auto Party Script بيخلى البارتى على طول form

[FalCoN]

بدل ما تقعد تعمل form كل شوية للبارتة وواحد يدخل ويروح طالع من البارتى وتطر تعملة من جديد وتتخنق لا البرنامج دة بيعملة اوتوماتيك

الشرح


اول حاجة تاخد السكربت الى انا حاطة تحت دة وتنقلة في note pad وتعملة save في اي حتة تعجبك
وبعد متسطب البرنامج اللي انا حاطة فوق دة تفتحة من ال start حتلاقي برنامج موجود فية اسمة run script وتفتح منة الملف اللى انت عملتلو save حتطلعلك window حتدوس ok وبعد كدة في المربع حتكتب 1 وتدوس start بعد متكون فتحت اللعبة طبعا
كل دقيقة تقريبا حيعمل form لل partyويعمل accept للناس لوحدة

تحت السكربت حتلاقو صور عشان لو حد مش فاهم حاجة




السكربت :


MsgBox ( 0, "Party Script", "Start Script")

#include <GuiConstants.au3>
Opt("GUIOnEventMode", 1)

Dim $PT
Dim $PTC=600 ; time between paty checking (10 = 1 sec)
Dim $res
Dim $p=0

GuiCreate("BixParty", 150,100)
GUISetOnEvent($GUI_EVENT_CLOSE, 'CLOSEButton')
GuiCtrlCreateLabel("resolution"&@CR&"1 = 1024x768"&@CR&"2 = 1280x1024",5,5,80, 50)
$resW=GUICtrlCreateInput($res,90, 10, 50, 20,$ES_NUMBER)
GUICtrlSetLimit($resW,1)
$Start = GUICtrlCreateButton("Start", 40, 60, 60, 25,$BS_FLAT)
GUICtrlSetOnEvent($Start, "StartButton")

GUISetState()

While 1
Sleep(100)
if winactive("SRO_Client") then
$PT= $PT+1
ToolTip($PT,300,300)
if $res=1 Then
PatyChk()
EndIf
If $res=2 Then
PatyChk2()
EndIf
AcptPty()
endif
WEnd

Func StartButton()

$res = GUICtrlRead($resW)
GUICtrlSetData($Start,"Stop")

GUICtrlSetData($Start,"Start")

EndFunc

Func PatyChk()

if $PT >= $PTC then
$PT = 0
if (PixelGetColor(10,240) <> 0) and (PixelGetColor(11,300) <> 0) then
if (PixelGetColor(473,160)= 16777215) and (PixelGetColor(208,280) = 16777215 ) then
send("e")
Sleep(200)
EndIf
$p=0
send("e")
Sleep(500)
while (PixelGetColor(250,302) = 0) and $p<50
Sleep(50)
$p=$p+1
wend
$p=0
if (PixelGetColor(250,302) = 16777215) then
MouseClick("left",610,590,1,0)
Sleep(500)
MouseClick("left",460,540,1,0)
Endif
send("e")
Endif
Endif

Endfunc

Func PatyChk2()

if $PT >= $PTC then
$PT = 0
if (PixelGetColor(12,244) <> 0) and (PixelGetColor(10,300) <> 0) then
if (PixelGetColor(601,290)= 16777215) and (PixelGetColor(336,402) = 16777215 ) then
send("e")
Sleep(200)
EndIf
$p=0
send("e")
Sleep(500)

while (PixelGetColor(378,430) = 0) and $p<50
Sleep(50)
$p=$p+1
wend
$p=0
if (PixelGetColor(378,430) = 16777215) then
MouseClick("left",745,720,1,0)
Sleep(500)
MouseClick("left",594,668,1,0)
Endif
send("e")
Endif
Endif

Endfunc

Func AcptPty()
if PixelGetColor(10,300)<>0 Then
if $res = 1 Then
if (PixelGetColor(468,243) = 16777215) and (PixelGetColor(614,385) = 16777215) and (PixelGetColor(611,385) = 0) and (PixelGetColor(364,355) = 16777215) then
MouseClick("left",470,500,1,0)
Sleep(200)
Endif
EndIf

If $res = 2 Then
if (PixelGetColor(599,375) = 16777215) and (PixelGetColor(675,510) = 16777215) and (PixelGetColor(720,490) = 0) and (PixelGetColor(492,485) = 16777215) then
MouseClick("left",600,630,1,0)
Sleep(200)
Endif
EndIf
EndIf
Endfunc

Func CLOSEButton()

exit
EndFunc

الشرح بالصور















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

ودى صورة علشان تعرف انهو برنامج الى هتحملة





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

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

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