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

بدل ما تقعد تعمل 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

الشرح بالصور
http://img412.imageshack.us/img412/4457/17940107yg9.jpg


http://img262.imageshack.us/img262/165/80713347ap2.jpg


http://img504.imageshack.us/img504/5017/53624423oe4.jpg


http://img412.imageshack.us/img412/4214/28516371xd7.jpg


http://img262.imageshack.us/img262/8661/63175919ou4.jpg


رابط التحميل من الموقع الاصلى اهو http://www.autoitscript.com/autoit3/downloads.php

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

http://img407.imageshack.us/img407/5999/61028866vz2.jpg



ودة البرنامج من رفعى انا على rapidshare فك الضغط falcon_2007
http://rapidshare.com/files/13626138...setup.rar.html

و نتيجة الفحص منى بردة http://www.virustotal.com/analisis/8...3001da447a9003

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

فين الردود

©§¤°تسلموو°¤§©¤ـــــــــــــــــــــــــــــــــــ ــــــــــــــــــــــــــــــــــــــــــ¤©§¤°حلو ووو°¤§©
©§¤°تسلموو°¤§©¤ـــــــــــــــــــــــــــــــــــ ــــــــــــــــــــــــــــــــــــــــــ¤©§¤°حلو ووو°¤§©
©§¤°تسلموو°¤§©¤ـــــــــــــــــــــــــــــــــــ ــــــــــــــــــــــــــــــــــــــــــ¤©§¤°حلو ووو°¤§©
©§¤°تسلموو°¤§©¤ـــــــــــــــــــــــــــــــــــ ــــــــــــــــــــــــــــــــــــــــــ¤©§¤°حلو ووو°¤§©
©§¤°تسلموو°¤§©¤ـــــــــــــــــــــــــــــــــــ ــــــــــــــــــــــــــــــــــــــــــ¤©§¤°حلو ووو°¤§©
©§¤°تسلموو°¤§©¤ـــــــــــــــــــــــــــــــــــ ــــــــــــــــــــــــــــــــــــــــــ¤©§¤°حلو ووو°¤§©
©§¤°تسلموو°¤§©¤ـــــــــــــــــــــــــــــــــــ ـــــــــــــــــــــــــــــــــ¤©§¤°حلوووو°¤§©
©§¤°تسلموو°¤§©¤ـــــــــــــــــــــــــــــــــــ ـــــــــــــــــــــ¤©§¤°حلوووو°¤§©
©§¤°تسلموو°¤§©¤ـــــــــــــــــــــــــــــــــــ ــــــــ ¤©§¤°حلوووو°¤§©
©§¤°تسلموو°¤§©¤ـــــــــــــــــــــــــــــــــ¤© §¤°حلوووو°¤§©
©§¤°تسلموو°¤§©¤ـــــــــــــــــــــ¤©§¤°حلوووو°¤§ ©
©§¤°تسلموو°¤§©¤ـــــــــــــ¤©§¤°حلوو°¤§©
©§¤°تسلموو°¤§©¤ــ¤©§¤°حلوو°¤§©
مشكوووووووووووووووووووووور
مشكوووووووووووووووور

شكرا ياباشا على الرد

:d:d
مشكوووووووووووووور:d:d

شكرا لمروركم

مش شغال عندى يا باشا

Thxxxxxxxxxx

اتاكد انك حطيت الاسكيريبت فى note pad

thxxx

thnx man

thx

Thx pro

Thx man^^
واتمنى ان تاتى لنل ببرامج احسن

مع انى مانزلتهوش xD