'exdisp.ab

'#require <ocidl.ab>
'#require <docobj.ab>


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
