source: trunk/ab5.0/ablib/src/exdisp.ab @ 560

Last change on this file since 560 was 303, checked in by イグトランス (egtra), 15 years ago

フルコンパイルでのミスあぶり出し。註：修正は全て@300や@301以前に行われた。
File size: 10.9 KB
Line 
1'exdisp.ab
2
3'#require <ocidl.ab>
4'#require <docobj.ab>
5
6
7Const Enum OLECMDID 'docobj.ab
8End Enum
9
10Const Enum OLECMDEXECOPT 'docobj.ab
11End Enum
12
13Const Enum OLECMDTEXTF 'docobj.ab
14End Enum
15
16Const Enum OLECMDF 'docobj.ab
17End Enum
18
19Const Enum READYSTATE 'ocidl.ab
20End Enum
21
22'SID_SkipHung
23
24/* library SHDocVw */
25/* [version][lcid][helpstring][uuid] */
26
27'各種列挙体
28
29'LIBID_SHDocVw
30
31/* interface IWebBrowser */
32/* [object][oleautomation][dual][hidden][helpcontext][helpstring][uuid] */
33
34/* [helpstring][uuid] 14EE5380-A378-11cf-A731-00A0C9082637*/
35Const Enum BrowserNavConstants
36    navOpenInNewWindow = &h1
37    navNoHistory = &h2
38    navNoReadFromCache = &h4
39    navNoWriteToCache = &h8
40    navAllowAutosearch = &h10
41    navBrowserBar = &h20
42    navHyperlink = &h40
43    navEnforceRestricted = &h80
44    navNewWindowsManaged = &h100
45    navUntrustedForDownload = &h200
46    navTrustedForActiveX = &h400
47    navOpenInNewTab = &h800
48    navOpenInBackgroundTab = &h1000
49    navKeepWordWheelText = &h2000
50End Enum
51
52/* [helpstring][uuid] C317C261-A991-11cf-A731-00A0C9082637*/
53Const Enum RefreshConstants
54    REFRESH_NORMAL = 0
55    REFRESH_IFEXPIRED = 1
56    REFRESH_COMPLETELY = 3
57End Enum
58
59Dim IID_IWebBrowser = [&hEAB22AC1, &h30C1, &h11CF, [&hA7, &hEB, &h00, &h00, &hC0, &h5B, &hAE, &h0B]] As IID
60Interface IWebBrowser
61    Inherits IDispatch
62
63    /* [helpcontext][helpstring][id] */ Function GoBack() As HRESULT
64    /* [helpcontext][helpstring][id] */ Function GoForward() As HRESULT
65    /* [helpcontext][helpstring][id] */ Function GoHome() As HRESULT
66    /* [helpcontext][helpstring][id] */ Function GoSearch() As HRESULT
67    /* [helpcontext][helpstring][id] */ Function Navigate(
68        /* [in] */ URL As BSTR,
69        /* [optional][in] */ Flags As *VARIANT,
70        /* [optional][in] */ TargetFrameName As *VARIANT,
71        /* [optional][in] */ PostData As *VARIANT,
72        /* [optional][in] */ Headers As *VARIANT) As HRESULT
73    /* [helpcontext][helpstring][id] */ Function Refresh() As HRESULT
74    /* [helpcontext][helpstring][id] */ Function Refresh2(
75        /* [optional][in] */ Level As *VARIANT) As HRESULT
76    /* [helpcontext][helpstring][id] */ Function Stop() As HRESULT
77    /* [helpcontext][helpstring][propget][id] */ Function get_Application(
78        /* [retval][out] */ ByRef Disp As IDispatch) As HRESULT
79    /* [helpcontext][helpstring][propget][id] */ Function get_Parent(
80        /* [retval][out] */ ByRef Disp As IDispatch) As HRESULT
81    /* [helpcontext][helpstring][propget][id] */ Function get_Container(
82        /* [retval][out] */ ByRef Disp As IDispatch) As HRESULT
83    /* [helpcontext][helpstring][propget][id] */ Function get_Document(
84        /* [retval][out] */ ByRef Disp As IDispatch) As HRESULT
85    /* [helpcontext][helpstring][propget][id] */ Function get_TopLevelContainer(
86        /* [retval][out] */ ByRef Bool As VARIANT_BOOL) As HRESULT
87    /* [helpcontext][helpstring][propget][id] */ Function get_Type(
88        /* [retval][out] */ ByRef Type_ As BSTR) As HRESULT
89    /* [helpcontext][helpstring][propget][id] */ Function get_Left(
90        /* [retval][out] */ ByRef l As Long) As HRESULT
91    /* [propput][id] */ Function put_Left(
92        /* [in] */ Left As Long) As HRESULT
93    /* [helpcontext][helpstring][propget][id] */ Function get_Top(
94        /* [retval][out] */ ByRef l As Long) As HRESULT
95    /* [propput][id] */ Function put_Top(
96        /* [in] */ Top As Long) As HRESULT
97    /* [helpcontext][helpstring][propget][id] */ Function get_Width(
98        /* [retval][out] */ ByRef l As Long) As HRESULT
99    /* [propput][id] */ Function put_Width(
100        /* [in] */ Width As Long) As HRESULT
101    /* [helpcontext][helpstring][propget][id] */ Function get_Height(
102        /* [retval][out] */ ByRef l As Long) As HRESULT
103    /* [propput][id] */ Function put_Height(
104        /* [in] */ Height As Long) As HRESULT
105    /* [helpcontext][helpstring][propget][id] */ Function get_LocationName(
106        /* [retval][out] */ ByRef LocationName As BSTR) As HRESULT
107    /* [helpcontext][helpstring][propget][id] */ Function get_LocationURL(
108        /* [retval][out] */ ByRef LocationURL As BSTR) As HRESULT
109    /* [helpcontext][helpstring][propget][id] */ Function get_Busy(
110        /* [retval][out] */ ByRef Bool As VARIANT_BOOL) As HRESULT
111End Interface
112
113/* dispinterface DWebBrowserEvents */
114/* [hidden][helpstring][uuid] */
115
116Dim DIID_DWebBrowserEvents = [&hEAB22AC2, &h30C1, &h11CF, [&hA7, &hEB, &h00, &h00, &hC0, &h5B, &hAE, &h0B]] As IID
117Interface DIID_DWebBrowserEvents
118    Inherits IDispatch
119End Interface
120
121/* interface IWebBrowserApp */
122/* [object][dual][oleautomation][hidden][helpcontext][helpstring][uuid] */
123
124Dim IID_IWebBrowserApp = [&h0002DF05, 0, 0, [&hC0, 0, 0, 0, 0, 0, 46]] As IID
125Interface IWebBrowserApp
126    Inherits IWebBrowser
127
128    /* [helpcontext][helpstring][id] */ Function Quit() As HRESULT
129    /* [helpcontext][helpstring][id] */ Function ClientToWindow(
130        /* [out][in] */ ByRef cx As Long,
131        /* [out][in] */ ByRef pcy As Long) As HRESULT
132    /* [helpcontext][helpstring][id] */ Function PutProperty(
133        /* [in] */ Property As BSTR,
134        /* [in] */ vtValue As VARIANT) As HRESULT
135    /* [helpcontext][helpstring][id] */ Function GetProperty(
136        /* [in] */ Property As BSTR,
137        /* [retval][out] */ ByRef vtValue As VARIANT) As HRESULT
138    /* [helpcontext][helpstring][propget][id] */ Function get_Name(
139        /* [retval][out] */ ByRef Name As BSTR) As HRESULT
140    /* [helpcontext][helpstring][propget][id] */ Function get_HWND(
141        /* [retval][out] */ ByRef hwnd As LONG_PTR) As HRESULT
142    /* [helpcontext][helpstring][propget][id] */ Function get_FullName(
143        /* [retval][out] */ ByRef FullName As BSTR) As HRESULT
144    /* [helpcontext][helpstring][propget][id] */ Function get_Path(
145        /* [retval][out] */ ByRef Path As BSTR) As HRESULT
146    /* [helpcontext][helpstring][propget][id] */ Function get_Visible(
147        /* [retval][out] */ ByRef Bool As VARIANT_BOOL) As HRESULT
148    /* [helpcontext][helpstring][propput][id] */ Function put_Visible(
149        /* [in] */ Value As Long) As HRESULT
150    /* [helpcontext][helpstring][propget][id] */ Function get_StatusBar(
151        /* [retval][out] */ ByRef Bool As VARIANT_BOOL) As HRESULT
152    /* [helpcontext][helpstring][propput][id] */ Function put_StatusBar(
153        /* [in] */ Value As Long) As HRESULT
154    /* [helpcontext][helpstring][propget][id] */ Function get_StatusText(
155        /* [retval][out] */ ByRef StatusText As BSTR) As HRESULT
156    /* [helpcontext][helpstring][propput][id] */ Function put_StatusText(
157        /* [in] */ StatusText As BSTR) As HRESULT
158    /* [helpcontext][helpstring][propget][id] */ Function get_ToolBar(
159        /* [retval][out] */ ByRef Value As Long) As HRESULT
160    /* [helpcontext][helpstring][propput][id] */ Function put_ToolBar(
161        /* [in] */ Value As Long) As HRESULT
162    /* [helpcontext][helpstring][propget][id] */ Function get_MenuBar(
163        /* [retval][out] */ ByRef Value As Long) As HRESULT
164    /* [helpcontext][helpstring][propput][id] */ Function put_MenuBar(
165        /* [in] */ Value As Long) As HRESULT
166    /* [helpcontext][helpstring][propget][id] */ Function get_FullScreen(
167        /* [retval][out] */ ByRef bFullScreen As VARIANT_BOOL) As HRESULT
168    /* [helpcontext][helpstring][propput][id] */ Function put_FullScreen(
169        /* [in] */ bFullScreen As VARIANT_BOOL) As HRESULT
170End Interface
171
172/* interface IWebBrowser2 */
173/* [object][dual][oleautomation][hidden][helpcontext][helpstring][uuid] */
174
175Dim IID_IWebBrowser2 = [&hD30C1661, &hCDAF, &h11d0, [&h8A, &h3E, &h00, &hC0, &h4F, &hC9, &hE2, &h6E]] As IID
176Interface IWebBrowser2
177    Inherits IWebBrowserApp
178
179    /* [helpcontext][helpstring][id] */ Function Navigate2(
180        /* [in] */ URL As *VARIANT,
181        /* [optional][in] */ Flags As *VARIANT,
182        /* [optional][in] */ TargetFrameName As *VARIANT,
183        /* [optional][in] */ PostData As *VARIANT,
184        /* [optional][in] */ Headers As *VARIANT) As HRESULT
185    /* [helpcontext][helpstring][id] */ Function QueryStatusWB(
186        /* [in] */ cmdID As OLECMDID,
187        /* [retval][out] */ ByRef cmdf As OLECMDF) As HRESULT
188    /* [helpcontext][helpstring][id] */ Function ExecWB(
189        /* [in] */ cmdID As OLECMDID,
190        /* [in] */ cmdexecopt As OLECMDEXECOPT,
191        /* [optional][in] */ pvaIn As *VARIANT,
192        /* [optional][in][out] */ pvaOut As *VARIANT) As HRESULT
193    /* [helpcontext][helpstring][id] */ Function ShowBrowserBar(
194        /* [in] */ ByRef vaClsid As VARIANT,
195        /* [optional][in] */ pvarShow As *VARIANT,
196        /* [optional][in] */ pvarSize As *VARIANT) As HRESULT
197    /* [bindable][propget][id] */ Function get_ReadyState(
198        /* [out][retval] */ ByRef lReadyState As READYSTATE) As HRESULT
199    /* [helpcontext][helpstring][propget][id] */ Function get_Offline(
200        /* [retval][out] */ ByRef bOffline As VARIANT_BOOL) As HRESULT
201    /* [helpcontext][helpstring][propput][id] */ Function put_Offline(
202        /* [in] */ bOffline As VARIANT_BOOL) As HRESULT
203    /* [helpcontext][helpstring][propget][id] */ Function get_Silent(
204        /* [retval][out] */ ByRef bSilent As VARIANT_BOOL) As HRESULT
205    /* [helpcontext][helpstring][propput][id] */ Function put_Silent(
206        /* [in] */ bSilent As VARIANT_BOOL) As HRESULT
207    /* [helpcontext][helpstring][propget][id] */ Function get_RegisterAsBrowser(
208        /* [retval][out] */ ByRef bRegister As VARIANT_BOOL) As HRESULT
209    /* [helpcontext][helpstring][propput][id] */ Function put_RegisterAsBrowser(
210        /* [in] */ bRegister As VARIANT_BOOL) As HRESULT
211    /* [helpcontext][helpstring][propget][id] */ Function get_RegisterAsDropTarget(
212        /* [retval][out] */ ByRef bRegister As VARIANT_BOOL) As HRESULT
213    /* [helpcontext][helpstring][propput][id] */ Function put_RegisterAsDropTarget(
214        /* [in] */ bRegister As VARIANT_BOOL) As HRESULT
215    /* [helpcontext][helpstring][propget][id] */ Function get_TheaterMode(
216        /* [retval][out] */ ByRef bRegister As VARIANT_BOOL) As HRESULT
217    /* [helpcontext][helpstring][propput][id] */ Function put_TheaterMode(
218        /* [in] */ bRegister As VARIANT_BOOL) As HRESULT
219    /* [helpcontext][helpstring][propget][id] */ Function get_AddressBar(
220        /* [retval][out] */ ByRef Value As Long) As HRESULT
221    /* [helpcontext][helpstring][propput][id] */ Function put_AddressBar(
222        /* [in] */ Value As Long) As HRESULT
223    /* [helpcontext][helpstring][propget][id] */ Function get_Resizable(
224        /* [retval][out] */ ByRef Value As Long) As HRESULT
225    /* [helpcontext][helpstring][propput][id] */ Function put_Resizable(
226        /* [in] */ Value As Long) As HRESULT
227End Interface
228
229/* dispinterface DWebBrowserEvents2 */
230/* [hidden][helpstring][uuid] */
231
232Dim DIID_DWebBrowserEvents2 = [&h34A715A0, &h6587, &h11D0, [&h92, &h4A, &h00, &h20, &hAF, &hC7, &hAC, &h4D]] As IID
233Interface DWebBrowserEvents2
234    Inherits IDispatch
235End Interface
236
237Dim CLSID_WebBrowser_V1 = [&hEAB22AC3, &h30C1, &h11CF, [&hA7, &hEB, &h00, &h00, &hC0, &h5B, &hAE, &h0B]] As CLSID
238Dim CLSID_WebBrowser = [&h8856F961, &h340A, &h11D0, [&hA9, &h6B, &h00, &hC0, &h4F, &hD7, &h05, &hA2]] As CLSID
239Dim CLSID_InternetExplorer = [&h0002DF01, &h0000, &h0000, [&hC0, &h00, &h00, &h00, &h00, &h00, &h00, &h46]] As CLSID
240Dim CLSID_ShellBrowserWindow = [&hc08afd90, &hf2a1, &h11d1, [&h84, &h55, &h00, &ha0, &hc9, &h1f, &h38, &h80]] As CLSID
241
242'DShellWindowsEvents
243'IShellWindows
244'ShellWindows
245'IShellUIHelper
246'IShellUIHelper2
247'ShellUIHelper
248'DShellNameSpaceEvents
249'IShellFavoritesNameSpace
250'IShellNameSpace
251'ShellNameSpace
252'ShellShellNameSpace
253'IScriptErrorList
254'CScriptErrorList
Note: See TracBrowser for help on using the repository browser.