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

**OoMasterOo** · 28-03-2009, 05:36 PM

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

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

فى الاول لازم يكون عندك برنامج AutoIt ممكن تنزلو من عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ]

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

هتاخد الكلام دا 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 لازم اللغة الصينية تكون متعرفة عندك

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

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

عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ]

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

عفوا ,,, لايمكنك مشاهده الروابط لانك غير مسجل لدينا [ للتسجيل اضغط هنا ]

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

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

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

فى امان الله