HotKeySet("x", "MeinExit")
[/autoit] [autoit][/autoit] [autoit]Sleep(4000)
Opt("WinTitleMatchMode",2)
$timer = TimerInit()
While WinExists("Internet Explorer") AND WinExists("Mozilla Firefox")
WinActivate("Mozilla Firefox")
[/autoit] [autoit][/autoit] [autoit]Do
Sleep(20)
Until TimerDiff($timer) > 1800000
WinActivate("Internet Explorer")
$timer = TimerInit()
WEnd
TrayTip("Ende","Wir sind dann fertig für heute",1)
Func MeinExit()
Exit
EndFunc
Ungetestet!
oder sowas in der art:
[autoit]AdlibEnable ( "Wechsel", 1800000 )
Global $Firefox = True
WinActivate("Mozilla Firefox")
Func Wechsel()
If $Firefox = True Then
WinActivate("Microsoft Internet Explorer")
Else
WinActivate("Mozilla Firefox")
EndIf
$Firefox = Not $Firefox
EndFunc
kanns leider auch nich testen, hab hier kein autoit^^
Danke 
SEuBo
es Funktioniert super
MfG
