Nach Screensaver automatischer refresh Internetexplorer

#NoTrayIcon
#include <ie.au3>
$oldstate = false
$ie = _IECreate("https://administrator.de",0,1,0)  
_IEPropertySet($ie,"theatermode",true)  
while 1
	 if $oldstate = true and _IsScreenSaverActive() = false then
		_IEAction($ie,"refresh")  
	 EndIf
	$oldstate = _IsScreenSaverActive()
	sleep(1000)
Wend

Func _IsScreenSaverActive()
    Local $Ret = DllCall('user32.dll', 'int', 'SystemParametersInfo', 'uint', 0x0072, 'uint', 0, 'int*', 0, 'uint', 0)  
    If (@error) Or ($Ret = 0) Then
        Return SetError(1, 0, 0)
    EndIf
    Return $Ret[3]
EndFunc

$ie = New-Object -ComObject "InternetExplorer.Application"  
$ie.Visible = $true
$ie.Navigate("https://administrator.de")  

$tools = Add-Type –memberDefinition '[DllImport("user32.dll", SetLastError = true)] public static extern bool SystemParametersInfo(int uiAction, int uiParam, ref bool pvParam, int fWinIni);' -name “tools” -namespace Win32Functions –passThru -EA SilentlyContinue  
function IsScreenSaverActive() {
    $r = $false; $tools::SystemParametersInfo(0x0072,0,[ref]$r,0) | out-null; return $r
}

$oldstate = $false
while ($true){
    if ($oldstate -and !(IsScreenSaverActive)){
        $ie.Refresh()
    }
    $oldstate = IsScreenSaverActive
    sleep(1)
}