Subversion Repositories DMV.t01c1

; *******************************************************
; Example 1 - 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)
; *******************************************************
;

GUICtrlCreateLabel("ActiveX Object Example",10,30,140,20)
$ie = ObjCreate("Shell.Explorer.2")
$GUIActiveX = GUICtrlCreateObj($ie,10,50,480,340)
$ie.navigate("http://www.nu.nl")
; Continuous Loop to check for GUI Events
While 1
$guimsg = GUIGetMsg()
Select
Case $guimsg = $dummybutton
GUICtrlSendToDummy($dummy)
Case $guimsg = $dummy
MsgBox(0,"Dummy Example","You have clicked the dummy button.")
Case $guimsg = $GUI_EVENT_CLOSE
Exit
EndSelect
Wend