#include <WinAPISys.au3>
HotKeySet('{ESC}', '_Exit')
Global $sOpera_Title = '[CLASS:Chrome_WidgetWin_1;REGEXPTITLE:^.* - Opera$]'
Global $sOpera_Path = @LocalAppDataDir & '\Programs\Opera\launcher.exe'
Global $sDenwer_Title = '[CLASS:ConsoleWindowClass;REGEXPTITLE:..\..\usr\local\miniperl\miniperl.exe Control.pl start]'
Global $sDenwer_Path = @DesktopDir & '\Alice\WebServers\denwer\run.exe'
Global $sApache_Title = '[CLASS:ConsoleWindowClass;REGEXPTITLE: httpd.exe -w]'
Global $sSMTP_Title = '[CLASS:ConsoleWindowClass; REGEXPTITLE: ..\..\..\usr\local\miniperl\miniperl sendmail_daemon.pl]'
Global $iIdle = 0.5; Minutes
Global $Sleep_Time = 30 ; Seconds
Run ($sDenwer_Path)
WinWaitClose ($sDenwer_Title,'')
Run ($sOpera_Path)
WinWait($sOpera_Title,'')
WinActivate($sOpera_Title)
WinWaitActive ($sOpera_Title,'')
Send ('{F11}')
While 1
If _WinAPI_GetIdleTime() >= $iIdle * 1000 * 60 Then
MouseMove(MouseGetPos(0) + 1, MouseGetPos(1), 0)
MouseMove(MouseGetPos(0) - 1, MouseGetPos(1), 0)
WinClose($sOpera_Title)
Run ($sOpera_Path)
WinWait($sOpera_Title, '')
WinActivate($sOpera_Title)
WinWaitActive ($sOpera_Title,'')
Send('{F11}')
EndIf
WEnd
Func _Exit()
Exit
EndFunc