#include <IE.au3>

$sec = 0          ;Antal spenderade sekunder (initiering)
$timeout = 60 * 5 ;Timeout i sekunder
While 1
$dhcpd = RegRead("HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Services\Tcpip\Parameters\Interfaces\{602E41B8-558B-488A-98AD-66774D0E44B8}","DhcpDomain")
If $dhcpd == "wan.it.kth.se it.kth.se" Then
    AdlibEnable("AlertClicker")
    $oIE = _IECreate("https://auth.wan.it.kth.se/login.php",0,0)  ;Loginsidan
    AdlibDisable()
    $oForm = _IEFormGetCollection($oIE,0)
    $oName = _IEFormElementGetCollection ($oForm,1)
    $oRealm = _IEFormElementGetCollection ($oForm,2)
    $oPass = _IEFormElementGetCollection ($oForm,3)
    _IEFormElementSetValue ($oName"Loginnamn")    ;Loginnamn som skrivs in i formuläret
    _IEFormElementOptionSelect ($oRealm"KTH.SE")  ;Realm som väljs i formuläret
    _IEFormElementSetValue ($oPass"Lösenord")     ;Lösenord som skrivs in i formuläret
    _IEFormSubmit ($oForm)
EndIf
Sleep(1000)
$sec += 1
If $sec > $timeout Then ExitLoop
WEnd

Func AlertClicker()
     If WinExists("Security Alert") Then
          ControlClick("Security Alert""""Button1")
     EndIf
EndFunc 





   PREV    NEXT    

http://autoit.enestad.com
http://www.enestad.com