Siema, mam problem, w czym jest błąd, kolega dał mi kod autoit i wyskakuje błąd.
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#include <misc.au3>
$Form1 = GUICreate("Marcdk's Youtube Account Creator ", 700, 500, 193, 125)
$Singleproxyinput = GUICtrlCreateInput("", 100, 330, 150, 21)
$Checkbox1 = GUICtrlCreateCheckbox("Enter Proxy", 26, 330, 75, 15)
$Prefix = GUICtrlCreateInput("", 140, 40, 121, 21)
$Account = GUICtrlCreateLabel("Account Prefix", 24, 48, 73, 17)
$Label2 = GUICtrlCreateLabel("Account Password", 24, 80, 95, 17)
$Password = GUICtrlCreateInput("", 140, 72, 121, 21)
$BrowseLabel = GUICtrlCreateLabel("Load proxylist", 24, 370, 73, 17)
$ProxyInfoLabel = GUICtrlCreateLabel("Loaded Proxies:", 24, 420, 100, 50)
$ProxyNumber = GUICtrlCreateLabel("0", 110, 420, 100, 50)
$Pic1 = GUICtrlCreatePic("Temp.jpg", 30, 165, 100, 100, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic2 = GUICtrlCreatePic("WindowsLive.jpg", 150, 165, 100, 100, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic3 = GUICtrlCreatePic("que.jpg", 262, 40, 22, 22, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic4 = GUICtrlCreatePic("que.jpg", 262, 72, 22, 22, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Pic5 = GUICtrlCreatePic("que.jpg", 252, 330, 22, 22, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$Proxy = GUICtrlCreateButton("Browse", 122, 365, 121, 25, 0)
$Group1 = GUICtrlCreateGroup("Account Details", 16, 16, 300, 100)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group2 = GUICtrlCreateGroup("Choose Email", 16, 135, 300, 150)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$Group3 = GUICtrlCreateGroup("Proxy Settings", 16, 305, 300, 150)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
$Proceed = GUICtrlCreateLabel("At the youtube registration, and confirmation of the email you have to enter the Captcha manually, once that is done, press F10 twice to finish registration", 350, 20, 310, 300)
$PanTask = _IECreateEmbedded()
$Form2X = GUICtrlCreateObj($PanTask, 350, 80, 320, 250)
$InterNetComOBJ = _IECreateEmbedded() ; Create Internet Explorer application
$LowerLimit = 1
$UpperLimit = 10000
$RandomNumber = Random($LowerLimit,$UpperLimit,1)
$Status = GUICtrlCreateLabel("Status:",350, 360, 300, 250)
$Status2 = GUICtrlCreateLabel("Ready",400, 360, 300, 250)
$message = "Select your proxylist - txt file"
GUICtrlSetColor(-1, 0xff0000)
While 1337=1337
If _IsPressed("79") Then
Finish()
EndIf
If _IsPressed("78") Then
Send ("{TAB}")
Send ("{Enter}")
Sleep (4000)
Send ("{TAB}")
Send ("{TAB}")
Send ("{TAB}")
Send ("{TAB}")
Send ("{TAB}")
Send ("{TAB}")
Send ("{TAB}")
Send ("{TAB}")
Send ("{TAB}")
Send ("{TAB}")
Send ("{TAB}")
Send ("{TAB}")
Send ("{TAB}")
Send ("{TAB}")
Send ("{Enter}")
EndIf
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Pic3
MsgBox(0,"Account Prefix", "Type in your desired username. Your username will be followed by a random number")
Case $Pic4
MsgBox(0,"Your Password", "Enter your desired password here")
Case $Pic5
Msgbox(0,"Proxy Info", "Put in a proxy here, in case you want to use just one")
Case $Pic1
Begin()
Case $Pic2
Begin2()
EndSwitch
WEnd
Func Begin()
GUICtrlSetData($Status2, "Grabbing temporary inbox email...")
_IENavigate ($PanTask, "http://temporaryinbox.com/forward.php", 0)
_IELoadWait ($PanTask)
Send("{TAB}")
Send("{TAB}")
Send("{TAB}")
Send("{TAB}")
Send("^c")
GUICtrlSetData($Status2, "Enters youtube.com...")
Sleep(2000)
_IENavigate ($PanTask, "http://www.youtube.com/signup.php", 0)
_IELoadWait ($PanTask)
GUICtrlSetData($Status2, "Filling the forms...")
Send("^v")
Send("{TAB}")
sleep(1000)
Send(GuiCtrlRead($Password))
Send("{TAB}")
Send(GuiCtrlRead($Password))
Send("{TAB}")
Send(GuiCtrlRead($Prefix))
Send($RandomNumber)
Send ("{TAB}")
Send ("{TAB}")
Send ("d")
Send ("{TAB}")
Send ("{DOWN}")
Send ("{TAB}")
Send ("{DOWN}")
Send ("{TAB}")
Send ("{DOWN}")
Send ("{DOWN}")
Send ("{DOWN}")
Send ("{DOWN}")
Send ("{DOWN}")
Send ("{DOWN}")
Send ("{DOWN}")
Send ("{DOWN}")
Send ("{DOWN}")
Send ("{DOWN}")
Send ("{DOWN}")
Send ("{DOWN}")
Send ("{DOWN}")
Send ("{DOWN}")
Send ("{DOWN}")
Send ("{DOWN}")
Send ("{DOWN}")
Send ("{DOWN}")
Send ("{DOWN}")
Send ("{DOWN}")
Send ("{TAB}")
Send ("{Space}")
Send ("{TAB}")
Send ("{TAB}")
Send ("{TAB}")
GUICtrlSetData($Status2, "Awaiting captcha code...")
EndFunc
Func Begin2()
GUICtrlSetData($Status2, "Enters youtube.com...")
Sleep(2000)
_IENavigate ($PanTask, "http://www.youtube.com/signup.php", 0)
_IELoadWait ($PanTask)
GUICtrlSetData($Status2, "Filling the forms...")
$pantask = _IECreate ("https://signup.live.com/signup.aspx?ru=http%3a%2f%2fmail.live.com%2f%3frru%3dinbox&wa=wsignin1.0&rpsnv=10&ct=1233346552&rver=5.5.4177.0&wp=MBI&wreply=http:%2F%2Fmail.live.com%2Fdefault.aspx%3Fn%3D380146255&id=64855&bk=1233346552&rollrs=12&lic=1")
sleep(3000)
($pantask, 0)
$oQuery = _IEGetObjById($pantask, "iPwd"); 2nd Param = Name/ID _IEFormElementSetValue ($oQuery, "d3scene") ;_IEFormSubmit ($oForm)
Send ($randomNumber)
sleep (1000)
Send ("@yopmail.com")
Sleep (1000)
Send("{TAB}")
sleep(1000)
Send(GuiCtrlRead($Password))
Send("{TAB}")
Send(GuiCtrlRead($Password))
Send("{TAB}")
Send(GuiCtrlRead($Prefix))
Send($RandomNumber)
Send ("{TAB}")
Send ("{TAB}")
Send ("d")
Send ("{TAB}")
Send ("{DOWN}")
Send ("{TAB}")
Send ("{DOWN}")
Send ("{TAB}")
Send ("{DOWN}")
Send ("{DOWN}")
Send ("{DOWN}")
Send ("{DOWN}")
Send ("{DOWN}")
Send ("{DOWN}")
Send ("{DOWN}")
Send ("{DOWN}")
Send ("{DOWN}")
Send ("{DOWN}")
Send ("{DOWN}")
Send ("{DOWN}")
Send ("{DOWN}")
Send ("{DOWN}")
Send ("{DOWN}")
Send ("{DOWN}")
Send ("{DOWN}")
Send ("{DOWN}")
Send ("{DOWN}")
Send ("{DOWN}")
Send ("{TAB}")
Send ("{Space}")
Send ("{TAB}")
Send ("{TAB}")
Send ("{TAB}")
GUICtrlSetData($Status2, "Awaiting captcha code...")
sleep (1000)
Endfunc
Func Finish()
Send ("{TAB}")
sleep (500)
Send ("{TAB}")
sleep (500)
Send ("{space}")
Send ("{TAB}")
Send ("{TAB}")
Send ("{TAB}")
Send ("{Enter}")
sleep(1000)
GUICtrlSetData($Status2, "Verifying Account...")
_IENavigate($PanTask, "http://yopmail.com", 0)
_IELoadWait ($PanTask)
Send($RandomNumber)
Sleep(4000)
Send ("{TAB}")
Send ("{Enter}")
Sleep(3000)
Send ("{TAB}")
Send ("{TAB}")
Send ("{TAB}")
Send ("{TAB}")
Send ("{TAB}")
Send ("{TAB}")
Send ("{TAB}")
Send ("{TAB}")
Send ("{TAB}")
Send ("{TAB}")
Send ("{TAB}")
Send ("{TAB}")
Send ("{TAB}")
Send ("{TAB}")
Send ("{TAB}")
Send ("{TAB}")
Send ("{TAB}")
Send ("{TAB}")
Send ("{TAB}")
Send ("{TAB}")
Send ("{TAB}")
Send ("{TAB}")
Send ("{TAB}")
Send ("{TAB}")
Send ("{TAB}")
Send ("{TAB}")
Send ("{TAB}")
Send ("{TAB}")
Send ("{TAB}")
Send ("{TAB}")
Send ("{TAB}")
Send ("{TAB}")
Send ("{TAB}")
Send ("{TAB}")
Send ("{TAB}")
Send ("{TAB}")
Send ("{TAB}")
Send ("{TAB}")
Send ("{TAB}")
Send ("{TAB}")
Send ("{TAB}")
Send ("{TAB}")
Send ("{Enter}")
SLEEP (10000)
Send(GuiCtrlRead($Prefix))
Send ($RandomNumber)
Send ("{TAB}")
Send(GuiCtrlRead($Password))
Send ("{TAB}")
Send ("{Enter}")
EndFunc