Mit Autoit 2 Aktive Sitzungen starten

[autoit]

; Trap COM errors so that 'Back' and 'Forward'
; outside of history bounds does not abort script
; (expect COM errors to be sent to the console)

[/autoit] [autoit][/autoit] [autoit]

#include <GUIConstantsEx.au3>
#include <IE.au3>
#include <WindowsConstants.au3>

[/autoit] [autoit][/autoit] [autoit]

Local $oIE = _IECreateEmbedded()
GUICreate("Embedded Web control Test", 640, 580, _
(@DesktopWidth - 640) / 2, (@DesktopHeight - 580) / 2, _
$WS_OVERLAPPEDWINDOW + $WS_CLIPSIBLINGS + $WS_CLIPCHILDREN)
GUICtrlCreateObj($oIE, 10, 40, 600, 360)
Local $idButton_Back = GUICtrlCreateButton("Back", 10, 420, 100, 30)
Local $idButton_Forward = GUICtrlCreateButton("Forward", 120, 420, 100, 30)
Local $idButton_Home = GUICtrlCreateButton("Home", 230, 420, 100, 30)
Local $idButton_Change = GUICtrlCreateButton("Change", 340, 420, 100, 30)

[/autoit] [autoit][/autoit] [autoit]

Global $g_idError_Message = GUICtrlCreateLabel("", 100, 500, 500, 30)
GUICtrlSetColor(-1, 0xff0000)

[/autoit] [autoit][/autoit] [autoit]

GUISetState(@SW_SHOW) ;Show GUI

[/autoit] [autoit][/autoit] [autoit]

_IENavigate($oIE, "www.facebook.com")
_IEAction($oIE, "stop")

[/autoit] [autoit][/autoit] [autoit]

; Waiting for user to close the window

[/autoit] [autoit][/autoit] [autoit]

Example()

[/autoit] [autoit][/autoit] [autoit]

While 1
Local $iMsg = GUIGetMsg()
Select
Case $iMsg = $GUI_EVENT_CLOSE
;~ ExitLoop
Case $iMsg = $idButton_Home
_IENavigate($oIE, "www.facebook.com")
_IEAction($oIE, "stop")
_IEAction($oIE, "back")
CheckError("Home", @error, @extended)
Case $iMsg = $idButton_Back
_IEAction($oIE, "back")
CheckError("Back", @error, @extended)
Case $iMsg = $idButton_Forward
_IEAction($oIE, "forward")
CheckError("Forward", @error, @extended)
Case $iMsg = $idButton_Change
_IENavigate($oIE, InputBox("Url","Url","www.google.de"))
_IEAction($oIE, "stop")
EndSelect
WEnd

[/autoit] [autoit][/autoit] [autoit]

GUIDelete()

[/autoit] [autoit][/autoit] [autoit]

Exit

[/autoit] [autoit][/autoit] [autoit]

Func CheckError($sMsg, $iError, $iExtended)
If $iError Then
$sMsg = "Error using " & $sMsg & " button (" & $iExtended & ")"
Else
$sMsg = ""
EndIf
GUICtrlSetData($g_idError_Message, $sMsg)
EndFunc ;==>CheckError

[/autoit] [autoit][/autoit] [autoit]

Func Example()
Local $oIE
Local $msg
$oIE = ObjCreate("Shell.Explorer.2")
; Create a simple GUI for our output
GUICreate("Embedded Web control Test", 640, 580, (@DesktopWidth - 640) / 2, (@DesktopHeight - 580) / 2)
GUICtrlCreateObj($oIE, 10, 10, 630, 570)
GUISetState(@SW_SHOW) ;Show GUI
$oIE.navigate("www.facebook.com") ; Loop until the user exits.
EndFunc ;==>Example

[/autoit]