Quà noel cho bà con xóm captcha 
Dành cho các bạn ko có tiền mua panel nhiều id, mỗi lần test acc phải del hết acc cũ rồi add tay từng cái vào panel(như tớ)..
Download Video.
viết = autoit
Ai sợ virus thì download autoit về cài r` chép đoạn source này vào-> run
Thông tin acc pix add nằm trong file login.txt cùng thư mục với soft
định dạng : 'accpix=pass pix
ví dụ: bạn có 3 id: [email protected] , [email protected], [email protected], cả 3 có pass 123456
mở file login.txt & điền như sau:
[email protected]=123456
[email protected]=123456
[email protected]=123456
(có thể add thêm nhiều acc phía dưới)
Dành cho các bạn ko có tiền mua panel nhiều id, mỗi lần test acc phải del hết acc cũ rồi add tay từng cái vào panel(như tớ)..
Download Video.
[Ver 2h30 ngày 23/12
viết = autoit
Ai sợ virus thì download autoit về cài r` chép đoạn source này vào-> run
#include <IE.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <File.au3>
#NoTrayIcon
Opt('expandvarstrings',1)
Dim $Limit[1000]
global $Gui = GUICreate("Asian Panel Login",550,400)
If not FileExists("cap.jpg") then
FileInstall("cap.jpg","cap.jpg")
endif
GUICtrlCreateLabel("Panel Username",10,20)
GUICtrlCreateLabel("Panel Password",10,60)
$Status = GUICtrlCreateLabel("Thông tin acc pix được lấy từ file login.txt",10,220,500,60)
global $User2 = GUICtrlCreateEdit("",150,20,200,25,$ES_WANTRETURN)
global $Pwd2 = GUICtrlCreateEdit("", 150,60,200,25,$ES_WANTRETURN)
global $CapImgG = GUICtrlCreatePic("cap.jpg",10,118,0,0)
global $CapRes = GUICtrlCreateEdit("",10,180,300,25,$ES_WANTRETURN)
Global $SubmitCap = GUICtrlCreateButton("Submit", 320, 180)
Sleep(300)
$oIE = _IECreateEmbedded()
GUICtrlCreateObj($oIE,10, 210,2,2)
GUISetState()
_IENavigate($oIE,"http://asiandataservice.com/rony/supervisor/login2.php")
GUICtrlSetData($Status,"Getting login form...")
_IELoadWait($oIE)
sleep(400)
$oImgs = _IEImgGetCollection ($oIE)
For $oImg In $oImgs
global $link = $oImg.src
If StringInStr($link,"image?") then
ExitLoop
EndIf
Next
FileDelete("cap.jpg")
inetget($link,"cap.jpg")
while not FileExists("cap.jpg")
sleep(500)
WEnd
GUICtrlSetImage($CapImgG,"cap.jpg")
GuiSetState()
while 1
Local $msg = GUIGetMsg()
Select
case $msg = $GUI_EVENT_CLOSE
Exit
case $msg = $SubmitCap
GUICtrlSetData($Status,"Logging in to Asian panel..")
$CapRes2 = GUICtrlRead($CapRes)
$User = GUICtrlRead($User2)
$Pwd = GUICtrlRead($Pwd2)
sleep(500)
$oIE.document.getelementbyid("recaptcha_response_field").value=$CapRes2
sleep(200)
$UserName = _IEGetObjByName($oIE, "username",0)
_IEFormElementSetValue($UserName, $User)
sleep(200)
$Pass = _IEGetObjByName($oIE, "pass",0)
_IEFormElementSetValue($Pass, $Pwd)
Sleep(300)
$objn=_IEGetObjByName($oIE, "submit")
$objn.click()
_IELoadWait($oIE)
$HTML = _IEDocReadHTML($oIE)
If StringInStr($HTML,"try it again") then
msgbox(0,"","Wrong captcha")
_IEAction($oIE, "back")
EndIf
Sleep(200)
GUICtrlSetData($Status,"Logged in.")
$HTML = _IEDocReadHTML($oIE)
If StringInStr($HTML,"Limit") then
$Workerparse = StringRegExp($HTML,'(?i)(?:Following )(?:<b>)([0-9]{1,})(?:</b>)',1)
$Workernum = $Workerparse[0]
$Limit = StringRegExp($HTML,'(?i)(?:Limit )([0-9]{1,})',1)
$Lim=$Limit[0]
$text = StringReplace("this is a line of text", " ", " ")
$numreplacements = @extended
$boxmsg=msgbox(4,"Delete old ids ?", "Delete old ids ?")
if $boxmsg=6 then
For $a=1 to $Workernum
_IELinkClickByText($oIE,"Delete", 0)
WinWait("[CLASS:#32770]")
sleep(200)
WinActivate($oIE)
Next
Endif
EndIf
GUICtrlSetData($Status,"Adding ids to panel...")
Sleep(500)
_IENavigate($oIE,"http://asiandataservice.com/rony/supervisor/NewWorker.php")
$loginlines = _FileCountLines("login.txt")
GUICtrlSetState($User2, $GUI_HIDE)
GUICtrlSetState($Pwd2, $GUI_HIDE)
GUICtrlSetState($CapImgG, $GUI_HIDE)
GUICtrlSetState($CapRes, $GUI_HIDE)
GUICtrlSetState($SubmitCap, $GUI_HIDE)
global $CapImgGx = GUICtrlCreatePic("cap.jpg",10,20,0,0)
global $CapResx = GUICtrlCreateEdit("",10,100,100,25,$ES_WANTRETURN)
Global $SubCap = GUICtrlCreateButton("Add",120,100)
GuiSetState()
GUICtrlSetData($Status,"Enter captcha to add id to panel !")
$i=1
$loginread = filereadline("login.txt",$i)
$login=StringRegExpReplace($loginread,'(@CR@|@CRLF @|@LF@)','',0)
$loginreg = StringRegExp($login,'(.+)(=)(.+)',1)
$acc = $loginreg[0]
$pass = $loginreg[2]
GetCaptcha()
while 1
$msg2 = GUIGetMsg()
select
case $msg2 = $SubCap
$CapResx2 = GUICtrlRead($CapResx)
_IELoadWait($oIE)
$WName = _IEGetObjByName($oIE, "WName",0)
_IEFormElementSetValue($WName, $acc)
$WPass = _IEGetObjByName($oIE, "WPass",0)
_IEFormElementSetValue($WPass, $pass)
$PixLogin = _IEGetObjByName($oIE, "PixLogin",0)
_IEFormElementSetValue($PixLogin, $acc)
$PixPass = _IEGetObjByName($oIE, "PixPass",0)
_IEFormElementSetValue($PixPass, $pass)
$oIE.document.getelementbyid("recaptcha_response_field").value=$CapResx2
$oIE.document.getelementbyid("recaptcha_response_field").focus()
$objn=_IEGetObjByName($oIE, "B1")
$objn.click()
_IELoadWait($oIE)
$HTML = _IEDocReadHTML($oIE)
if StringInStr($HTML,"try it again") then
msgbox(16,"","Invalid captcha, try again !")
$i=$i-1
Else
GUICtrlSetData($Status,'$acc$ has been added to Asian panel')
EndIf
GetCaptcha()
$i = $i+1
if($i>$loginlines) Then
GUICtrlSetData($Status,"All accounts in login.txt have been added to Asian panel !")
EndIf
ReadLogin()
EndSelect
WEnd
EndSelect
WEnd
Func GetCaptcha()
$oImgs = _IEImgGetCollection ($oIE)
For $oImg In $oImgs
global $link = $oImg.src
If StringInStr($link,"image?") then
ExitLoop
EndIf
Next
inetget($link,"cap.jpg")
GUICtrlSetImage($CapImgGx,"cap.jpg")
EndFunc
Func ReadLogin()
$loginread = filereadline("login.txt",$i)
$login=StringRegExpReplace($loginread,'(@CR@|@CRLF @|@LF@)','',0)
$loginreg = StringRegExp($login,'(.+)(=)(.+)',1)
$acc = $loginreg[0]
$pass = $loginreg[2]
EndFunc
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <File.au3>
#NoTrayIcon
Opt('expandvarstrings',1)
Dim $Limit[1000]
global $Gui = GUICreate("Asian Panel Login",550,400)
If not FileExists("cap.jpg") then
FileInstall("cap.jpg","cap.jpg")
endif
GUICtrlCreateLabel("Panel Username",10,20)
GUICtrlCreateLabel("Panel Password",10,60)
$Status = GUICtrlCreateLabel("Thông tin acc pix được lấy từ file login.txt",10,220,500,60)
global $User2 = GUICtrlCreateEdit("",150,20,200,25,$ES_WANTRETURN)
global $Pwd2 = GUICtrlCreateEdit("", 150,60,200,25,$ES_WANTRETURN)
global $CapImgG = GUICtrlCreatePic("cap.jpg",10,118,0,0)
global $CapRes = GUICtrlCreateEdit("",10,180,300,25,$ES_WANTRETURN)
Global $SubmitCap = GUICtrlCreateButton("Submit", 320, 180)
Sleep(300)
$oIE = _IECreateEmbedded()
GUICtrlCreateObj($oIE,10, 210,2,2)
GUISetState()
_IENavigate($oIE,"http://asiandataservice.com/rony/supervisor/login2.php")
GUICtrlSetData($Status,"Getting login form...")
_IELoadWait($oIE)
sleep(400)
$oImgs = _IEImgGetCollection ($oIE)
For $oImg In $oImgs
global $link = $oImg.src
If StringInStr($link,"image?") then
ExitLoop
EndIf
Next
FileDelete("cap.jpg")
inetget($link,"cap.jpg")
while not FileExists("cap.jpg")
sleep(500)
WEnd
GUICtrlSetImage($CapImgG,"cap.jpg")
GuiSetState()
while 1
Local $msg = GUIGetMsg()
Select
case $msg = $GUI_EVENT_CLOSE
Exit
case $msg = $SubmitCap
GUICtrlSetData($Status,"Logging in to Asian panel..")
$CapRes2 = GUICtrlRead($CapRes)
$User = GUICtrlRead($User2)
$Pwd = GUICtrlRead($Pwd2)
sleep(500)
$oIE.document.getelementbyid("recaptcha_response_field").value=$CapRes2
sleep(200)
$UserName = _IEGetObjByName($oIE, "username",0)
_IEFormElementSetValue($UserName, $User)
sleep(200)
$Pass = _IEGetObjByName($oIE, "pass",0)
_IEFormElementSetValue($Pass, $Pwd)
Sleep(300)
$objn=_IEGetObjByName($oIE, "submit")
$objn.click()
_IELoadWait($oIE)
$HTML = _IEDocReadHTML($oIE)
If StringInStr($HTML,"try it again") then
msgbox(0,"","Wrong captcha")
_IEAction($oIE, "back")
EndIf
Sleep(200)
GUICtrlSetData($Status,"Logged in.")
$HTML = _IEDocReadHTML($oIE)
If StringInStr($HTML,"Limit") then
$Workerparse = StringRegExp($HTML,'(?i)(?:Following )(?:<b>)([0-9]{1,})(?:</b>)',1)
$Workernum = $Workerparse[0]
$Limit = StringRegExp($HTML,'(?i)(?:Limit )([0-9]{1,})',1)
$Lim=$Limit[0]
$text = StringReplace("this is a line of text", " ", " ")
$numreplacements = @extended
$boxmsg=msgbox(4,"Delete old ids ?", "Delete old ids ?")
if $boxmsg=6 then
For $a=1 to $Workernum
_IELinkClickByText($oIE,"Delete", 0)
WinWait("[CLASS:#32770]")
sleep(200)
WinActivate($oIE)
Next
Endif
EndIf
GUICtrlSetData($Status,"Adding ids to panel...")
Sleep(500)
_IENavigate($oIE,"http://asiandataservice.com/rony/supervisor/NewWorker.php")
$loginlines = _FileCountLines("login.txt")
GUICtrlSetState($User2, $GUI_HIDE)
GUICtrlSetState($Pwd2, $GUI_HIDE)
GUICtrlSetState($CapImgG, $GUI_HIDE)
GUICtrlSetState($CapRes, $GUI_HIDE)
GUICtrlSetState($SubmitCap, $GUI_HIDE)
global $CapImgGx = GUICtrlCreatePic("cap.jpg",10,20,0,0)
global $CapResx = GUICtrlCreateEdit("",10,100,100,25,$ES_WANTRETURN)
Global $SubCap = GUICtrlCreateButton("Add",120,100)
GuiSetState()
GUICtrlSetData($Status,"Enter captcha to add id to panel !")
$i=1
$loginread = filereadline("login.txt",$i)
$login=StringRegExpReplace($loginread,'(@CR@|@CRLF @|@LF@)','',0)
$loginreg = StringRegExp($login,'(.+)(=)(.+)',1)
$acc = $loginreg[0]
$pass = $loginreg[2]
GetCaptcha()
while 1
$msg2 = GUIGetMsg()
select
case $msg2 = $SubCap
$CapResx2 = GUICtrlRead($CapResx)
_IELoadWait($oIE)
$WName = _IEGetObjByName($oIE, "WName",0)
_IEFormElementSetValue($WName, $acc)
$WPass = _IEGetObjByName($oIE, "WPass",0)
_IEFormElementSetValue($WPass, $pass)
$PixLogin = _IEGetObjByName($oIE, "PixLogin",0)
_IEFormElementSetValue($PixLogin, $acc)
$PixPass = _IEGetObjByName($oIE, "PixPass",0)
_IEFormElementSetValue($PixPass, $pass)
$oIE.document.getelementbyid("recaptcha_response_field").value=$CapResx2
$oIE.document.getelementbyid("recaptcha_response_field").focus()
$objn=_IEGetObjByName($oIE, "B1")
$objn.click()
_IELoadWait($oIE)
$HTML = _IEDocReadHTML($oIE)
if StringInStr($HTML,"try it again") then
msgbox(16,"","Invalid captcha, try again !")
$i=$i-1
Else
GUICtrlSetData($Status,'$acc$ has been added to Asian panel')
EndIf
GetCaptcha()
$i = $i+1
if($i>$loginlines) Then
GUICtrlSetData($Status,"All accounts in login.txt have been added to Asian panel !")
EndIf
ReadLogin()
EndSelect
WEnd
EndSelect
WEnd
Func GetCaptcha()
$oImgs = _IEImgGetCollection ($oIE)
For $oImg In $oImgs
global $link = $oImg.src
If StringInStr($link,"image?") then
ExitLoop
EndIf
Next
inetget($link,"cap.jpg")
GUICtrlSetImage($CapImgGx,"cap.jpg")
EndFunc
Func ReadLogin()
$loginread = filereadline("login.txt",$i)
$login=StringRegExpReplace($loginread,'(@CR@|@CRLF @|@LF@)','',0)
$loginreg = StringRegExp($login,'(.+)(=)(.+)',1)
$acc = $loginreg[0]
$pass = $loginreg[2]
EndFunc
Thông tin acc pix add nằm trong file login.txt cùng thư mục với soft
định dạng : 'accpix=pass pix
ví dụ: bạn có 3 id: [email protected] , [email protected], [email protected], cả 3 có pass 123456
mở file login.txt & điền như sau:
[email protected]=123456
[email protected]=123456
[email protected]=123456
(có thể add thêm nhiều acc phía dưới)
Attachments
Last edited by a moderator:
) cũng tính mày mò làm con soft free cho pix nhưng khổ là đag kẹt ở mấy con mèo lúc login 
