الموضوع باختصار هوا سكربت بتستخدمة عشان تخلى ال بارتى علطول معمولها فورم (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
الصور :
عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا
[ للتسجيل اضغط هنا ]
عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا
[ للتسجيل اضغط هنا ]
عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا
[ للتسجيل اضغط هنا ]
عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا
[ للتسجيل اضغط هنا ]
عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا
[ للتسجيل اضغط هنا ]
عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا
[ للتسجيل اضغط هنا ]
__________________
منقول