|
|
|
DWebBrowserEvents2 Interface |
|
IID |
{34A715A0-6587-11D0-924A-0020AFC7AC4D} |
|
This interface
designates an event sink interface that an application must implement in
order to receive event notifications from a WebBrowser control or from the
Microsoft Internet Explorer application. Note that not all of the events
listed below are supported by the WebBrowser control. |
|
Methods in VTable order |
|
|
IUnknown Methods |
Description |
|
QueryInterface |
Returns pointers to supported interfaces. |
|
AddRef |
Increments reference count. |
|
Release |
Decrements reference count. |
|
DWebBrowserEvents2 Members |
Description |
|
StatusTextChange |
Fires when the status bar text of the object has changed. |
|
ProgressChange |
Fires when the progress of a download operation is updated on the object. |
|
CommandStateChange |
Fires when the enabled state of a command changes. |
|
DownloadBegin |
Fires when a navigation operation is beginning. |
|
DowloadComplete |
Fires when a navigation operation finishes, is halted, or fails. |
|
TitleChange |
Fires when the title of a document in the object becomes available or changes. |
|
PropertyChange |
Fires when the IWebBrowser2::PutProperty method of the object changes the value of a property. |
|
BeforeNavigate2 |
Fires before navigation occurs in the given object (on either a window or frameset element). |
|
NewWindow2 |
Fires when a new window is to be created. |
|
NavigateComplete2 |
Fires after a navigation to a link is completed on either a window or frameSet element. |
|
DocumentComplete |
Fires when a document has been completely loaded and initialized. |
|
OnQuit |
Fires before the Internet Explorer application quits. |
|
OnVisible |
Fires when the IWebBrowser2::Visible property of the object is changed. |
|
OnToolbar |
Fires when the IWebBrowser2::ToolBar property is changed. |
|
OnMenuBar |
Fires when the IWebBrowser2::MenuBar property is changed. |
|
OnStatusBar |
Fires when the IWebBrowser2::StatusBar property is changed. |
|
OnFullScreen |
Fires when the IWebBrowser2::FullScreen property is changed. |
|
OnTheaterMode |
Fires when the IWebBrowser2::TheaterMode property is changed. |
|
WindowSetResizable |
Fires to indicate whether the host window should allow or disallow resizing of the object. |
|
WindowSetLeft |
Fires when the object changes its left position. |
|
WindowSetTop |
Fires when the object changes its top position. |
|
WindowSetWidth |
Fires when the object changes its width. |
|
WindowSetHeight |
Fires when the object changes its height. |
|
WindowClosing |
Fires when the window of the object is about to be closed by script. |
|
ClientToHostWindow |
Fires to request that the client window size be converted to the host window size. |
|
SetSecureLockIcon |
Fires when there is a change in encryption level. |
|
FileDownload |
Fires to indicate that a file download is about to occur. If a file download dialog is to be displayed, this event is fired prior to the display of the dialog. |
|
NavigateError |
Fires when an error occurs during navigation. |
|
PrintTemplateInstantiation |
Fires when a print template has been instantiated. |
|
PrintTemplateTeardown |
Fires when a print template has been destroyed. |
|
UpdatePageStatus |
Not currently implemented. |
|
PrivacyImpactedStateChange |
Fired when an event occurs that impacts privacy or when a user navigates away from a URL that has impacted privacy. |
|
NewWindow3 |
Raised when a new window is to be created. Extends DWebBrowserEvents2::NewWindow2 with additional information about the new window. |
|
DWebBrowserEvents2 interface implementation |
' ****************************************************************************************
' DWebBrowserEvents2 dispatch interface
' IID = {34A715A0-6587-11D0-924A-0020AFC7AC4D}
' Help string = Web Browser Control events interface
' Attributes = 4112 [&H1010] [Hidden] [Dispatchable]
' Number of functions = 33
' ****************************************************************************************
' ****************************************************************************************
' EXCEPINFO structure
' ****************************************************************************************
TYPE DWebBrowserEvents2_EXCEPINFO
wCode AS WORD ' An error code describing the error.
wReserved AS WORD ' Reserved
bstrSource AS DWORD ' Source of the exception.
bstrDescription AS DWORD ' Textual description of the error.
bstrHelpFile AS DWORD ' Help file path.
dwHelpContext AS DWORD ' Help context ID.
pvReserved AS DWORD ' Reserved.
pfnDeferredFillIn AS DWORD ' Pointer to function that fills in Help and description info.
scode AS DWORD ' An error code describing the error.
END TYPE
' ****************************************************************************************
' ****************************************************************************************
' Returns a pointer to a specified interface on an object to which a client currently holds an
' interface pointer.
' ****************************************************************************************
FUNCTION DWebBrowserEvents2_IUnknown_QueryInterface (BYVAL pthis AS DWORD PTR, _
BYREF riid AS GUID, BYREF ppvObj AS DWORD) AS LONG
LOCAL HRESULT AS LONG
CALL DWORD @@pthis[0] USING DWebBrowserEvents2_IUnknown_QueryInterface(pthis, riid, ppvObj) TO HRESULT
FUNCTION = HRESULT
END FUNCTION
' ****************************************************************************************
' ****************************************************************************************
' Decrements the reference count for the calling interface on a object. If the reference count
' on the object falls to 0, the object is freed from memory.
' ****************************************************************************************
FUNCTION DWebBrowserEvents2_IUnknown_Release (BYVAL pthis AS DWORD PTR) AS DWORD
LOCAL DWRESULT AS DWORD
CALL DWORD @@pthis[2] USING DWebBrowserEvents2_IUnknown_Release(pthis) TO DWRESULT
FUNCTION = DWRESULT
END FUNCTION
' ****************************************************************************************
' ****************************************************************************************
' IConnectionPointContainer::FindConnectionPoint
' Returns a pointer to the IConnectionPoint interface of a connection point for a specified IID,
' if that IID describes a supported outgoing interface.
' ****************************************************************************************
FUNCTION DWebBrowserEvents2_IConnectionPointContainer_FindConnectionPoint ( _
BYVAL pthis AS DWORD PTR, BYREF riid AS GUID, BYREF ppCP AS DWORD) AS LONG
LOCAL HRESULT AS LONG
CALL DWORD @@pthis[4] USING DWebBrowserEvents2_IConnectionPointContainer_FindConnectionPoint(pthis, riid, ppCP) TO HRESULT
FUNCTION = HRESULT
END FUNCTION
' ****************************************************************************************
' ****************************************************************************************
' IConnectionPoint::Advise
' Establishes a connection between the connection point object and the client's sink.
' ****************************************************************************************
FUNCTION DWebBrowserEvents2_IConnectionPoint_Advise (BYVAL pthis AS DWORD PTR, _
BYVAL pUnkSink AS DWORD, BYREF pdwCookie AS DWORD) AS LONG
LOCAL HRESULT AS LONG
CALL DWORD @@pthis[5] USING DWebBrowserEvents2_IConnectionPoint_Advise(pthis, pUnkSink, pdwCookie) TO HRESULT
FUNCTION = HRESULT
END FUNCTION
' ****************************************************************************************
' ****************************************************************************************
' IConnectionPoint::Unadvise
' Terminates an advisory connection previously established through IConnectionPoint_Advise.
' The dwCookie parameter identifies the connection to terminate.
' ****************************************************************************************
FUNCTION DWebBrowserEvents2_IConnectionPoint_Unadvise (BYVAL pthis AS DWORD PTR, BYVAL dwCookie AS DWORD) AS LONG
LOCAL HRESULT AS LONG
CALL DWORD @@pthis[6] USING DWebBrowserEvents2_IConnectionPoint_Unadvise(pthis, dwCookie) TO HRESULT
FUNCTION = HRESULT
END FUNCTION
' ****************************************************************************************
' ****************************************************************************************
' IDispatch virtual table
' ****************************************************************************************
TYPE DWebBrowserEvents2_IDispatchVtbl
QueryInterface AS DWORD ' Returns pointers to supported interfaces
AddRef AS DWORD ' Increments reference count
Release AS DWORD ' Decrements reference count
GetTypeInfoCount AS DWORD ' Retrieves the number of type descriptions
GetTypeInfo AS DWORD ' Retrieves a description of object's programmable interface
GetIDsOfNames AS DWORD ' Maps name of method or property to DispId
Invoke AS DWORD ' Calls one of the object's methods, or gets/sets one of its properties
pVtblAddr AS DWORD ' Address of the virtual table
cRef AS DWORD ' Reference counter
pthis AS DWORD ' IUnknown or IDispatch of the control that fires the events
END TYPE
' ****************************************************************************************
' ****************************************************************************************
' UI4 AddRef()
' Increments the reference counter.
' ****************************************************************************************
FUNCTION DWebBrowserEvents2_AddRef (BYVAL pCookie AS DWebBrowserEvents2_IDispatchVtbl PTR) AS DWORD
INCR @@pCookie.cRef
FUNCTION = @@pCookie.cRef
END FUNCTION
' ****************************************************************************************
' ****************************************************************************************
' HRESULT QueryInterface([in] *GUID riid, [out] **VOID ppvObj)
' Returns the IUnknown of our class and increments the reference counter.
' ****************************************************************************************
FUNCTION DWebBrowserEvents2_QueryInterface (BYVAL pCookie AS DWebBrowserEvents2_IDispatchVtbl PTR, _
BYREF riid AS GUID, BYREF ppvObj AS DWORD) AS LONG
ppvObj = pCookie
DWebBrowserEvents2_AddRef pCookie
FUNCTION = %S_OK
END FUNCTION
' ****************************************************************************************
' ****************************************************************************************
' UI4 Release()
' Releases our class if there is only a reference to him and decrements the reference counter.
' ****************************************************************************************
FUNCTION DWebBrowserEvents2_Release (BYVAL pCookie AS DWebBrowserEvents2_IDispatchVtbl PTR) AS DWORD
LOCAL pVtblAddr AS DWORD
IF @@pCookie.cRef = 1 THEN
pVtblAddr = @@pCookie.pVtblAddr
IF ISTRUE HeapFree(GetProcessHeap(), 0, BYVAL pVtblAddr) THEN
FUNCTION = 0
EXIT FUNCTION
ELSE
FUNCTION = @@pCookie.cRef
EXIT FUNCTION
END IF
END IF
DECR @@pCookie.cRef
FUNCTION = @@pCookie.cRef
END FUNCTION
' ****************************************************************************************
' ****************************************************************************************
' HRESULT GetTypeInfoCount([out] *UINT pctinfo)
' ****************************************************************************************
FUNCTION DWebBrowserEvents2_GetTypeInfoCount (BYVAL pCookie AS DWebBrowserEvents2_IDispatchVtbl PTR, BYREF pctInfo AS DWORD) AS LONG
FUNCTION = %E_NOTIMPL
END FUNCTION
' ****************************************************************************************
' ****************************************************************************************
' HRESULT GetTypeInfo([in] UINT itinfo, [in] UI4 lcid, [out] **VOID pptinfo)
' ****************************************************************************************
FUNCTION DWebBrowserEvents2_GetTypeInfo (BYVAL pCookie AS DWebBrowserEvents2_IDispatchVtbl PTR, _
BYVAL itinfo AS DWORD, BYVAL lcid AS DWORD, BYREF pptinfo AS DWORD) AS LONG
FUNCTION = %E_NOTIMPL
END FUNCTION
' ****************************************************************************************
' ****************************************************************************************
' HRESULT GetIDsOfNames([in] *GUID riid, [in] **I1 rgszNames, [in] UINT cNames, [in] UI4 lcid, [out] *I4 rgdispid)
' ****************************************************************************************
FUNCTION DWebBrowserEvents2_GetIDsOfNames (BYVAL pCookie AS DWebBrowserEvents2_IDispatchVtbl PTR, _
BYREF riid AS GUID, BYVAL rgszNames AS DWORD, BYVAL cNames AS DWORD, BYVAL lcid AS DWORD, BYREF rgdispid AS LONG) AS LONG
FUNCTION = %E_NOTIMPL
END FUNCTION
' ****************************************************************************************
' ****************************************************************************************
' Builds the IDispatch Virtual Table
' ****************************************************************************************
FUNCTION DWebBrowserEvents2_BuildVtbl (BYVAL pthis AS DWORD) AS DWORD
LOCAL pVtbl AS DWebBrowserEvents2_IDispatchVtbl PTR
LOCAL pUnk AS DWebBrowserEvents2_IDispatchVtbl PTR
pVtbl = HeapAlloc(GetProcessHeap(), %HEAP_ZERO_MEMORY, SIZEOF(@pVtbl))
IF pVtbl = 0 THEN EXIT FUNCTION
@pVtbl.QueryInterface = CODEPTR(DWebBrowserEvents2_QueryInterface)
@pVtbl.AddRef = CODEPTR(DWebBrowserEvents2_AddRef)
@pVtbl.Release = CODEPTR(DWebBrowserEvents2_Release)
@pVtbl.GetTypeInfoCount = CODEPTR(DWebBrowserEvents2_GetTypeInfoCount)
@pVtbl.GetTypeInfo = CODEPTR(DWebBrowserEvents2_GetTypeInfo)
@pVtbl.GetIDsOfNames = CODEPTR(DWebBrowserEvents2_GetIDsOfNames)
@pVtbl.Invoke = CODEPTR(DWebBrowserEvents2_Invoke)
@pVtbl.pVtblAddr = pVtbl
@pVtbl.pthis = pthis
pUnk = VARPTR(@pVtbl.pVtblAddr)
FUNCTION = pUnk
END FUNCTION
' ****************************************************************************************
' ****************************************************************************************
' Establishes a connection between the connection point object and the client's sink.
' Returns a token that uniquely identifies this connection.
' ****************************************************************************************
FUNCTION DWebBrowserEvents2_ConnectEvents (BYVAL pthis AS DWORD, BYREF pdwCookie AS DWORD) AS LONG
LOCAL HRESULT AS LONG ' HRESULT code
LOCAL pCPC AS DWORD ' IConnectionPointContainer
LOCAL pCP AS DWORD ' IConnectionPoint
LOCAL IID_CPC AS GUID ' IID_IConnectionPointContainer
LOCAL IID_CP AS GUID ' Events dispinterface
LOCAL dwCookie AS DWORD ' Returned token
LOCAL pUnkSink AS DWORD ' IUnknown of the class
IID_CPC = GUID$("{B196B284-BAB4-101A-B69C-00AA00341D07}")
IID_CP = GUID$("{34A715A0-6587-11D0-924A-0020AFC7AC4D}")
IF pthis = 0 THEN FUNCTION = -1 : EXIT FUNCTION
HRESULT = DWebBrowserEvents2_IUnknown_QueryInterface(pthis, IID_CPC, pCPC)
IF HRESULT <> %S_OK THEN FUNCTION = HRESULT : EXIT FUNCTION
HRESULT = DWebBrowserEvents2_IConnectionPointContainer_FindConnectionPoint(pCPC, IID_CP, pCP)
DWebBrowserEvents2_IUnknown_Release pCPC
IF HRESULT <> %S_OK THEN FUNCTION = HRESULT : EXIT FUNCTION
pUnkSink = DWebBrowserEvents2_BuildVtbl(pthis)
IF ISTRUE pUnkSink THEN HRESULT = DWebBrowserEvents2_IConnectionPoint_Advise(pCP, pUnkSink, dwCookie)
DWebBrowserEvents2_IUnknown_Release pCP
pdwCookie = dwCookie
FUNCTION = HRESULT
END FUNCTION
' ****************************************************************************************
' ****************************************************************************************
' Releases the events connection identified with the cookie returned by the ConnectEvents function
' ****************************************************************************************
FUNCTION DWebBrowserEvents2_DisconnectEvents (BYVAL pthis AS DWORD, BYVAL dwCookie AS DWORD) AS LONG
LOCAL HRESULT AS LONG ' HRESULT code
LOCAL pCPC AS DWORD ' IConnectionPointContainer
LOCAL pCP AS DWORD ' IConnectionPoint
LOCAL IID_CPC AS GUID ' IID_IConnectionPointContainer
LOCAL IID_CP AS GUID ' ConnectionEvents dispinterface
IID_CPC = GUID$("{B196B284-BAB4-101A-B69C-00AA00341D07}")
IID_CP = GUID$("{34A715A0-6587-11D0-924A-0020AFC7AC4D}")
IF pthis = 0 THEN FUNCTION = -1 : EXIT FUNCTION
HRESULT = DWebBrowserEvents2_IUnknown_QueryInterface(pthis, IID_CPC, pCPC)
IF HRESULT <> %S_OK THEN FUNCTION = HRESULT : EXIT FUNCTION
HRESULT = DWebBrowserEvents2_IConnectionPointContainer_FindConnectionPoint(pCPC, IID_CP, pCP)
DWebBrowserEvents2_IUnknown_Release pCPC
IF HRESULT <> %S_OK THEN FUNCTION = HRESULT : EXIT FUNCTION
HRESULT = DWebBrowserEvents2_IConnectionPoint_Unadvise(pCP, dwCookie)
DWebBrowserEvents2_IUnknown_Release pCP
FUNCTION = HRESULT
END FUNCTION
' ****************************************************************************************
' ****************************************************************************************
' Function name: StatusTextChange
' Dispatch interface name: DWebBrowserEvents2
' Member identifier: &H00000066 (102)
' ****************************************************************************************
SUB DWebBrowserEvents2_StatusTextChange (BYVAL pCookie AS DWebBrowserEvents2_IDispatchVtbl PTR, BYREF pdispparams AS DISPPARAMS)
' =======================================================================================
' Retrieve the IDispatch reference of the control that has fired the event.
' =======================================================================================
LOCAL pthis AS DWORD : pthis = @@pCookie.pthis
' =======================================================================================
' =======================================================================================
' Pointer variables to access the parameters
' =======================================================================================
LOCAL pv AS VARIANT PTR : pv = pdispparams.VariantArgs
' =======================================================================================
' =======================================================================================
' Parameters in DISPPARAMS are zero based and in reverse order
' =======================================================================================
' *** Text - VarType: %VT_BSTR <DYNAMIC UNICODE STRING> - Attributes: &H1 - [in] ***
LOCAL pbstrText AS STRING : pbstrText = VARIANT$(@pv[0])
' =======================================================================================
' =======================================================================================
' *** Put your code here ***
' =======================================================================================
END SUB
' ****************************************************************************************
' ****************************************************************************************
' Function name: ProgressChange
' Dispatch interface name: DWebBrowserEvents2
' Member identifier: &H0000006C (108)
' ****************************************************************************************
SUB DWebBrowserEvents2_ProgressChange (BYVAL pCookie AS DWebBrowserEvents2_IDispatchVtbl PTR, BYREF pdispparams AS DISPPARAMS)
' =======================================================================================
' Retrieve the IDispatch reference of the control that has fired the event.
' =======================================================================================
LOCAL pthis AS DWORD : pthis = @@pCookie.pthis
' =======================================================================================
' =======================================================================================
' Pointer variables to access the parameters
' =======================================================================================
LOCAL pv AS VARIANT PTR : pv = pdispparams.VariantArgs
' =======================================================================================
' =======================================================================================
' Parameters in DISPPARAMS are zero based and in reverse order
' =======================================================================================
' *** Progress - VarType: %VT_I4 <LONG> - Attributes: &H1 - [in] ***
LOCAL Progress AS LONG : Progress = VARIANT#(@pv[1])
' =======================================================================================
' *** ProgressMax - VarType: %VT_I4 <LONG> - Attributes: &H1 - [in] ***
LOCAL ProgressMax AS LONG : ProgressMax = VARIANT#(@pv[0])
' =======================================================================================
' =======================================================================================
' *** Put your code here ***
' =======================================================================================
END SUB
' ****************************************************************************************
' ****************************************************************************************
' Function name: CommandStateChange
' Dispatch interface name: DWebBrowserEvents2
' Member identifier: &H00000069 (105)
' ****************************************************************************************
SUB DWebBrowserEvents2_CommandStateChange (BYVAL pCookie AS DWebBrowserEvents2_IDispatchVtbl PTR, BYREF pdispparams AS DISPPARAMS)
' =======================================================================================
' Retrieve the IDispatch reference of the control that has fired the event.
' =======================================================================================
LOCAL pthis AS DWORD : pthis = @@pCookie.pthis
' =======================================================================================
' =======================================================================================
' Pointer variables to access the parameters
' =======================================================================================
LOCAL pv AS VARIANT PTR : pv = pdispparams.VariantArgs
' =======================================================================================
' =======================================================================================
' Parameters in DISPPARAMS are zero based and in reverse order
' =======================================================================================
' *** Command - VarType: %VT_I4 <LONG> - Attributes: &H1 - [in] ***
LOCAL prmCommand AS LONG : prmCommand = VARIANT#(@pv[1])
' =======================================================================================
' *** Enable - VarType: %VT_BOOL <INTEGER> - Attributes: &H1 - [in] ***
LOCAL pfEnable AS INTEGER : pfEnable = VARIANT#(@pv[0])
' =======================================================================================
' =======================================================================================
' *** Put your code here ***
' =======================================================================================
END SUB
' ****************************************************************************************
' ****************************************************************************************
' Function name: DownloadBegin
' Dispatch interface name: DWebBrowserEvents2
' Member identifier: &H0000006A (106)
' ****************************************************************************************
SUB DWebBrowserEvents2_DownloadBegin (BYVAL pCookie AS DWebBrowserEvents2_IDispatchVtbl PTR, BYREF pdispparams AS DISPPARAMS)
' =======================================================================================
' Retrieve the IDispatch reference of the control that has fired the event.
' =======================================================================================
LOCAL pthis AS DWORD : pthis = @@pCookie.pthis
' =======================================================================================
' =======================================================================================
' *** Put your code here ***
' =======================================================================================
END SUB
' ****************************************************************************************
' ****************************************************************************************
' Function name: DownloadComplete
' Dispatch interface name: DWebBrowserEvents2
' Member identifier: &H00000068 (104)
' ****************************************************************************************
SUB DWebBrowserEvents2_DownloadComplete (BYVAL pCookie AS DWebBrowserEvents2_IDispatchVtbl PTR, BYREF pdispparams AS DISPPARAMS)
' =======================================================================================
' Retrieve the IDispatch reference of the control that has fired the event.
' =======================================================================================
LOCAL pthis AS DWORD : pthis = @@pCookie.pthis
' =======================================================================================
' =======================================================================================
' *** Put your code here ***
' =======================================================================================
END SUB
' ****************************************************************************************
' ****************************************************************************************
' Function name: TitleChange
' Dispatch interface name: DWebBrowserEvents2
' Member identifier: &H00000071 (113)
' ****************************************************************************************
SUB DWebBrowserEvents2_TitleChange (BYVAL pCookie AS DWebBrowserEvents2_IDispatchVtbl PTR, BYREF pdispparams AS DISPPARAMS)
' =======================================================================================
' Retrieve the IDispatch reference of the control that has fired the event.
' =======================================================================================
LOCAL pthis AS DWORD : pthis = @@pCookie.pthis
' =======================================================================================
' =======================================================================================
' Pointer variables to access the parameters
' =======================================================================================
LOCAL pv AS VARIANT PTR : pv = pdispparams.VariantArgs
' =======================================================================================
' =======================================================================================
' Parameters in DISPPARAMS are zero based and in reverse order
' =======================================================================================
' *** Text - VarType: %VT_BSTR <DYNAMIC UNICODE STRING> - Attributes: &H1 - [in] ***
LOCAL pbstrText AS STRING : pbstrText = VARIANT$(@pv[0])
' =======================================================================================
' =======================================================================================
' *** Put your code here ***
' =======================================================================================
END SUB
' ****************************************************************************************
' ****************************************************************************************
' Function name: PropertyChange
' Dispatch interface name: DWebBrowserEvents2
' Member identifier: &H00000070 (112)
' ****************************************************************************************
SUB DWebBrowserEvents2_PropertyChange (BYVAL pCookie AS DWebBrowserEvents2_IDispatchVtbl PTR, BYREF pdispparams AS DISPPARAMS)
' =======================================================================================
' Retrieve the IDispatch reference of the control that has fired the event.
' =======================================================================================
LOCAL pthis AS DWORD : pthis = @@pCookie.pthis
' =======================================================================================
' =======================================================================================
' Pointer variables to access the parameters
' =======================================================================================
LOCAL pv AS VARIANT PTR : pv = pdispparams.VariantArgs
' =======================================================================================
' =======================================================================================
' Parameters in DISPPARAMS are zero based and in reverse order
' =======================================================================================
' *** szProperty - VarType: %VT_BSTR <DYNAMIC UNICODE STRING> - Attributes: &H1 - [in] ***
LOCAL szProperty AS STRING : szProperty = VARIANT$(@pv[0])
' =======================================================================================
' =======================================================================================
' *** Put your code here ***
' =======================================================================================
END SUB
' ****************************************************************************************
' ****************************************************************************************
' Function name: BeforeNavigate2
' Dispatch interface name: DWebBrowserEvents2
' Member identifier: &H000000FA (250)
' ****************************************************************************************
SUB DWebBrowserEvents2_BeforeNavigate2 (BYVAL pCookie AS DWebBrowserEvents2_IDispatchVtbl PTR, BYREF pdispparams AS DISPPARAMS)
' =======================================================================================
' Retrieve the IDispatch reference of the control that has fired the event.
' =======================================================================================
LOCAL pthis AS DWORD : pthis = @@pCookie.pthis
' =======================================================================================
' =======================================================================================
' Pointer variables to access the parameters
' =======================================================================================
LOCAL pv AS VARIANT PTR : pv = pdispparams.VariantArgs
LOCAL pvapi AS VARIANTAPI PTR : pvapi = pv
' =======================================================================================
' =======================================================================================
' Parameters in DISPPARAMS are zero based and in reverse order
' =======================================================================================
' *** pDisp - VarType: %VT_DISPATCH <IDISPATCH> - Attributes: &H1 - [in] ***
LOCAL pDisp AS DWORD : pDisp = VARIANT#(@pv[6])
' =======================================================================================
' *** URL - VarType: VT_PTR - Resolved VarType: *%VT_VARIANT <VARIANT> - Attributes: &H1 - [in] ***
STATIC URL AS VARIANT : URL = @pv[5]
' To return a value, use: URL = <value> : @pvapi[5].vd.@pVariant = VARPTR(URL)
' =======================================================================================
' *** Flags - VarType: VT_PTR - Resolved VarType: *%VT_VARIANT <VARIANT> - Attributes: &H1 - [in] ***
STATIC Flags AS VARIANT : Flags = @pv[4]
' To return a value, use: Flags = <value> : @pvapi[4].vd.@pVariant = VARPTR(Flags)
' =======================================================================================
' *** TargetFrameName - VarType: VT_PTR - Resolved VarType: *%VT_VARIANT <VARIANT> - Attributes: &H1 - [in] ***
STATIC TargetFrameName AS VARIANT : TargetFrameName = @pv[3]
' To return a value, use: TargetFrameName = <value> : @pvapi[3].vd.@pVariant = VARPTR(TargetFrameName)
' =======================================================================================
' *** PostData - VarType: VT_PTR - Resolved VarType: *%VT_VARIANT <VARIANT> - Attributes: &H1 - [in] ***
STATIC PostData AS VARIANT : PostData = @pv[2]
' To return a value, use: PostData = <value> : @pvapi[2].vd.@pVariant = VARPTR(PostData)
' =======================================================================================
' *** Headers - VarType: VT_PTR - Resolved VarType: *%VT_VARIANT <VARIANT> - Attributes: &H1 - [in] ***
STATIC Headers AS VARIANT : Headers = @pv[1]
' To return a value, use: Headers = <value> : @pvapi[1].vd.@pVariant = VARPTR(Headers)
' =======================================================================================
' *** Cancel - VarType: VT_PTR - Resolved VarType: *%VT_BOOL <INTEGER> - Attributes: &H3 - [in] [out] ***
LOCAL prmCancel AS INTEGER : prmCancel = VARIANT#(@pv[0])
' To return a value, use: prmCancel = <value> : @pvapi[0].vd.@pboolVal = prmCancel
' =======================================================================================
' =======================================================================================
' *** Put your code here ***
' =======================================================================================
END SUB
' ****************************************************************************************
' ****************************************************************************************
' Function name: NewWindow2
' Dispatch interface name: DWebBrowserEvents2
' Member identifier: &H000000FB (251)
' ****************************************************************************************
SUB DWebBrowserEvents2_NewWindow2 (BYVAL pCookie AS DWebBrowserEvents2_IDispatchVtbl PTR, BYREF pdispparams AS DISPPARAMS)
' =======================================================================================
' Retrieve the IDispatch reference of the control that has fired the event.
' =======================================================================================
LOCAL pthis AS DWORD : pthis = @@pCookie.pthis
' =======================================================================================
' =======================================================================================
' Pointer variables to access the parameters
' =======================================================================================
LOCAL pv AS VARIANT PTR : pv = pdispparams.VariantArgs
LOCAL pvapi AS VARIANTAPI PTR : pvapi = pv
' =======================================================================================
' =======================================================================================
' Parameters in DISPPARAMS are zero based and in reverse order
' =======================================================================================
' *** ppDisp - VarType: VT_PTR - Resolved VarType: *%VT_DISPATCH <IDISPATCH> - Attributes: &H3 - [in] [out] ***
LOCAL ppDisp AS DWORD : ppDisp = VARIANT#(@pv[1])
' To return a value, use: ppDisp = <value> : @pvapi[1].vd.@ppdispVal = ppDisp
' =======================================================================================
' *** Cancel - VarType: VT_PTR - Resolved VarType: *%VT_BOOL <INTEGER> - Attributes: &H3 - [in] [out] ***
LOCAL prmCancel AS INTEGER : prmCancel = VARIANT#(@pv[0])
' To return a value, use: prmCancel = <value> : @pvapi[0].vd.@pboolVal = prmCancel
' =======================================================================================
' =======================================================================================
' *** Put your code here ***
' =======================================================================================
END SUB
' ****************************************************************************************
' ****************************************************************************************
' Function name: NavigateComplete2
' Dispatch interface name: DWebBrowserEvents2
' Member identifier: &H000000FC (252)
' ****************************************************************************************
SUB DWebBrowserEvents2_NavigateComplete2 (BYVAL pCookie AS DWebBrowserEvents2_IDispatchVtbl PTR, BYREF pdispparams AS DISPPARAMS)
' =======================================================================================
' Retrieve the IDispatch reference of the control that has fired the event.
' =======================================================================================
LOCAL pthis AS DWORD : pthis = @@pCookie.pthis
' =======================================================================================
' =======================================================================================
' Pointer variables to access the parameters
' =======================================================================================
LOCAL pv AS VARIANT PTR : pv = pdispparams.VariantArgs
LOCAL pvapi AS VARIANTAPI PTR : pvapi = pv
' =======================================================================================
' =======================================================================================
' Parameters in DISPPARAMS are zero based and in reverse order
' =======================================================================================
' *** pDisp - VarType: %VT_DISPATCH <IDISPATCH> - Attributes: &H1 - [in] ***
LOCAL pDisp AS DWORD : pDisp = VARIANT#(@pv[1])
' =======================================================================================
' *** URL - VarType: VT_PTR - Resolved VarType: *%VT_VARIANT <VARIANT> - Attributes: &H1 - [in] ***
STATIC URL AS VARIANT : URL = @pv[0]
' To return a value, use: URL = <value> : @pvapi[0].vd.@pVariant = VARPTR(URL)
' =======================================================================================
' =======================================================================================
' *** Put your code here ***
' =======================================================================================
END SUB
' ****************************************************************************************
' ****************************************************************************************
' Function name: DocumentComplete
' Dispatch interface name: DWebBrowserEvents2
' Member identifier: &H00000103 (259)
' ****************************************************************************************
SUB DWebBrowserEvents2_DocumentComplete (BYVAL pCookie AS DWebBrowserEvents2_IDispatchVtbl PTR, BYREF pdispparams AS DISPPARAMS)
' =======================================================================================
' Retrieve the IDispatch reference of the control that has fired the event.
' =======================================================================================
LOCAL pthis AS DWORD : pthis = @@pCookie.pthis
' =======================================================================================
' =======================================================================================
' Pointer variables to access the parameters
' =======================================================================================
LOCAL pv AS VARIANT PTR : pv = pdispparams.VariantArgs
LOCAL pvapi AS VARIANTAPI PTR : pvapi = pv
' =======================================================================================
' =======================================================================================
' Parameters in DISPPARAMS are zero based and in reverse order
' =======================================================================================
' *** pDisp - VarType: %VT_DISPATCH <IDISPATCH> - Attributes: &H1 - [in] ***
LOCAL pDisp AS DWORD : pDisp = VARIANT#(@pv[1])
' =======================================================================================
' *** URL - VarType: VT_PTR - Resolved VarType: *%VT_VARIANT <VARIANT> - Attributes: &H1 - [in] ***
STATIC URL AS VARIANT : URL = @pv[0]
' To return a value, use: URL = <value> : @pvapi[0].vd.@pVariant = VARPTR(URL)
' =======================================================================================
' =======================================================================================
' *** Put your code here ***
' =======================================================================================
END SUB
' ****************************************************************************************
' ****************************************************************************************
' Function name: OnQuit
' Dispatch interface name: DWebBrowserEvents2
' Member identifier: &H000000FD (253)
' ****************************************************************************************
SUB DWebBrowserEvents2_OnQuit (BYVAL pCookie AS DWebBrowserEvents2_IDispatchVtbl PTR, BYREF pdispparams AS DISPPARAMS)
' =======================================================================================
' Retrieve the IDispatch reference of the control that has fired the event.
' =======================================================================================
LOCAL pthis AS DWORD : pthis = @@pCookie.pthis
' =======================================================================================
' =======================================================================================
' *** Put your code here ***
' =======================================================================================
END SUB
' ****************************************************************************************
' ****************************************************************************************
' Function name: OnVisible
' Dispatch interface name: DWebBrowserEvents2
' Member identifier: &H000000FE (254)
' ****************************************************************************************
SUB DWebBrowserEvents2_OnVisible (BYVAL pCookie AS DWebBrowserEvents2_IDispatchVtbl PTR, BYREF pdispparams AS DISPPARAMS)
' =======================================================================================
' Retrieve the IDispatch reference of the control that has fired the event.
' =======================================================================================
LOCAL pthis AS DWORD : pthis = @@pCookie.pthis
' =======================================================================================
' =======================================================================================
' Pointer variables to access the parameters
' =======================================================================================
LOCAL pv AS VARIANT PTR : pv = pdispparams.VariantArgs
' =======================================================================================
' =======================================================================================
' Parameters in DISPPARAMS are zero based and in reverse order
' =======================================================================================
' *** Visible - VarType: %VT_BOOL <INTEGER> - Attributes: &H1 - [in] ***
LOCAL Visible AS INTEGER : Visible = VARIANT#(@pv[0])
' =======================================================================================
' =======================================================================================
' *** Put your code here ***
' =======================================================================================
END SUB
' ****************************************************************************************
' ****************************************************************************************
' Function name: OnToolBar
' Dispatch interface name: DWebBrowserEvents2
' Member identifier: &H000000FF (255)
' ****************************************************************************************
SUB DWebBrowserEvents2_OnToolBar (BYVAL pCookie AS DWebBrowserEvents2_IDispatchVtbl PTR, BYREF pdispparams AS DISPPARAMS)
' =======================================================================================
' Retrieve the IDispatch reference of the control that has fired the event.
' =======================================================================================
LOCAL pthis AS DWORD : pthis = @@pCookie.pthis
' =======================================================================================
' =======================================================================================
' Pointer variables to access the parameters
' =======================================================================================
LOCAL pv AS VARIANT PTR : pv = pdispparams.VariantArgs
' =======================================================================================
' =======================================================================================
' Parameters in DISPPARAMS are zero based and in reverse order
' =======================================================================================
' *** ToolBar - VarType: %VT_BOOL <INTEGER> - Attributes: &H1 - [in] ***
LOCAL ToolBar AS INTEGER : ToolBar = VARIANT#(@pv[0])
' =======================================================================================
' =======================================================================================
' *** Put your code here ***
' =======================================================================================
END SUB
' ****************************************************************************************
' ****************************************************************************************
' Function name: OnMenuBar
' Dispatch interface name: DWebBrowserEvents2
' Member identifier: &H00000100 (256)
' ****************************************************************************************
SUB DWebBrowserEvents2_OnMenuBar (BYVAL pCookie AS DWebBrowserEvents2_IDispatchVtbl PTR, BYREF pdispparams AS DISPPARAMS)
' =======================================================================================
' Retrieve the IDispatch reference of the control that has fired the event.
' =======================================================================================
LOCAL pthis AS DWORD : pthis = @@pCookie.pthis
' =======================================================================================
' =======================================================================================
' Pointer variables to access the parameters
' =======================================================================================
LOCAL pv AS VARIANT PTR : pv = pdispparams.VariantArgs
' =======================================================================================
' =======================================================================================
' Parameters in DISPPARAMS are zero based and in reverse order
' =======================================================================================
' *** MenuBar - VarType: %VT_BOOL <INTEGER> - Attributes: &H1 - [in] ***
LOCAL MenuBar AS INTEGER : MenuBar = VARIANT#(@pv[0])
' =======================================================================================
' =======================================================================================
' *** Put your code here ***
' =======================================================================================
END SUB
' ****************************************************************************************
' ****************************************************************************************
' Function name: OnStatusBar
' Dispatch interface name: DWebBrowserEvents2
' Member identifier: &H00000101 (257)
' ****************************************************************************************
SUB DWebBrowserEvents2_OnStatusBar (BYVAL pCookie AS DWebBrowserEvents2_IDispatchVtbl PTR, BYREF pdispparams AS DISPPARAMS)
' =======================================================================================
' Retrieve the IDispatch reference of the control that has fired the event.
' =======================================================================================
LOCAL pthis AS DWORD : pthis = @@pCookie.pthis
' =======================================================================================
' =======================================================================================
' Pointer variables to access the parameters
' =======================================================================================
LOCAL pv AS VARIANT PTR : pv = pdispparams.VariantArgs
' =======================================================================================
' =======================================================================================
' Parameters in DISPPARAMS are zero based and in reverse order
' =======================================================================================
' *** StatusBar - VarType: %VT_BOOL <INTEGER> - Attributes: &H1 - [in] ***
LOCAL StatusBar AS INTEGER : StatusBar = VARIANT#(@pv[0])
' =======================================================================================
' =======================================================================================
' *** Put your code here ***
' =======================================================================================
END SUB
' ****************************************************************************************
' ****************************************************************************************
' Function name: OnFullScreen
' Dispatch interface name: DWebBrowserEvents2
' Member identifier: &H00000102 (258)
' ****************************************************************************************
SUB DWebBrowserEvents2_OnFullScreen (BYVAL pCookie AS DWebBrowserEvents2_IDispatchVtbl PTR, BYREF pdispparams AS DISPPARAMS)
' =======================================================================================
' Retrieve the IDispatch reference of the control that has fired the event.
' =======================================================================================
LOCAL pthis AS DWORD : pthis = @@pCookie.pthis
' =======================================================================================
' =======================================================================================
' Pointer variables to access the parameters
' =======================================================================================
LOCAL pv AS VARIANT PTR : pv = pdispparams.VariantArgs
' =======================================================================================
' =======================================================================================
' Parameters in DISPPARAMS are zero based and in reverse order
' =======================================================================================
' *** FullScreen - VarType: %VT_BOOL <INTEGER> - Attributes: &H1 - [in] ***
LOCAL FullScreen AS INTEGER : FullScreen = VARIANT#(@pv[0])
' =======================================================================================
' =======================================================================================
' *** Put your code here ***
' =======================================================================================
END SUB
' ****************************************************************************************
' ****************************************************************************************
' Function name: OnTheaterMode
' Dispatch interface name: DWebBrowserEvents2
' Member identifier: &H00000104 (260)
' ****************************************************************************************
SUB DWebBrowserEvents2_OnTheaterMode (BYVAL pCookie AS DWebBrowserEvents2_IDispatchVtbl PTR, BYREF pdispparams AS DISPPARAMS)
' =======================================================================================
' Retrieve the IDispatch reference of the control that has fired the event.
' =======================================================================================
LOCAL pthis AS DWORD : pthis = @@pCookie.pthis
' =======================================================================================
' =======================================================================================
' Pointer variables to access the parameters
' =======================================================================================
LOCAL pv AS VARIANT PTR : pv = pdispparams.VariantArgs
' =======================================================================================
' =======================================================================================
' Parameters in DISPPARAMS are zero based and in reverse order
' =======================================================================================
' *** TheaterMode - VarType: %VT_BOOL <INTEGER> - Attributes: &H1 - [in] ***
LOCAL TheaterMode AS INTEGER : TheaterMode = VARIANT#(@pv[0])
' =======================================================================================
' =======================================================================================
' *** Put your code here ***
' =======================================================================================
END SUB
' ****************************************************************************************
' ****************************************************************************************
' Function name: WindowSetResizable
' Dispatch interface name: DWebBrowserEvents2
' Member identifier: &H00000106 (262)
' ****************************************************************************************
SUB DWebBrowserEvents2_WindowSetResizable (BYVAL pCookie AS DWebBrowserEvents2_IDispatchVtbl PTR, BYREF pdispparams AS DISPPARAMS)
' =======================================================================================
' Retrieve the IDispatch reference of the control that has fired the event.
' =======================================================================================
LOCAL pthis AS DWORD : pthis = @@pCookie.pthis
' =======================================================================================
' =======================================================================================
' Pointer variables to access the parameters
' =======================================================================================
LOCAL pv AS VARIANT PTR : pv = pdispparams.VariantArgs
' =======================================================================================
' =======================================================================================
' Parameters in DISPPARAMS are zero based and in reverse order
' =======================================================================================
' *** Resizable - VarType: %VT_BOOL <INTEGER> - Attributes: &H1 - [in] ***
LOCAL Resizable AS INTEGER : Resizable = VARIANT#(@pv[0])
' =======================================================================================
' =======================================================================================
' *** Put your code here ***
' =======================================================================================
END SUB
' ****************************************************************************************
' ****************************************************************************************
' Function name: WindowSetLeft
' Dispatch interface name: DWebBrowserEvents2
' Member identifier: &H00000108 (264)
' ****************************************************************************************
SUB DWebBrowserEvents2_WindowSetLeft (BYVAL pCookie AS DWebBrowserEvents2_IDispatchVtbl PTR, BYREF pdispparams AS DISPPARAMS)
' =======================================================================================
' Retrieve the IDispatch reference of the control that has fired the event.
' =======================================================================================
LOCAL pthis AS DWORD : pthis = @@pCookie.pthis
' =======================================================================================
' =======================================================================================
' Pointer variables to access the parameters
' =======================================================================================
LOCAL pv AS VARIANT PTR : pv = pdispparams.VariantArgs
' =======================================================================================
' =======================================================================================
' Parameters in DISPPARAMS are zero based and in reverse order
' =======================================================================================
' *** Left - VarType: %VT_I4 <LONG> - Attributes: &H1 - [in] ***
LOCAL prmLeft AS LONG : prmLeft = VARIANT#(@pv[0])
' =======================================================================================
' =======================================================================================
' *** Put your code here ***
' =======================================================================================
END SUB
' ****************************************************************************************
' ****************************************************************************************
' Function name: WindowSetTop
' Dispatch interface name: DWebBrowserEvents2
' Member identifier: &H00000109 (265)
' ****************************************************************************************
SUB DWebBrowserEvents2_WindowSetTop (BYVAL pCookie AS DWebBrowserEvents2_IDispatchVtbl PTR, BYREF pdispparams AS DISPPARAMS)
' =======================================================================================
' Retrieve the IDispatch reference of the control that has fired the event.
' =======================================================================================
LOCAL pthis AS DWORD : pthis = @@pCookie.pthis
' =======================================================================================
' =======================================================================================
' Pointer variables to access the parameters
' =======================================================================================
LOCAL pv AS VARIANT PTR : pv = pdispparams.VariantArgs
' =======================================================================================
' =======================================================================================
' Parameters in DISPPARAMS are zero based and in reverse order
' =======================================================================================
' *** Top - VarType: %VT_I4 <LONG> - Attributes: &H1 - [in] ***
LOCAL Top AS LONG : Top = VARIANT#(@pv[0])
' =======================================================================================
' =======================================================================================
' *** Put your code here ***
' =======================================================================================
END SUB
' ****************************************************************************************
' ****************************************************************************************
' Function name: WindowSetWidth
' Dispatch interface name: DWebBrowserEvents2
' Member identifier: &H0000010A (266)
' ****************************************************************************************
SUB DWebBrowserEvents2_WindowSetWidth (BYVAL pCookie AS DWebBrowserEvents2_IDispatchVtbl PTR, BYREF pdispparams AS DISPPARAMS)
' =======================================================================================
' Retrieve the IDispatch reference of the control that has fired the event.
' =======================================================================================
LOCAL pthis AS DWORD : pthis = @@pCookie.pthis
' =======================================================================================
' =======================================================================================
' Pointer variables to access the parameters
' =======================================================================================
LOCAL pv AS VARIANT PTR : pv = pdispparams.VariantArgs
' =======================================================================================
' =======================================================================================
' Parameters in DISPPARAMS are zero based and in reverse order
' =======================================================================================
' *** Width - VarType: %VT_I4 <LONG> - Attributes: &H1 - [in] ***
LOCAL prmWidth AS LONG : prmWidth = VARIANT#(@pv[0])
' =======================================================================================
' =======================================================================================
' *** Put your code here ***
' =======================================================================================
END SUB
' ****************************************************************************************
' ****************************************************************************************
' Function name: WindowSetHeight
' Dispatch interface name: DWebBrowserEvents2
' Member identifier: &H0000010B (267)
' ****************************************************************************************
SUB DWebBrowserEvents2_WindowSetHeight (BYVAL pCookie AS DWebBrowserEvents2_IDispatchVtbl PTR, BYREF pdispparams AS DISPPARAMS)
' =======================================================================================
' Retrieve the IDispatch reference of the control that has fired the event.
' =======================================================================================
LOCAL pthis AS DWORD : pthis = @@pCookie.pthis
' =======================================================================================
' =======================================================================================
' Pointer variables to access the parameters
' =======================================================================================
LOCAL pv AS VARIANT PTR : pv = pdispparams.VariantArgs
' =======================================================================================
' =======================================================================================
' Parameters in DISPPARAMS are zero based and in reverse order
' =======================================================================================
' *** Height - VarType: %VT_I4 <LONG> - Attributes: &H1 - [in] ***
LOCAL Height AS LONG : Height = VARIANT#(@pv[0])
' =======================================================================================
' =======================================================================================
' *** Put your code here ***
' =======================================================================================
END SUB
' ****************************************************************************************
' ****************************************************************************************
' Function name: WindowClosing
' Dispatch interface name: DWebBrowserEvents2
' Member identifier: &H00000107 (263)
' ****************************************************************************************
SUB DWebBrowserEvents2_WindowClosing (BYVAL pCookie AS DWebBrowserEvents2_IDispatchVtbl PTR, BYREF pdispparams AS DISPPARAMS)
' =======================================================================================
' Retrieve the IDispatch reference of the control that has fired the event.
' =======================================================================================
LOCAL pthis AS DWORD : pthis = @@pCookie.pthis
' =======================================================================================
' =======================================================================================
' Pointer variables to access the parameters
' =======================================================================================
LOCAL pv AS VARIANT PTR : pv = pdispparams.VariantArgs
LOCAL pvapi AS VARIANTAPI PTR : pvapi = pv
' =======================================================================================
' =======================================================================================
' Parameters in DISPPARAMS are zero based and in reverse order
' =======================================================================================
' *** IsChildWindow - VarType: %VT_BOOL <INTEGER> - Attributes: &H1 - [in] ***
LOCAL IsChildWindow AS INTEGER : IsChildWindow = VARIANT#(@pv[1])
' =======================================================================================
' *** Cancel - VarType: VT_PTR - Resolved VarType: *%VT_BOOL <INTEGER> - Attributes: &H3 - [in] [out] ***
LOCAL prmCancel AS INTEGER : prmCancel = VARIANT#(@pv[0])
' To return a value, use: prmCancel = <value> : @pvapi[0].vd.@pboolVal = prmCancel
' =======================================================================================
' =======================================================================================
' *** Put your code here ***
' =======================================================================================
END SUB
' ****************************************************************************************
' ****************************************************************************************
' Function name: ClientToHostWindow
' Dispatch interface name: DWebBrowserEvents2
' Member identifier: &H0000010C (268)
' ****************************************************************************************
SUB DWebBrowserEvents2_ClientToHostWindow (BYVAL pCookie AS DWebBrowserEvents2_IDispatchVtbl PTR, BYREF pdispparams AS DISPPARAMS)
' =======================================================================================
' Retrieve the IDispatch reference of the control that has fired the event.
' =======================================================================================
LOCAL pthis AS DWORD : pthis = @@pCookie.pthis
' =======================================================================================
' =======================================================================================
' Pointer variables to access the parameters
' =======================================================================================
LOCAL pv AS VARIANT PTR : pv = pdispparams.VariantArgs
LOCAL pvapi AS VARIANTAPI PTR : pvapi = pv
' =======================================================================================
' =======================================================================================
' Parameters in DISPPARAMS are zero based and in reverse order
' =======================================================================================
' *** CX - VarType: VT_PTR - Resolved VarType: *%VT_I4 <LONG> - Attributes: &H3 - [in] [out] ***
LOCAL CX AS LONG : CX = VARIANT#(@pv[1])
' To return a value, use: CX = <value> : @pvapi[1].vd.@plVal = CX
' =======================================================================================
' *** CY - VarType: VT_PTR - Resolved VarType: *%VT_I4 <LONG> - Attributes: &H3 - [in] [out] ***
LOCAL CY AS LONG : CY = VARIANT#(@pv[0])
' To return a value, use: CY = <value> : @pvapi[0].vd.@plVal = CY
' =======================================================================================
' =======================================================================================
' *** Put your code here ***
' =======================================================================================
END SUB
' ****************************************************************************************
' ****************************************************************************************
' Function name: SetSecureLockIcon
' Dispatch interface name: DWebBrowserEvents2
' Member identifier: &H0000010D (269)
' ****************************************************************************************
SUB DWebBrowserEvents2_SetSecureLockIcon (BYVAL pCookie AS DWebBrowserEvents2_IDispatchVtbl PTR, BYREF pdispparams AS DISPPARAMS)
' =======================================================================================
' Retrieve the IDispatch reference of the control that has fired the event.
' =======================================================================================
LOCAL pthis AS DWORD : pthis = @@pCookie.pthis
' =======================================================================================
' =======================================================================================
' Pointer variables to access the parameters
' =======================================================================================
LOCAL pv AS VARIANT PTR : pv = pdispparams.VariantArgs
' =======================================================================================
' =======================================================================================
' Parameters in DISPPARAMS are zero based and in reverse order
' =======================================================================================
' *** SecureLockIcon - VarType: %VT_I4 <LONG> - Attributes: &H1 - [in] ***
LOCAL SecureLockIcon AS LONG : SecureLockIcon = VARIANT#(@pv[0])
' =======================================================================================
' =======================================================================================
' *** Put your code here ***
' =======================================================================================
END SUB
' ****************************************************************************************
' ****************************************************************************************
' Function name: FileDownload
' Dispatch interface name: DWebBrowserEvents2
' Member identifier: &H0000010E (270)
' ****************************************************************************************
SUB DWebBrowserEvents2_FileDownload (BYVAL pCookie AS DWebBrowserEvents2_IDispatchVtbl PTR, BYREF pdispparams AS DISPPARAMS)
' =======================================================================================
' Retrieve the IDispatch reference of the control that has fired the event.
' =======================================================================================
LOCAL pthis AS DWORD : pthis = @@pCookie.pthis
' =======================================================================================
' =======================================================================================
' Pointer variables to access the parameters
' =======================================================================================
LOCAL pv AS VARIANT PTR : pv = pdispparams.VariantArgs
LOCAL pvapi AS VARIANTAPI PTR : pvapi = pv
' =======================================================================================
' =======================================================================================
' Parameters in DISPPARAMS are zero based and in reverse order
' =======================================================================================
' *** Cancel - VarType: VT_PTR - Resolved VarType: *%VT_BOOL <INTEGER> - Attributes: &H3 - [in] [out] ***
LOCAL prmCancel AS INTEGER : prmCancel = VARIANT#(@pv[0])
' To return a value, use: prmCancel = <value> : @pvapi[0].vd.@pboolVal = prmCancel
' =======================================================================================
' =======================================================================================
' *** Put your code here ***
' =======================================================================================
END SUB
' ****************************************************************************************
' ****************************************************************************************
' Function name: NavigateError
' Dispatch interface name: DWebBrowserEvents2
' Member identifier: &H0000010F (271)
' ****************************************************************************************
SUB DWebBrowserEvents2_NavigateError (BYVAL pCookie AS DWebBrowserEvents2_IDispatchVtbl PTR, BYREF pdispparams AS DISPPARAMS)
' =======================================================================================
' Retrieve the IDispatch reference of the control that has fired the event.
' =======================================================================================
LOCAL pthis AS DWORD : pthis = @@pCookie.pthis
' =======================================================================================
' =======================================================================================
' Pointer variables to access the parameters
' =======================================================================================
LOCAL pv AS VARIANT PTR : pv = pdispparams.VariantArgs
LOCAL pvapi AS VARIANTAPI PTR : pvapi = pv
' =======================================================================================
' =======================================================================================
' Parameters in DISPPARAMS are zero based and in reverse order
' =======================================================================================
' *** pDisp - VarType: %VT_DISPATCH <IDISPATCH> - Attributes: &H1 - [in] ***
LOCAL pDisp AS DWORD : pDisp = VARIANT#(@pv[4])
' =======================================================================================
' *** URL - VarType: VT_PTR - Resolved VarType: *%VT_VARIANT <VARIANT> - Attributes: &H1 - [in] ***
STATIC URL AS VARIANT : URL = @pv[3]
' To return a value, use: URL = <value> : @pvapi[3].vd.@pVariant = VARPTR(URL)
' =======================================================================================
' *** Frame - VarType: VT_PTR - Resolved VarType: *%VT_VARIANT <VARIANT> - Attributes: &H1 - [in] ***
STATIC prmFrame AS VARIANT : prmFrame = @pv[2]
' To return a value, use: prmFrame = <value> : @pvapi[2].vd.@pVariant = VARPTR(prmFrame)
' =======================================================================================
' *** StatusCode - VarType: VT_PTR - Resolved VarType: *%VT_VARIANT <VARIANT> - Attributes: &H1 - [in] ***
STATIC StatusCode AS VARIANT : StatusCode = @pv[1]
' To return a value, use: StatusCode = <value> : @pvapi[1].vd.@pVariant = VARPTR(StatusCode)
' =======================================================================================
' *** Cancel - VarType: VT_PTR - Resolved VarType: *%VT_BOOL <INTEGER> - Attributes: &H3 - [in] [out] ***
LOCAL prmCancel AS INTEGER : prmCancel = VARIANT#(@pv[0])
' To return a value, use: prmCancel = <value> : @pvapi[0].vd.@pboolVal = prmCancel
' =======================================================================================
' =======================================================================================
' *** Put your code here ***
' =======================================================================================
END SUB
' ****************************************************************************************
' ****************************************************************************************
' Function name: PrintTemplateInstantiation
' Dispatch interface name: DWebBrowserEvents2
' Member identifier: &H000000E1 (225)
' ****************************************************************************************
SUB DWebBrowserEvents2_PrintTemplateInstantiation (BYVAL pCookie AS DWebBrowserEvents2_IDispatchVtbl PTR, BYREF pdispparams AS DISPPARAMS)
' =======================================================================================
' Retrieve the IDispatch reference of the control that has fired the event.
' =======================================================================================
LOCAL pthis AS DWORD : pthis = @@pCookie.pthis
' =======================================================================================
' =======================================================================================
' Pointer variables to access the parameters
' =======================================================================================
LOCAL pv AS VARIANT PTR : pv = pdispparams.VariantArgs
' =======================================================================================
' =======================================================================================
' Parameters in DISPPARAMS are zero based and in reverse order
' =======================================================================================
' *** pDisp - VarType: %VT_DISPATCH <IDISPATCH> - Attributes: &H1 - [in] ***
LOCAL pDisp AS DWORD : pDisp = VARIANT#(@pv[0])
' =======================================================================================
' =======================================================================================
' *** Put your code here ***
' =======================================================================================
END SUB
' ****************************************************************************************
' ****************************************************************************************
' Function name: PrintTemplateTeardown
' Dispatch interface name: DWebBrowserEvents2
' Member identifier: &H000000E2 (226)
' ****************************************************************************************
SUB DWebBrowserEvents2_PrintTemplateTeardown (BYVAL pCookie AS DWebBrowserEvents2_IDispatchVtbl PTR, BYREF pdispparams AS DISPPARAMS)
' =======================================================================================
' Retrieve the IDispatch reference of the control that has fired the event.
' =======================================================================================
LOCAL pthis AS DWORD : pthis = @@pCookie.pthis
' =======================================================================================
' =======================================================================================
' Pointer variables to access the parameters
' =======================================================================================
LOCAL pv AS VARIANT PTR : pv = pdispparams.VariantArgs
' =======================================================================================
' =======================================================================================
' Parameters in DISPPARAMS are zero based and in reverse order
' =======================================================================================
' *** pDisp - VarType: %VT_DISPATCH <IDISPATCH> - Attributes: &H1 - [in] ***
LOCAL pDisp AS DWORD : pDisp = VARIANT#(@pv[0])
' =======================================================================================
' =======================================================================================
' *** Put your code here ***
' =======================================================================================
END SUB
' ****************************************************************************************
' ****************************************************************************************
' Function name: UpdatePageStatus
' Dispatch interface name: DWebBrowserEvents2
' Member identifier: &H000000E3 (227)
' ****************************************************************************************
SUB DWebBrowserEvents2_UpdatePageStatus (BYVAL pCookie AS DWebBrowserEvents2_IDispatchVtbl PTR, BYREF pdispparams AS DISPPARAMS)
' =======================================================================================
' Retrieve the IDispatch reference of the control that has fired the event.
' =======================================================================================
LOCAL pthis AS DWORD : pthis = @@pCookie.pthis
' =======================================================================================
' =======================================================================================
' Pointer variables to access the parameters
' =======================================================================================
LOCAL pv AS VARIANT PTR : pv = pdispparams.VariantArgs
LOCAL pvapi AS VARIANTAPI PTR : pvapi = pv
' =======================================================================================
' =======================================================================================
' Parameters in DISPPARAMS are zero based and in reverse order
' =======================================================================================
' *** pDisp - VarType: %VT_DISPATCH <IDISPATCH> - Attributes: &H1 - [in] ***
LOCAL pDisp AS DWORD : pDisp = VARIANT#(@pv[2])
' =======================================================================================
' *** nPage - VarType: VT_PTR - Resolved VarType: *%VT_VARIANT <VARIANT> - Attributes: &H1 - [in] ***
STATIC nPage AS VARIANT : nPage = @pv[1]
' To return a value, use: nPage = <value> : @pvapi[1].vd.@pVariant = VARPTR(nPage)
' =======================================================================================
' *** fDone - VarType: VT_PTR - Resolved VarType: *%VT_VARIANT <VARIANT> - Attributes: &H1 - [in] ***
STATIC fDone AS VARIANT : fDone = @pv[0]
' To return a value, use: fDone = <value> : @pvapi[0].vd.@pVariant = VARPTR(fDone)
' =======================================================================================
' =======================================================================================
' *** Put your code here ***
' =======================================================================================
END SUB
' ****************************************************************************************
' ****************************************************************************************
' Function name: PrivacyImpactedStateChange
' Dispatch interface name: DWebBrowserEvents2
' Member identifier: &H00000110 (272)
' ****************************************************************************************
SUB DWebBrowserEvents2_PrivacyImpactedStateChange (BYVAL pCookie AS DWebBrowserEvents2_IDispatchVtbl PTR, BYREF pdispparams AS DISPPARAMS)
' =======================================================================================
' Retrieve |