'exdisp.ab '#require '#require Const Enum OLECMDID 'docobj.ab End Enum Const Enum OLECMDEXECOPT 'docobj.ab End Enum Const Enum OLECMDTEXTF 'docobj.ab End Enum Const Enum OLECMDF 'docobj.ab End Enum Const Enum READYSTATE 'ocidl.ab End Enum 'SID_SkipHung /* library SHDocVw */ /* [version][lcid][helpstring][uuid] */ 'ŠeŽí—ñ‹“‘Ì 'LIBID_SHDocVw /* interface IWebBrowser */ /* [object][oleautomation][dual][hidden][helpcontext][helpstring][uuid] */ /* [helpstring][uuid] 14EE5380-A378-11cf-A731-00A0C9082637*/ Const Enum BrowserNavConstants navOpenInNewWindow = &h1 navNoHistory = &h2 navNoReadFromCache = &h4 navNoWriteToCache = &h8 navAllowAutosearch = &h10 navBrowserBar = &h20 navHyperlink = &h40 navEnforceRestricted = &h80 navNewWindowsManaged = &h100 navUntrustedForDownload = &h200 navTrustedForActiveX = &h400 navOpenInNewTab = &h800 navOpenInBackgroundTab = &h1000 navKeepWordWheelText = &h2000 End Enum /* [helpstring][uuid] C317C261-A991-11cf-A731-00A0C9082637*/ Const Enum RefreshConstants REFRESH_NORMAL = 0 REFRESH_IFEXPIRED = 1 REFRESH_COMPLETELY = 3 End Enum Dim IID_IWebBrowser = [&hEAB22AC1, &h30C1, &h11CF, [&hA7, &hEB, &h00, &h00, &hC0, &h5B, &hAE, &h0B]] As IID Interface IWebBrowser Inherits IDispatch /* [helpcontext][helpstring][id] */ Function GoBack() As HRESULT /* [helpcontext][helpstring][id] */ Function GoForward() As HRESULT /* [helpcontext][helpstring][id] */ Function GoHome() As HRESULT /* [helpcontext][helpstring][id] */ Function GoSearch() As HRESULT /* [helpcontext][helpstring][id] */ Function Navigate( /* [in] */ URL As BSTR, /* [optional][in] */ Flags As *VARIANT, /* [optional][in] */ TargetFrameName As *VARIANT, /* [optional][in] */ PostData As *VARIANT, /* [optional][in] */ Headers As *VARIANT) As HRESULT /* [helpcontext][helpstring][id] */ Function Refresh() As HRESULT /* [helpcontext][helpstring][id] */ Function Refresh2( /* [optional][in] */ Level As *VARIANT) As HRESULT /* [helpcontext][helpstring][id] */ Function Stop() As HRESULT /* [helpcontext][helpstring][propget][id] */ Function get_Application( /* [retval][out] */ ByRef Disp As IDispatch) As HRESULT /* [helpcontext][helpstring][propget][id] */ Function get_Parent( /* [retval][out] */ ByRef Disp As IDispatch) As HRESULT /* [helpcontext][helpstring][propget][id] */ Function get_Container( /* [retval][out] */ ByRef Disp As IDispatch) As HRESULT /* [helpcontext][helpstring][propget][id] */ Function get_Document( /* [retval][out] */ ByRef Disp As IDispatch) As HRESULT /* [helpcontext][helpstring][propget][id] */ Function get_TopLevelContainer( /* [retval][out] */ ByRef Bool As VARIANT_BOOL) As HRESULT /* [helpcontext][helpstring][propget][id] */ Function get_Type( /* [retval][out] */ ByRef Type_ As BSTR) As HRESULT /* [helpcontext][helpstring][propget][id] */ Function get_Left( /* [retval][out] */ ByRef l As Long) As HRESULT /* [propput][id] */ Function put_Left( /* [in] */ Left As Long) As HRESULT /* [helpcontext][helpstring][propget][id] */ Function get_Top( /* [retval][out] */ ByRef l As Long) As HRESULT /* [propput][id] */ Function put_Top( /* [in] */ Top As Long) As HRESULT /* [helpcontext][helpstring][propget][id] */ Function get_Width( /* [retval][out] */ ByRef l As Long) As HRESULT /* [propput][id] */ Function put_Width( /* [in] */ Width As Long) As HRESULT /* [helpcontext][helpstring][propget][id] */ Function get_Height( /* [retval][out] */ ByRef l As Long) As HRESULT /* [propput][id] */ Function put_Height( /* [in] */ Height As Long) As HRESULT /* [helpcontext][helpstring][propget][id] */ Function get_LocationName( /* [retval][out] */ ByRef LocationName As BSTR) As HRESULT /* [helpcontext][helpstring][propget][id] */ Function get_LocationURL( /* [retval][out] */ ByRef LocationURL As BSTR) As HRESULT /* [helpcontext][helpstring][propget][id] */ Function get_Busy( /* [retval][out] */ ByRef Bool As VARIANT_BOOL) As HRESULT End Interface /* dispinterface DWebBrowserEvents */ /* [hidden][helpstring][uuid] */ Dim DIID_DWebBrowserEvents = [&hEAB22AC2, &h30C1, &h11CF, [&hA7, &hEB, &h00, &h00, &hC0, &h5B, &hAE, &h0B]] As IID Interface DIID_DWebBrowserEvents Inherits IDispatch End Interface /* interface IWebBrowserApp */ /* [object][dual][oleautomation][hidden][helpcontext][helpstring][uuid] */ Dim IID_IWebBrowserApp = [&h0002DF05, 0, 0, [&hC0, 0, 0, 0, 0, 0, 46]] As IID Interface IWebBrowserApp Inherits IWebBrowser /* [helpcontext][helpstring][id] */ Function Quit() As HRESULT /* [helpcontext][helpstring][id] */ Function ClientToWindow( /* [out][in] */ ByRef cx As Long, /* [out][in] */ ByRef pcy As Long) As HRESULT /* [helpcontext][helpstring][id] */ Function PutProperty( /* [in] */ Property As BSTR, /* [in] */ vtValue As VARIANT) As HRESULT /* [helpcontext][helpstring][id] */ Function GetProperty( /* [in] */ Property As BSTR, /* [retval][out] */ ByRef vtValue As VARIANT) As HRESULT /* [helpcontext][helpstring][propget][id] */ Function get_Name( /* [retval][out] */ ByRef Name As BSTR) As HRESULT /* [helpcontext][helpstring][propget][id] */ Function get_HWND( /* [retval][out] */ ByRef hwnd As LONG_PTR) As HRESULT /* [helpcontext][helpstring][propget][id] */ Function get_FullName( /* [retval][out] */ ByRef FullName As BSTR) As HRESULT /* [helpcontext][helpstring][propget][id] */ Function get_Path( /* [retval][out] */ ByRef Path As BSTR) As HRESULT /* [helpcontext][helpstring][propget][id] */ Function get_Visible( /* [retval][out] */ ByRef Bool As VARIANT_BOOL) As HRESULT /* [helpcontext][helpstring][propput][id] */ Function put_Visible( /* [in] */ Value As Long) As HRESULT /* [helpcontext][helpstring][propget][id] */ Function get_StatusBar( /* [retval][out] */ ByRef Bool As VARIANT_BOOL) As HRESULT /* [helpcontext][helpstring][propput][id] */ Function put_StatusBar( /* [in] */ Value As Long) As HRESULT /* [helpcontext][helpstring][propget][id] */ Function get_StatusText( /* [retval][out] */ ByRef StatusText As BSTR) As HRESULT /* [helpcontext][helpstring][propput][id] */ Function put_StatusText( /* [in] */ StatusText As BSTR) As HRESULT /* [helpcontext][helpstring][propget][id] */ Function get_ToolBar( /* [retval][out] */ ByRef Value As Long) As HRESULT /* [helpcontext][helpstring][propput][id] */ Function put_ToolBar( /* [in] */ Value As Long) As HRESULT /* [helpcontext][helpstring][propget][id] */ Function get_MenuBar( /* [retval][out] */ ByRef Value As Long) As HRESULT /* [helpcontext][helpstring][propput][id] */ Function put_MenuBar( /* [in] */ Value As Long) As HRESULT /* [helpcontext][helpstring][propget][id] */ Function get_FullScreen( /* [retval][out] */ ByRef bFullScreen As VARIANT_BOOL) As HRESULT /* [helpcontext][helpstring][propput][id] */ Function put_FullScreen( /* [in] */ bFullScreen As VARIANT_BOOL) As HRESULT End Interface /* interface IWebBrowser2 */ /* [object][dual][oleautomation][hidden][helpcontext][helpstring][uuid] */ Dim IID_IWebBrowser2 = [&hD30C1661, &hCDAF, &h11d0, [&h8A, &h3E, &h00, &hC0, &h4F, &hC9, &hE2, &h6E]] As IID Interface IWebBrowser2 Inherits IWebBrowserApp /* [helpcontext][helpstring][id] */ Function Navigate2( /* [in] */ URL As *VARIANT, /* [optional][in] */ Flags As *VARIANT, /* [optional][in] */ TargetFrameName As *VARIANT, /* [optional][in] */ PostData As *VARIANT, /* [optional][in] */ Headers As *VARIANT) As HRESULT /* [helpcontext][helpstring][id] */ Function QueryStatusWB( /* [in] */ cmdID As OLECMDID, /* [retval][out] */ ByRef cmdf As OLECMDF) As HRESULT /* [helpcontext][helpstring][id] */ Function ExecWB( /* [in] */ cmdID As OLECMDID, /* [in] */ cmdexecopt As OLECMDEXECOPT, /* [optional][in] */ pvaIn As *VARIANT, /* [optional][in][out] */ pvaOut As *VARIANT) As HRESULT /* [helpcontext][helpstring][id] */ Function ShowBrowserBar( /* [in] */ ByRef vaClsid As VARIANT, /* [optional][in] */ pvarShow As *VARIANT, /* [optional][in] */ pvarSize As *VARIANT) As HRESULT /* [bindable][propget][id] */ Function get_ReadyState( /* [out][retval] */ ByRef lReadyState As READYSTATE) As HRESULT /* [helpcontext][helpstring][propget][id] */ Function get_Offline( /* [retval][out] */ ByRef bOffline As VARIANT_BOOL) As HRESULT /* [helpcontext][helpstring][propput][id] */ Function put_Offline( /* [in] */ bOffline As VARIANT_BOOL) As HRESULT /* [helpcontext][helpstring][propget][id] */ Function get_Silent( /* [retval][out] */ ByRef bSilent As VARIANT_BOOL) As HRESULT /* [helpcontext][helpstring][propput][id] */ Function put_Silent( /* [in] */ bSilent As VARIANT_BOOL) As HRESULT /* [helpcontext][helpstring][propget][id] */ Function get_RegisterAsBrowser( /* [retval][out] */ ByRef bRegister As VARIANT_BOOL) As HRESULT /* [helpcontext][helpstring][propput][id] */ Function put_RegisterAsBrowser( /* [in] */ bRegister As VARIANT_BOOL) As HRESULT /* [helpcontext][helpstring][propget][id] */ Function get_RegisterAsDropTarget( /* [retval][out] */ ByRef bRegister As VARIANT_BOOL) As HRESULT /* [helpcontext][helpstring][propput][id] */ Function put_RegisterAsDropTarget( /* [in] */ bRegister As VARIANT_BOOL) As HRESULT /* [helpcontext][helpstring][propget][id] */ Function get_TheaterMode( /* [retval][out] */ ByRef bRegister As VARIANT_BOOL) As HRESULT /* [helpcontext][helpstring][propput][id] */ Function put_TheaterMode( /* [in] */ bRegister As VARIANT_BOOL) As HRESULT /* [helpcontext][helpstring][propget][id] */ Function get_AddressBar( /* [retval][out] */ ByRef Value As Long) As HRESULT /* [helpcontext][helpstring][propput][id] */ Function put_AddressBar( /* [in] */ Value As Long) As HRESULT /* [helpcontext][helpstring][propget][id] */ Function get_Resizable( /* [retval][out] */ ByRef Value As Long) As HRESULT /* [helpcontext][helpstring][propput][id] */ Function put_Resizable( /* [in] */ Value As Long) As HRESULT End Interface /* dispinterface DWebBrowserEvents2 */ /* [hidden][helpstring][uuid] */ Dim DIID_DWebBrowserEvents2 = [&h34A715A0, &h6587, &h11D0, [&h92, &h4A, &h00, &h20, &hAF, &hC7, &hAC, &h4D]] As IID Interface DWebBrowserEvents2 Inherits IDispatch End Interface Dim CLSID_WebBrowser_V1 = [&hEAB22AC3, &h30C1, &h11CF, [&hA7, &hEB, &h00, &h00, &hC0, &h5B, &hAE, &h0B]] As CLSID Dim CLSID_WebBrowser = [&h8856F961, &h340A, &h11D0, [&hA9, &h6B, &h00, &hC0, &h4F, &hD7, &h05, &hA2]] As CLSID Dim CLSID_InternetExplorer = [&h0002DF01, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As CLSID Dim CLSID_ShellBrowserWindow = [&hc08afd90, &hf2a1, &h11d1, [&h84, &h55, &h00, &ha0, &hc9, &h1f, &h38, &h80]] As CLSID 'DShellWindowsEvents 'IShellWindows 'ShellWindows 'IShellUIHelper 'IShellUIHelper2 'ShellUIHelper 'DShellNameSpaceEvents 'IShellFavoritesNameSpace 'IShellNameSpace 'ShellNameSpace 'ShellShellNameSpace 'IScriptErrorList 'CScriptErrorList