Автоматизация регистрации на Gmail

#include <IE.au3>
#include <array.au3>
$Url = ("https://accounts.google.com/SignUp?continue")
$oIE = _IECreate($Url)
WinSetState("[CLASS:IEFrame]", "", @SW_MAXIMIZE)

$oImg = _IEImgGetCollection($oIE, 1)
InetGet($oImg.src, @ScriptDir & "\captch.jpg")

$FirstName = _IEGetObjById ($oIE, "FirstName")
_IEFormElementSetValue ($FirstName, "First")

$LastName = _IEGetObjById ($oIE, "LastName")
_IEFormElementSetValue ($LastName, "Second")

$GmailAddress = _IEGetObjById ($oIE, "GmailAddress")
_IEFormElementSetValue ($GmailAddress, "Rand_mail")

$Passwd = _IEGetObjById ($oIE, "Passwd")
_IEFormElementSetValue ($Passwd, "Rand_pass")

$PasswdAgain = _IEGetObjById ($oIE, "PasswdAgain")
_IEFormElementSetValue ($PasswdAgain, "Rand_pass")

$BirthDay = _IEGetObjById ($oIE, "BirthDay")
_IEFormElementSetValue ($BirthDay, Random(1, 28, 1))

$Month = _IEFormGetObjByName ($oIE, "createaccount")
$oSelectMonth = _IEFormElementGetObjByName ($Month, "BirthMonth")
_IEFormElementOptionSelect ($oSelectMonth, Random(1,12,1), 1, "byIndex")

$BirthYear = _IEGetObjById ($oIE, "BirthYear")
_IEFormElementSetValue ($BirthYear, Random(1950, 1992, 1))

$Gender = _IEFormGetObjByName ($oIE, "createaccount")
$oSelectGender = _IEFormElementGetObjByName ($Gender, "Gender")
_IEFormElementOptionSelect ($oSelectGender, Random(1,2,1), 1, "byIndex")

$Chekbox = _IEFormGetObjByName ($oIE, "createaccount")
_IEFormElementCheckboxSelect ($Chekbox, "yes", "TermsOfService", 1, "byValue")