#include <GUIConstants.au3>
#include <WindowsConstants.au3>
#include <StaticConstants.au3>
Dim $WinBrowser, $oIE, $GUIActiveX
$oIE = ObjCreate("Shell.Explorer.2")
DoCreateBrowser()
; Waiting for user to close the window
While 1
$msg = GUIGetMsg()
Select
Case $msg = $GUI_EVENT_CLOSE
ExitLoop
EndSelect
Wend
GUIDelete ()
Exit
Func DoCreateBrowser()
$WinBrowser = GUICreate ("Browser", 800, 600,0,0, $WS_MINIMIZEBOX + $WS_SYSMENU + $WS_VISIBLE + $WS_CLIPSIBLINGS + $DS_MODALFRAME + $DS_SETFOREGROUND)
$GUIActiveX = GUICtrlCreateObj ( $oIE, 10, 10, 775, 555)
Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",3)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
Opt("MouseClickDownDelay", 50) ;50 milliseconds
Statuspage()
EndFunc
Func Statuspage()
$oIE.navigate("https://www.supernature-forum.de")
Sleep (500)
EndFunc