Internetexplorer minimieren für 1Minute dann 1Minute auf Vollbild dann wieder 1Minute minimieren in schleife

Example()


Func Example() ; Run Notepad
	Local $iPID = Run("notepad.exe") ; Wait 10 seconds for the Notepad window to appear.
	Local $hWnd = WinWait("[CLASS:Notepad]", "", 10) ; Set the state of the Notepad window to "hide".
	Sleep(2000) ; Set the state of the Notepad window to "show".
	WinSetState($hWnd, "", @SW_HIDE) ; Wait for 2 seconds.
	Sleep(2000) ; Set the state of the Notepad window to "show".
	WinSetState($hWnd, "", @SW_SHOW) ; Wait for 2 seconds.
	Sleep(2000) ; Close the Notepad window using the handle returned by WinWait.
	ProcessClose($iPID)
EndFunc   ;==>Example

Local $s = 2000
Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe")
Sleep($s)
WinSetState("[CLASS:IEFrame]", "", @SW_HIDE)
Run("notepad.exe")
Sleep($s)
WinSetState("[CLASS:Notepad]", "", @SW_HIDE)
Local $i = 0


Do
	$i += 1
	_Wechsel()
Until $i = 5


Func _Wechsel()
	WinSetState("[CLASS:IEFrame]", "", @SW_SHOW)
	Sleep($s)
	WinSetState("[CLASS:IEFrame]", "", @SW_HIDE)
	WinSetState("[CLASS:Notepad]", "", @SW_SHOW)
	Sleep($s)
	WinSetState("[CLASS:Notepad]", "", @SW_HIDE)
EndFunc

;-- TIME_STAMP   2017-03-05 14:26:24   v 0.1


Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe")
Run("notepad.exe")


AdlibRegister(_ShowHide, 1000 * 60)


While 1
	Sleep(50)
WEnd


Func _ShowHide()
	Local Static $vIEShow = @SW_HIDE, $vNPShow = @SW_SHOW
	$vIEShow = ($vIEShow = @SW_HIDE) ? @SW_SHOW : @SW_HIDE
	$vNPShow = ($vNPShow = @SW_SHOW) ? @SW_HIDE : @SW_SHOW


	If WinSetState("[CLASS:IEFrame]", "", $vIEShow) = 0 _
	Or WinSetState("[CLASS:Notepad]", "", $vNPShow) = 0 _
	Then Exit ; ID und/oder Notepad wurde/n beendet
EndFunc

;-- TIME_STAMP   2017-03-05 15:48:06   v 0.1


Global $hWndIE, $hWndNP, $aProcessWindows
Run(@ProgramFilesDir & "\Internet Explorer\iexplore.exe")
Run("notepad.exe")
; Window-Handles holen, damit wir immer dieselben Windows schließen!
$hWndIE = WinWait("[CLASS:IEFrame]", '', 5)
$hWndNP = WinWait("[CLASS:Notepad]", '', 5)
If Not IsHWnd($hWndIE) Or Not IsHWnd($hWndNP) Then Exit 1


AdlibRegister(_ShowHide, 1000 * 60)	; 1x pro Minute @SW_SHOW/@SW_HIDE umschalten


While 1
	Sleep(50)
WEnd


Func _ShowHide()
	Local Static $vIEShow = @SW_SHOW
	Local $vNPShow = $vIEShow
	$vIEShow = ($vIEShow = @SW_SHOW) ? @SW_HIDE : @SW_SHOW


	If WinSetState($hWndIE, "", $vIEShow) = 1 And WinSetState($hWndNP, "", $vNPShow) = 1 Then Return


	; IE und/oder Notepad wurde/n beendet
	Exit WinSetState($hWndIE, "", @SW_SHOW) - WinSetState($hWndNP, "", @SW_SHOW)
EndFunc