منتديات الأحباب
انت غير مسجل بالمنتدى ... يرجى التسجيل
منتديات الأحباب


 
الرئيسيةالرئيسية  س .و .جس .و .ج  بحـثبحـث  التسجيلالتسجيل  دخول  
انتبهوا : اليكم الخبر السار انتهينا تقريبا من منتدانا الجديد www.internetgate.info يمكنكم الأن البدء مع الناس الأخرين فى المشاركة بالمواضيع و الأراء
قريبا جدا سننشأ على الموقع جزء مخصص للفيديوهات كمثل YouTube بل افضل فى التصميم و بعد بنائه تستطيعون بعدها رفع فيديوهاتكم

شاطر | 
 

 =======Auto Party Script =======

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
RoofMan2008
مؤسس الشبكة
مؤسس الشبكة


ذكر
عدد الرسائل : 1228
العمر : 26
مستوي الانذار : 0%
السٌّمعَة : 0
تاريخ التسجيل : 10/09/2007

مُساهمةموضوع: =======Auto Party Script =======   الثلاثاء فبراير 05, 2008 5:17 pm

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

اول حاجة حتخش على الموقع دة http://www.autoitscript.com/autoit3/downloads.php

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

بعد كدة تاخد السكربت (حتلاقية موجود تحت) وتنقلة في note pad وتعملة save في اي حتة
وبعد متسطب البرنامج اللي فوق تفتحة من ال start حتلاقي برنامج موجود فية
اسمة run script وتفتح منة الملف اللى انت عملتلو save حتطلعلك window
حتدوس ok وبعد كدة في المربع حتكتب 1 وتدوس start بعد متكون فتحت اللعبة
طبعا
كل دقيقة تقريبا حيعمل form لل partyويعمل accept للناس لوحدة

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

ارجو التثبيت للاهمية

شكرا

السكربت :


MsgBox ( 0, "Party Script", "Start Script")

#include
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://img407.imageshack.us/img407/5999/61028866vz2.jpg
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://silkroad.shareblog.net
 
=======Auto Party Script =======
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1
 مواضيع مماثلة
-
» بـرنـامـج قـفـل لوحـة الـمـفـاتـيـح تـلـقائـيـا -- Auto Lock -- لـنـوكـيـا N73,N95,N93,N82
» Auto Enter for silkroad !
» [Java Script] لوضع خواتم الزفاف في بداية المنتدى لتعطي الصفحات المنتدى شكلا جذابا
» مشكلة java script
» لا انقطاع للنت بعد الأن مع Adsl Auto Connect

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
منتديات الأحباب :: «®°·.•¸°§ أقــســـام الكمبيوتر والأنترنت §°.•¸.°®» :: منتدى ألعاب :: منتدى الأونلاين :: ركن Silkroad Online-
انتقل الى: