[Автоматизация] Автоматизированный ввод данных на веб форму

#include<IE.au3>
$Link = ''
$sUrl = 'https://accounts.google.com/SignUp'
$gName = 'Jhon'
$gSurName = 'Smith'
$gMail = 'JhonSmith39567'
$gPass = 'BelkaStrelka'
$gDay = '5'
$gMonth= '4'
$gYear = '1979'
$gGender = ''
$gPhone = '9181002514'
$gCaptcha = ''
$gPhoneCountry = 'GB'
$gCountry = 'GB'

$oIE = _IECreate($sUrl)
$oName = _IEGetObjById($oIE, 'FirstName')
$oSurName = _IEGetObjByName($oIE, 'LastName')
$oMail = _IEGetObjByName($oIE, 'GmailAddress')
$oPass1 = _IEGetObjByName($oIE, 'Passwd')
$oPass2 = _IEGetObjByName($oIE, 'PasswdAgain')
$oDay = _IEGetObjByName($oIE, 'BirthDay')
$oMonth = _IEGetObjByName($oIE, 'BirthMonth')
$oYear = _IEGetObjByName($oIE, 'BirthYear')
$oGender = _IEGetObjByName($oIE, 'Gender')
$oPhoneCountry = _IEGetObjByName($oIE, 'RecoveryPhoneCountry')
$oPhone = _IEGetObjByName($oIE, 'RecoveryPhoneNumber')
$oCheckHomePage = _IEGetObjById($oIE, 'HomepageSet')
$oCaptcha = _IEGetObjByName($oIE, 'recaptcha_response_field')
$oCountry = _IEGetObjByName($oIE, 'CountryCode')
$oCheckTermsOfService = _IEGetObjById($oIE, 'TermsOfService')
$oCheckPersonalization = _IEGetObjById($oIE, 'Personalization')
$oButtonNext = _IEGetObjById($oIE, 'submitbutton')

If StringInStr($sUrl, 'SignUp') Then


_IEFormElementSetValue($oName, $gName)
_IEFormElementSetValue($oSurName, $gSurName)
_IEFormElementSetValue($oMail, $gMail)
_IEFormElementSetValue($oPass1, $gPass)
_IEFormElementSetValue($oPass2, $gPass)
_IEFormElementSetValue($oDay, $gDay)
_IEFormElementSetValue($oMonth, $gMonth)
_IEFormElementSetValue($oYear, $gYear)
_IEFormElementSetValue($oGender, $gGender)
_IEFormElementSetValue($oPhoneCountry, $gPhoneCountry)
_IEFormElementSetValue($oPhone, $gPhone)
_IEFormElementSetValue($oCountry, $gCountry)
_IEAction($oCheckHomePage, 'click')
_IEAction($oCheckTermsOfService, 'click')
_IEAction($oCheckPersonalization, 'click')
_IEAction($oButtonNext, 'click')

_IELoadWait($oIE)





Else
    MsgBox(16, 'Error', 'Ошибка окна MAIL.GOOGLE.COM')
EndIf

#include<IE.au3>
$Link = ''
$sUrl = 'https://accounts.google.com/SignUp'
$gName = 'Jhon'
$gSurName = 'Smith'
$gMail = 'JhonSmith39567'
$gPass = 'BelkaStrelka'
$gDay = '5'
$gMonth= '04'
$gYear = '1979'
$gGender = 'MALE'
$gPhone = '9181002514'
$gCaptcha = ''
$gPhoneCountry = 'GB'
$gCountry = 'GB'

MsgBox(16, '', 'Готовимся читать')
$oIE = _IECreate($sUrl)
$oName = _IEGetObjById($oIE, 'FirstName')
$oSurName = _IEGetObjByID($oIE, 'LastName')
$oMail = _IEGetObjByID($oIE, 'GmailAddress')
$oPass1 = _IEGetObjByID($oIE, 'Passwd')
$oPass2 = _IEGetObjByID($oIE, 'PasswdAgain')
$oDay = _IEGetObjByID($oIE, 'BirthDay')
$oMonth = _IEGetObjByID($oIE, 'BirthMonth')
$oYear = _IEGetObjByID($oIE, 'BirthYear')
$oGender = _IEGetObjByID($oIE, 'Gender')
$oPhoneCountry = _IEGetObjByID($oIE, 'RecoveryPhoneCountry')
$oPhone = _IEGetObjByID($oIE, 'RecoveryPhoneNumber')
$oCheckHomePage = _IEGetObjById($oIE, 'HomepageSet')
$oCaptcha = _IEGetObjByID($oIE, 'recaptcha_response_field')
$oCountry = _IEGetObjByID($oIE, 'CountryCode')
$oCheckTermsOfService = _IEGetObjById($oIE, 'TermsOfService')
$oCheckPersonalization = _IEGetObjById($oIE, 'Personalization')
$oButtonNext = _IEGetObjById($oIE, 'submitbutton')
MsgBox(16, '', 'Прочитано Всё')



MsgBox(16, 'Box1', 'Готовимся вести запись')
_IEFormElementSetValue($oName, $gName)
_IEFormElementSetValue($oSurName, $gSurName)
_IEFormElementSetValue($oMail, $gMail)
_IEFormElementSetValue($oPass1, $gPass)
_IEFormElementSetValue($oPass2, $gPass)
_IEFormElementSetValue($oDay, $gDay)


_IEFormElementOptionSelect($oMonth, "март", 1,"byText")

_IEFormElementSetValue($oYear, $gYear)
_IEFormElementSetValue($oGender, $gGender)
_IEFormElementSetValue($oPhoneCountry, $gPhoneCountry)
_IEFormElementSetValue($oPhone, $gPhone)
_IEFormElementSetValue($oCountry, $gCountry)
_IEAction($oCheckHomePage, 'click')
_IEAction($oCheckTermsOfService, 'click')
_IEAction($oCheckPersonalization, 'click')
MsgBox(16, 'Box1', 'Записано Всё')
;_IEAction($oButtonNext, 'click')

_IELoadWait($oIE)



If StringInStr($sUrl, 'SignUp') Then
	MsgBox(16, 'TEXT', 'Зашли в тело проверки')

Else
    MsgBox(16, 'Error', 'Ошибка окна MAIL.GOOGLE.COM')
EndIf

_IEFormElementOptionSelect($oMonth, "март", 1,"byText")

_IEFormElementOptionSelect($oMonth, 2, 1,"byIndex")

_IEFormElementOptionSelect($oMonth, "январь", 1,"byText")

$oMonth = _IEGetObjByID($oIE, 'HiddenBirthMonth')
_IEFormElementOptionSelect($oMonth, "январь", 1,"byText")