![]() |
#1 | ||||||||||
![]() ![]()
|
الموضوع باختصار هوا سكربت بتستخدمة عشان تخلى ال بارتى علطول معمولها فورم (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 الصور : عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ] عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ] عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ] عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ] عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ] عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ] __________________ منقول |
||||||||||
![]() |
يتصفح الموضوع حالياً : 1 (0 عضو و 1 زائر) | |
|
|
![]() |
||||
الموضوع | كاتب الموضوع | المنتدى | الردود | آخر مشاركة |
شرح تجنب مسح البارتي فى 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 |