#include <IE.au3>
#include <Date.au3>

$filelog = FileOpen ("autoit.log", 1)
If WinExists('[CLASS:AutoIt v3;TITLE:' & @ScriptName & ']') Then
FileWrite($filelog, "Позволено запускать только одну копию программы!" & ' ' & @ScriptName & ' ' & @HOUR & ':' & @MIN & ':' & @SEC & @CRLF)
Exit
EndIf

AutoItWinSetTitle(@ScriptName)

$iPing = Ping("google.com", 250)
If $iPing Then ; также возможно: If @error = 0 Then ...
FileWrite($filelog, "В онлайне, задержка ответа:" & $iPing & ' '& @ScriptName & ' - ' & @HOUR & ':' & @MIN & ':' & @SEC & @CRLF )
Else
FileWrite($filelog, "Произошла ошибка, @error=" & @error & ' '& @ScriptName & ' - ' & @HOUR & ':' & @MIN & ':' & @SEC & @CRLF )
Exit
EndIf

FileClose($filelog)

Run("iexplore.exe")

$sLogin = 'login-users'
$sPass = 'pass-users'
$sUrl = 'https://mail.google.com'
$oIE = _IECreate($sUrl)
_IELoadWait ($oIE)
$oLogin = _IEGetObjByName($oIE, 'login')
$oPass = _IEGetObjByName($oIE, 'passwd')
$oChek = _IEGetObjByName($oIE, 'twoweeks')
_IEFormElementSetValue($oLogin, $sLogin)
_IEFormElementSetValue($oPass, $sPass)
_IEAction($oChek, 'click')
Send("{ENTER}")

Sleep(30000)

_IEQuit ($oIE)

ProcessClose ("iexplore.exe")

$type = '255'