الـجـروب الـرسـمـي لـلـمـنـتـدى Silkroad4arab Facebook | Official Group 

#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

$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

#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")