ط§ظ„ط¨ظ‚ط§ط، ظ…ط³ط¬ظ„ ط¯ط§ط¦ظ…ط¢
ط§ظ„ط¥ط¹ظ„ط§ظ†ط§طھ
قديم 05-02-2008, 08:22 AM   #1

patoot2007





• الانـتـسـاب » Dec 2007
• رقـم العـضـويـة » 7288
• المشـــاركـات » 145
• الـدولـة »
• الـهـوايـة »
• اسـم الـسـيـرفـر »
• الـجـنـس »
• نقـاط التقييم » 10
patoot2007 صـاعـد

patoot2007 غير متواجد حالياً



افتراضي Auto Party Script عشا البارتي تفضل في الفورم على طول



الموضوع باختصار هوا سكربت بتستخدمة عشان تخلى ال بارتى علطول معمولها فورم (form)

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

وتنزل برنامج اسمة Auto it

بعد كدة تاخد السكربت (حتلاقية موجود تحت) وتنقلة في 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



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

__________________


منقول




رد مع اقتباس
إعلانات google

 


يتصفح الموضوع حالياً : 1 (0 عضو و 1 زائر)
 

ضوابط المشاركة
لا تستطيع إضافة مواضيع جديدة
لا تستطيع الرد على المواضيع
لا تستطيع إرفاق ملفات
لا تستطيع تعديل مشاركاتك

BB code متاحة
كود [IMG] متاحة
كود HTML معطلة

الانتقال السريع

المواضيع المتشابهه
الموضوع كاتب الموضوع المنتدى الردود آخر مشاركة
شرح تجنب مسح البارتي فى Party Matching meromome الـقـسـم الـتـعـلـيـمـى 8 15-09-2011 04:32 PM
hازاي اخلي السروكينج يعمل auto party و auto accept party hos9797 قسم الاستفسارات ومشاكل وحلول ال Sroking 1 14-06-2011 03:56 AM
برنامج Auto Party Script بيخلى البارتى على طول form FalCoN قسم المواضيع المكررة و المخالفة 79 16-07-2009 01:14 AM


الساعة الآن 02:20 AM.