شـريـط الاهـداءات | |
|
أدوات الموضوع | انواع عرض الموضوع |
26-04-2013, 03:16 PM | #1 | ||||||||||||
|
يا جماعة انا عندي الاسبوت وشغال بسم الله ما شاء الله بس في حاجة واحدة ناقصاه مابيعملش اوتو بارتي عايز بس برنامج يكون كويس وموثوق فيه يرفع بارتي لوحه ويقبل الناس ولكم جزيل الشكر |
||||||||||||
|
26-04-2013, 05:21 PM | #2 | ||||||||||||
|
للاسف مفيش برنامج بيعمل كده |
||||||||||||
|
26-04-2013, 08:26 PM | #3 | ||||||||||||
|
يعني ايه
|
||||||||||||
|
27-04-2013, 12:50 AM | #4 | ||||||||||||
|
استخدم اي بوت |
||||||||||||
|
27-04-2013, 08:48 AM | #5 | ||||||||||||
|
Auto IT code for auto party كود:
MsgBox ( 0, "Auto Party Script", "Auto Reform Time: 30 seconds...") #include <GuiConstants.au3> Opt("GUIOnEventMode", 1) Dim $PT Dim $PTC=300 ; time between paty checking (10 = 1 sec) Dim $res Dim $p=0 dim $ES_NUMBER ;1 dim $BS_FLAT ;2 GuiCreate("Auto Party Script", 150,100) GUISetOnEvent($GUI_EVENT_CLOSE, 'CLOSEButton') GuiCtrlCreateLabel("Resolution"&@CR&"1 = 1024x768"&@CR&"2 = 1280x1024",5,5,80, 50) ;3 $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,1,100) 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 |
||||||||||||
|
27-04-2013, 11:08 AM | #6 | |||||||||||||
|
اقتباس:
تمام بس الكود ده بتاع ايه؟ |
|||||||||||||
|
28-04-2013, 02:48 AM | #7 | |||||||||||||
|
اقتباس:
|
|||||||||||||
|
28-04-2013, 07:51 AM | #8 | ||||||||||||
|
ماهو البوت فيه اوتو بارتي انفتيشن |
||||||||||||
|
28-04-2013, 08:15 AM | #9 | ||||||||||||||
|
اقتباس:
اقتباس:
|
||||||||||||||
|
28-04-2013, 09:50 AM | #10 | ||||||||||||
|
هو قصده party matching مش اوتو بارتي |
||||||||||||
|
يتصفح الموضوع حالياً : 1 (0 عضو و 1 زائر) | |
|
|