الموقع العربي الاول للعبة Silkroad Online

بسم الله الرحمن الرحيم

دا اداة بسيطة متبرمجة ببرنامج AutoIt دى هتعملك اكونتات كتيــــــــر وفى وقت قليل جدا

فى الاول لازم يكون عندك برنامج AutoIt ممكن تنزلو من هنــــــــا

هتفح ملف اسمة SciTE هيظهر زى الصورة

http://i43.tinypic.com/qq4rk5.jpg
هتاخد الكلام دا Copy وتعملو Paste فى البرنامج

دا تسجيل ECSRO

كود:

#Region;**** Directives created by AutoIt3Wrapper_GUI ****

#AutoIt3Wrapper_Icon=icon.ico

#AutoIt3Wrapper_Res_Comment=Sercankd ECSRO

#AutoIt3Wrapper_Res_Description=Register Program

#AutoIt3Wrapper_Res_Fileversion=1

#EndRegion;**** Directives created by AutoIt3Wrapper_GUI ****

#include <IE.au3>

#include <file.au3>

Global $file

Global $oIE

Global $toplam

Global $Prefix

Global $mail

Opt("TrayMenuMode", 1)

TraySetIcon("Shell32.dll", 13)

HotKeySet("{END}", "Kapat")

Func Kapat()

        Exit 0;

EndFunc   ;==>Kapat

$Prefix = "Yourname" ;this is your name prefix example if you type etc usernames will be etc1 etc533 etc7334

$mail = "email";default email for all accounts

If Not _FileCreate("registeredaccs.txt") Then

   MsgBox(4096,"Error", " Error Creating accounts file.      error:" & @error)

EndIf



        $oIE = _IECreate("about:blank", 0, 0, 0, 1)

        Sleep(1000)

        _IENavigate($oIE, "http://ecsro.net/register.php")

        While 1 = 1

                $file = FileOpen("registeredaccs.txt", 1)

                $email = $mail

                $password = Random(100000, 999999, 1)

                $username = $Prefix & Random(10, 9999, 1)

                FileWrite($file, $username & " - " & $password & " - " & $email & @CRLF)

                _IELoadWait($oIE)

                $oForm = _IEFormGetObjByName($oIE, "register")

                $Usr5 = _IEGetObjByName($oIE, "server")

                _IEFormElementOptionSelect($Usr5, "ECSRO", 1, "byText")

                $Usr = _IEGetObjByName($oIE, "account_id")

                _IEFormElementSetValue($Usr, $username)

                $Usr1 = _IEGetObjByName($oIE, "email")

                _IEFormElementSetValue($Usr1, $email)

                $Usr2 = _IEGetObjByName($oIE, "username")

                _IEFormElementSetValue($Usr2, $username)

                $Usr3 = _IEGetObjByName($oIE, "password")

                _IEFormElementSetValue($Usr3, $password)

                $Usr4 = _IEGetObjByName($oIE, "retype_password")

                _IEFormElementSetValue($Usr4, $password)

                $Btn = _IEGetObjByName($oIE, "action")

                _IEAction($Btn, "click")

                $toplam = _FileCountLines("registeredaccs.txt")

                TrayTip("Total", "Total Registered Accounts: " & $toplam, 2, 1)

                Sleep(8000)

                _IENavigate($oIE, "http://ecsro.net/register.php")

                FileClose($file)

        WEnd

وبعدين اقفل البرنامج هيقولك save اتك Yes

هتحط الاسم اللى عايز تسجل بية والاميل هنا :

كود:

$Prefix = "Yourname" ;this is your name prefix example if you type etc usernames will be etc1 etc533 etc7334

$mail = "email";default email for all accounts

تسجيل Sjsro

كود:

#Region;**** Directives created by AutoIt3Wrapper_GUI ****

#AutoIt3Wrapper_Icon=icon.ico

#AutoIt3Wrapper_Res_Comment=Sercankd ECSRO

#AutoIt3Wrapper_Res_Description=Register Program

#AutoIt3Wrapper_Res_Fileversion=1

#EndRegion;**** Directives created by AutoIt3Wrapper_GUI ****

#include <IE.au3>

#include <file.au3>

Global $file

Global $oIE

Global $toplam

Global $Prefix

Global $mail

Global $adress

Opt("TrayMenuMode", 1)

TraySetIcon("Shell32.dll", 13)

HotKeySet("{END}", "Kapat")

Func Kapat()

        Exit 0;

EndFunc   ;==>Kapat

$Prefix = "sercankd" ;this is your name prefix example if you type etc usernames will be etc1 etc533 etc7334

$mail = "email";default email for all accounts

$adress = "联系地址最"

If FileExists("sjsro.txt") Then



        $oIE = _IECreate("about:blank", 0, 0, 0, 1)

        Sleep(1000)

        _IENavigate($oIE, "http://reg.sjsro.cn:7878/reg.html")

        While 1 = 1

                $file = FileOpen("sjsro.txt", 1)

                $email = $mail

                $password = Random(100000, 999999, 1)

                $username = $Prefix & Random(10, 9999, 1)

                FileWrite($file, $username & " - " & $password & " - " & $email & @CRLF)

                _IELoadWait($oIE)

                $oForm = _IEFormGetObjByName($oIE, "register")

                $Usr = _IEGetObjByName($oIE, "account")

                _IEFormElementSetValue($Usr, $username)

                $Usr3 = _IEGetObjByName($oIE, "pasword")

                _IEFormElementSetValue($Usr3, $password)

                $Usr4 = _IEGetObjByName($oIE, "pssword")

                _IEFormElementSetValue($Usr4, $password)

                $Usr0 = _IEGetObjByName($oIE, "username")

                _IEFormElementSetValue($Usr0, $username)

                $Usr1 = _IEGetObjByName($oIE, "myemail")

                _IEFormElementSetValue($Usr1, $email)

                $Usr2 = _IEGetObjByName($oIE, "address")

                _IEFormElementSetValue($Usr2, $adress)

                $Usr22 = _IEGetObjByName($oIE, "qq")

                _IEFormElementSetValue($Usr22, "123456")

                $Usrcaptcha_ = _IEGetObjByID($oIE, "checkCode")

                $captcha_read = _IEFormElementGetValue($Usrcaptcha_)

                $Usrcaptcha = _IEGetObjByName($oIE, "text")

                _IEFormElementSetValue($Usrcaptcha, $captcha_read)

                $Btn = _IEGetObjByName($oIE, "submit")

                _IEAction($Btn, "click")

                $toplam = _FileCountLines("sjsro.txt")

                TrayTip("Total", "Total Registered Accounts: " & $toplam, 2, 1)

                Sleep(1000)

                _IENavigate($oIE, "http://reg.sjsro.cn:7878/reg.html")

                FileClose($file)

        WEnd

        Else

        MsgBox(48,"Error!", "Please create a Sjsro.txt file in same folder with this program.")

EndIf

لو عايز تغير موقع التسجيل من السطر دا :

كود:

IENavigate($oIE, "http://reg.sjsro.cn:7878/reg.html")  with  _IENavigate

($oIE, "http://reg2.sjsro.cn:7878/reg.html")

بالنسبة لتسجيل Sjsro لازم اللغة الصينية تكون متعرفة عندك

لو جاتلك المشكلة دى

http://i42.tinypic.com/fvtkl.png

هتعمل زى اللى فى الصورة

http://img220.imageshack.us/img220/6471/adszrql.jpg

دى صورة البرنامج وهو شغال

http://tinypic.com/view.php?pic=qxlbpd&s=5

طبعا مش انا الى عامل البرنامج اللى عامل البرنامج اسمه sercankd وانا سالتو ووافق انى انقل البرنامج

* طبعا البرنامج مش هيشتغل غير لما التسجيل يكون مفتوح مش الموقع يبقى واقع وتشغل البرنامج

كدة خلاص لو حد عندو مشكلة انا موجود

فى امان الله