ExecWB

構文
InternetExplorer.ExecWB( cmdID, cmdexecopt, [pvaIn, pvaOut] )
引数
InternetExplorer
InternetExplorerオブジェクト
cmdID
OLECMDIDの値を指定
cmdexecopt
OLECMDEXECOPTの値を指定
pvaIn
pvaOut
戻値
コマンドを実行し、IOleCommandTargetインターフェイスを使用してコマンド実行のステータスを返します。

プログラム実行例

[ファイルを開く]ウィンドウを表示

CONST OLECMDID_OPEN = 1 CONST OLECMDEXECOPT_DODEFAULT = 0 DIM IE = CREATEOLEOBJ("InternetExplorer.Application") IE.Visible = TRUE IE.GoHome() BusyWait(IE) IE.ExecWB(OLECMDID_OPEN, OLECMDEXECOPT_DODEFAULT) ////////////////////////////////////////////////// // 【引数】 // IE : IEオブジェクト // 【戻値】 // ////////////////////////////////////////////////// PROCEDURE BusyWait(Var IE) SLEEP(0.500) DIM t = GETTIME() TRY REPEAT DIM tm = GETTIME() - t FUKIDASI("BusyWait:" + tm) SLEEP(0.010) IF tm >= 60 THEN BREAK UNTIL !IE.Busy AND IE.readyState = 4 EXCEPT IE = getIEObj(-1) PRINT IE.document.URL + " のIEオブジェクトを取得しました。" BusyWait(IE) ENDTRY FUKIDASI() FEND ////////////////////////////////////////////////// // 【引数】 // 文字列 or 数値 : 取得したいIEオブジェクトのタイトル・URLもしくは数値を指定 // 完全一致フラグ : (TRUE : 文字列が完全一致したものを取得、FALSE : 文字列の一部を含むものを取得) // 【戻値】 // Internet Explorerオブジェクト ////////////////////////////////////////////////// FUNCTION getIEObj(str, flg = FALSE) DIM Shell = CREATEOLEOBJ("Shell.Application") SELECT CHKNUM(str) CASE TRUE DIM cnt = 0 SELECT TRUE CASE str > 0 FOR n = 0 TO Shell.Windows.Count - 1 TRY IFB Shell.Windows.Item(n).Name = "Internet Explorer" THEN cnt = cnt + 1 IFB str = cnt THEN RESULT = Shell.Windows.Item(n) EXIT ENDIF ENDIF EXCEPT ENDTRY NEXT CASE str < 0 FOR n = Shell.Windows.Count - 1 TO 0 STEP -1 TRY IFB Shell.Windows.Item(n).Name = "Internet Explorer" THEN cnt = cnt + 1 IFB ABS(str) = cnt THEN RESULT = Shell.Windows.Item(n) EXIT ENDIF ENDIF EXCEPT ENDTRY NEXT CASE str = 0 FOR n = 0 TO Shell.Windows.Count - 1 TRY IF Shell.Windows.Item(n).Name = "Internet Explorer" THEN cnt = cnt + 1 EXCEPT ENDTRY NEXT RESULT = cnt EXIT SELEND CASE FALSE DIM t = GETTIME() REPEAT FOR n = 0 TO Shell.Windows.Count - 1 TRY DIM targetObj = Shell.Windows.Item(n) IFB targetObj.Name = "Internet Explorer" THEN SELECT flg CASE TRUE IFB targetObj.document.title = str OR targetObj.LocationURL = str THEN RESULT = Shell.Windows.Item(n) EXIT ENDIF CASE FALSE IFB POS(str, targetObj.document.title) OR POS(str, targetObj.LocationURL) THEN RESULT = Shell.Windows.Item(n) EXIT ENDIF SELEND ENDIF EXCEPT ENDTRY NEXT UNTIL GETTIME() - t >= 5 SELEND RESULT = ERR_VALUE FEND
結果
ファイルを開く

[Webページの保存]ウィンドウを表示

CONST OLECMDID_SAVEAS = 4 CONST OLECMDEXECOPT_DODEFAULT = 0 DIM IE = CREATEOLEOBJ("InternetExplorer.Application") IE.Visible = TRUE IE.GoHome() BusyWait(IE) IE.ExecWB(OLECMDID_SAVEAS, OLECMDEXECOPT_DODEFAULT) ////////////////////////////////////////////////// // 【引数】 // IE : IEオブジェクト // 【戻値】 // ////////////////////////////////////////////////// PROCEDURE BusyWait(Var IE) SLEEP(0.500) DIM t = GETTIME() TRY REPEAT DIM tm = GETTIME() - t FUKIDASI("BusyWait:" + tm) SLEEP(0.010) IF tm >= 60 THEN BREAK UNTIL !IE.Busy AND IE.readyState = 4 EXCEPT IE = getIEObj(-1) PRINT IE.document.URL + " のIEオブジェクトを取得しました。" BusyWait(IE) ENDTRY FUKIDASI() FEND ////////////////////////////////////////////////// // 【引数】 // 文字列 or 数値 : 取得したいIEオブジェクトのタイトル・URLもしくは数値を指定 // 完全一致フラグ : (TRUE : 文字列が完全一致したものを取得、FALSE : 文字列の一部を含むものを取得) // 【戻値】 // Internet Explorerオブジェクト ////////////////////////////////////////////////// FUNCTION getIEObj(str, flg = FALSE) DIM Shell = CREATEOLEOBJ("Shell.Application") SELECT CHKNUM(str) CASE TRUE DIM cnt = 0 SELECT TRUE CASE str > 0 FOR n = 0 TO Shell.Windows.Count - 1 TRY IFB Shell.Windows.Item(n).Name = "Internet Explorer" THEN cnt = cnt + 1 IFB str = cnt THEN RESULT = Shell.Windows.Item(n) EXIT ENDIF ENDIF EXCEPT ENDTRY NEXT CASE str < 0 FOR n = Shell.Windows.Count - 1 TO 0 STEP -1 TRY IFB Shell.Windows.Item(n).Name = "Internet Explorer" THEN cnt = cnt + 1 IFB ABS(str) = cnt THEN RESULT = Shell.Windows.Item(n) EXIT ENDIF ENDIF EXCEPT ENDTRY NEXT CASE str = 0 FOR n = 0 TO Shell.Windows.Count - 1 TRY IF Shell.Windows.Item(n).Name = "Internet Explorer" THEN cnt = cnt + 1 EXCEPT ENDTRY NEXT RESULT = cnt EXIT SELEND CASE FALSE DIM t = GETTIME() REPEAT FOR n = 0 TO Shell.Windows.Count - 1 TRY DIM targetObj = Shell.Windows.Item(n) IFB targetObj.Name = "Internet Explorer" THEN SELECT flg CASE TRUE IFB targetObj.document.title = str OR targetObj.LocationURL = str THEN RESULT = Shell.Windows.Item(n) EXIT ENDIF CASE FALSE IFB POS(str, targetObj.document.title) OR POS(str, targetObj.LocationURL) THEN RESULT = Shell.Windows.Item(n) EXIT ENDIF SELEND ENDIF EXCEPT ENDTRY NEXT UNTIL GETTIME() - t >= 5 SELEND RESULT = ERR_VALUE FEND
結果
Webページの保存

[印刷]ウィンドウを表示

CONST OLECMDID_PRINT = 6 CONST OLECMDEXECOPT_DODEFAULT = 0 DIM IE = CREATEOLEOBJ("InternetExplorer.Application") IE.Visible = TRUE IE.GoHome() BusyWait(IE) IE.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DODEFAULT) ////////////////////////////////////////////////// // 【引数】 // IE : IEオブジェクト // 【戻値】 // ////////////////////////////////////////////////// PROCEDURE BusyWait(Var IE) SLEEP(0.500) DIM t = GETTIME() TRY REPEAT DIM tm = GETTIME() - t FUKIDASI("BusyWait:" + tm) SLEEP(0.010) IF tm >= 60 THEN BREAK UNTIL !IE.Busy AND IE.readyState = 4 EXCEPT IE = getIEObj(-1) PRINT IE.document.URL + " のIEオブジェクトを取得しました。" BusyWait(IE) ENDTRY FUKIDASI() FEND ////////////////////////////////////////////////// // 【引数】 // 文字列 or 数値 : 取得したいIEオブジェクトのタイトル・URLもしくは数値を指定 // 完全一致フラグ : (TRUE : 文字列が完全一致したものを取得、FALSE : 文字列の一部を含むものを取得) // 【戻値】 // Internet Explorerオブジェクト ////////////////////////////////////////////////// FUNCTION getIEObj(str, flg = FALSE) DIM Shell = CREATEOLEOBJ("Shell.Application") SELECT CHKNUM(str) CASE TRUE DIM cnt = 0 SELECT TRUE CASE str > 0 FOR n = 0 TO Shell.Windows.Count - 1 TRY IFB Shell.Windows.Item(n).Name = "Internet Explorer" THEN cnt = cnt + 1 IFB str = cnt THEN RESULT = Shell.Windows.Item(n) EXIT ENDIF ENDIF EXCEPT ENDTRY NEXT CASE str < 0 FOR n = Shell.Windows.Count - 1 TO 0 STEP -1 TRY IFB Shell.Windows.Item(n).Name = "Internet Explorer" THEN cnt = cnt + 1 IFB ABS(str) = cnt THEN RESULT = Shell.Windows.Item(n) EXIT ENDIF ENDIF EXCEPT ENDTRY NEXT CASE str = 0 FOR n = 0 TO Shell.Windows.Count - 1 TRY IF Shell.Windows.Item(n).Name = "Internet Explorer" THEN cnt = cnt + 1 EXCEPT ENDTRY NEXT RESULT = cnt EXIT SELEND CASE FALSE DIM t = GETTIME() REPEAT FOR n = 0 TO Shell.Windows.Count - 1 TRY DIM targetObj = Shell.Windows.Item(n) IFB targetObj.Name = "Internet Explorer" THEN SELECT flg CASE TRUE IFB targetObj.document.title = str OR targetObj.LocationURL = str THEN RESULT = Shell.Windows.Item(n) EXIT ENDIF CASE FALSE IFB POS(str, targetObj.document.title) OR POS(str, targetObj.LocationURL) THEN RESULT = Shell.Windows.Item(n) EXIT ENDIF SELEND ENDIF EXCEPT ENDTRY NEXT UNTIL GETTIME() - t >= 5 SELEND RESULT = ERR_VALUE FEND
結果
印刷

[印刷プレビュー]ウィンドウを表示

CONST OLECMDID_PRINTPREVIEW = 7 CONST OLECMDEXECOPT_DODEFAULT = 0 DIM IE = CREATEOLEOBJ("InternetExplorer.Application") IE.Visible = TRUE IE.GoHome() BusyWait(IE) IE.ExecWB(OLECMDID_PRINTPREVIEW, OLECMDEXECOPT_DODEFAULT) ////////////////////////////////////////////////// // 【引数】 // IE : IEオブジェクト // 【戻値】 // ////////////////////////////////////////////////// PROCEDURE BusyWait(Var IE) SLEEP(0.500) DIM t = GETTIME() TRY REPEAT DIM tm = GETTIME() - t FUKIDASI("BusyWait:" + tm) SLEEP(0.010) IF tm >= 60 THEN BREAK UNTIL !IE.Busy AND IE.readyState = 4 EXCEPT IE = getIEObj(-1) PRINT IE.document.URL + " のIEオブジェクトを取得しました。" BusyWait(IE) ENDTRY FUKIDASI() FEND ////////////////////////////////////////////////// // 【引数】 // 文字列 or 数値 : 取得したいIEオブジェクトのタイトル・URLもしくは数値を指定 // 完全一致フラグ : (TRUE : 文字列が完全一致したものを取得、FALSE : 文字列の一部を含むものを取得) // 【戻値】 // Internet Explorerオブジェクト ////////////////////////////////////////////////// FUNCTION getIEObj(str, flg = FALSE) DIM Shell = CREATEOLEOBJ("Shell.Application") SELECT CHKNUM(str) CASE TRUE DIM cnt = 0 SELECT TRUE CASE str > 0 FOR n = 0 TO Shell.Windows.Count - 1 TRY IFB Shell.Windows.Item(n).Name = "Internet Explorer" THEN cnt = cnt + 1 IFB str = cnt THEN RESULT = Shell.Windows.Item(n) EXIT ENDIF ENDIF EXCEPT ENDTRY NEXT CASE str < 0 FOR n = Shell.Windows.Count - 1 TO 0 STEP -1 TRY IFB Shell.Windows.Item(n).Name = "Internet Explorer" THEN cnt = cnt + 1 IFB ABS(str) = cnt THEN RESULT = Shell.Windows.Item(n) EXIT ENDIF ENDIF EXCEPT ENDTRY NEXT CASE str = 0 FOR n = 0 TO Shell.Windows.Count - 1 TRY IF Shell.Windows.Item(n).Name = "Internet Explorer" THEN cnt = cnt + 1 EXCEPT ENDTRY NEXT RESULT = cnt EXIT SELEND CASE FALSE DIM t = GETTIME() REPEAT FOR n = 0 TO Shell.Windows.Count - 1 TRY DIM targetObj = Shell.Windows.Item(n) IFB targetObj.Name = "Internet Explorer" THEN SELECT flg CASE TRUE IFB targetObj.document.title = str OR targetObj.LocationURL = str THEN RESULT = Shell.Windows.Item(n) EXIT ENDIF CASE FALSE IFB POS(str, targetObj.document.title) OR POS(str, targetObj.LocationURL) THEN RESULT = Shell.Windows.Item(n) EXIT ENDIF SELEND ENDIF EXCEPT ENDTRY NEXT UNTIL GETTIME() - t >= 5 SELEND RESULT = ERR_VALUE FEND
結果
印刷プレビュー

[ページ設定]ウィンドウを表示

CONST OLECMDID_PAGESETUP = 8 CONST OLECMDEXECOPT_DODEFAULT = 0 DIM IE = CREATEOLEOBJ("InternetExplorer.Application") IE.Visible = TRUE IE.GoHome() BusyWait(IE) IE.ExecWB(OLECMDID_PAGESETUP, OLECMDEXECOPT_DODEFAULT) ////////////////////////////////////////////////// // 【引数】 // IE : IEオブジェクト // 【戻値】 // ////////////////////////////////////////////////// PROCEDURE BusyWait(Var IE) SLEEP(0.500) DIM t = GETTIME() TRY REPEAT DIM tm = GETTIME() - t FUKIDASI("BusyWait:" + tm) SLEEP(0.010) IF tm >= 60 THEN BREAK UNTIL !IE.Busy AND IE.readyState = 4 EXCEPT IE = getIEObj(-1) PRINT IE.document.URL + " のIEオブジェクトを取得しました。" BusyWait(IE) ENDTRY FUKIDASI() FEND ////////////////////////////////////////////////// // 【引数】 // 文字列 or 数値 : 取得したいIEオブジェクトのタイトル・URLもしくは数値を指定 // 完全一致フラグ : (TRUE : 文字列が完全一致したものを取得、FALSE : 文字列の一部を含むものを取得) // 【戻値】 // Internet Explorerオブジェクト ////////////////////////////////////////////////// FUNCTION getIEObj(str, flg = FALSE) DIM Shell = CREATEOLEOBJ("Shell.Application") SELECT CHKNUM(str) CASE TRUE DIM cnt = 0 SELECT TRUE CASE str > 0 FOR n = 0 TO Shell.Windows.Count - 1 TRY IFB Shell.Windows.Item(n).Name = "Internet Explorer" THEN cnt = cnt + 1 IFB str = cnt THEN RESULT = Shell.Windows.Item(n) EXIT ENDIF ENDIF EXCEPT ENDTRY NEXT CASE str < 0 FOR n = Shell.Windows.Count - 1 TO 0 STEP -1 TRY IFB Shell.Windows.Item(n).Name = "Internet Explorer" THEN cnt = cnt + 1 IFB ABS(str) = cnt THEN RESULT = Shell.Windows.Item(n) EXIT ENDIF ENDIF EXCEPT ENDTRY NEXT CASE str = 0 FOR n = 0 TO Shell.Windows.Count - 1 TRY IF Shell.Windows.Item(n).Name = "Internet Explorer" THEN cnt = cnt + 1 EXCEPT ENDTRY NEXT RESULT = cnt EXIT SELEND CASE FALSE DIM t = GETTIME() REPEAT FOR n = 0 TO Shell.Windows.Count - 1 TRY DIM targetObj = Shell.Windows.Item(n) IFB targetObj.Name = "Internet Explorer" THEN SELECT flg CASE TRUE IFB targetObj.document.title = str OR targetObj.LocationURL = str THEN RESULT = Shell.Windows.Item(n) EXIT ENDIF CASE FALSE IFB POS(str, targetObj.document.title) OR POS(str, targetObj.LocationURL) THEN RESULT = Shell.Windows.Item(n) EXIT ENDIF SELEND ENDIF EXCEPT ENDTRY NEXT UNTIL GETTIME() - t >= 5 SELEND RESULT = ERR_VALUE FEND
結果
ページ設定

[プロパティ]ウィンドウを表示

CONST OLECMDID_PROPERTIES = 10 CONST OLECMDEXECOPT_DODEFAULT = 0 DIM IE = CREATEOLEOBJ("InternetExplorer.Application") IE.Visible = TRUE IE.GoHome() BusyWait(IE) IE.ExecWB(OLECMDID_PROPERTIES, OLECMDEXECOPT_DODEFAULT) ////////////////////////////////////////////////// // 【引数】 // IE : IEオブジェクト // 【戻値】 // ////////////////////////////////////////////////// PROCEDURE BusyWait(Var IE) SLEEP(0.500) DIM t = GETTIME() TRY REPEAT DIM tm = GETTIME() - t FUKIDASI("BusyWait:" + tm) SLEEP(0.010) IF tm >= 60 THEN BREAK UNTIL !IE.Busy AND IE.readyState = 4 EXCEPT IE = getIEObj(-1) PRINT IE.document.URL + " のIEオブジェクトを取得しました。" BusyWait(IE) ENDTRY FUKIDASI() FEND ////////////////////////////////////////////////// // 【引数】 // 文字列 or 数値 : 取得したいIEオブジェクトのタイトル・URLもしくは数値を指定 // 完全一致フラグ : (TRUE : 文字列が完全一致したものを取得、FALSE : 文字列の一部を含むものを取得) // 【戻値】 // Internet Explorerオブジェクト ////////////////////////////////////////////////// FUNCTION getIEObj(str, flg = FALSE) DIM Shell = CREATEOLEOBJ("Shell.Application") SELECT CHKNUM(str) CASE TRUE DIM cnt = 0 SELECT TRUE CASE str > 0 FOR n = 0 TO Shell.Windows.Count - 1 TRY IFB Shell.Windows.Item(n).Name = "Internet Explorer" THEN cnt = cnt + 1 IFB str = cnt THEN RESULT = Shell.Windows.Item(n) EXIT ENDIF ENDIF EXCEPT ENDTRY NEXT CASE str < 0 FOR n = Shell.Windows.Count - 1 TO 0 STEP -1 TRY IFB Shell.Windows.Item(n).Name = "Internet Explorer" THEN cnt = cnt + 1 IFB ABS(str) = cnt THEN RESULT = Shell.Windows.Item(n) EXIT ENDIF ENDIF EXCEPT ENDTRY NEXT CASE str = 0 FOR n = 0 TO Shell.Windows.Count - 1 TRY IF Shell.Windows.Item(n).Name = "Internet Explorer" THEN cnt = cnt + 1 EXCEPT ENDTRY NEXT RESULT = cnt EXIT SELEND CASE FALSE DIM t = GETTIME() REPEAT FOR n = 0 TO Shell.Windows.Count - 1 TRY DIM targetObj = Shell.Windows.Item(n) IFB targetObj.Name = "Internet Explorer" THEN SELECT flg CASE TRUE IFB targetObj.document.title = str OR targetObj.LocationURL = str THEN RESULT = Shell.Windows.Item(n) EXIT ENDIF CASE FALSE IFB POS(str, targetObj.document.title) OR POS(str, targetObj.LocationURL) THEN RESULT = Shell.Windows.Item(n) EXIT ENDIF SELEND ENDIF EXCEPT ENDTRY NEXT UNTIL GETTIME() - t >= 5 SELEND RESULT = ERR_VALUE FEND
結果
プロパティ

OLECMDID

定数名 説明
OLECMDID_OPEN 1 [ファイル]メニューの[開く]
[ファイルを開く]ウィンドウを表示
OLECMDID_NEW 2
OLECMDID_SAVE 3
OLECMDID_SAVEAS 4 [Webページの保存]
OLECMDID_SAVECOPYAS 5
OLECMDID_PRINT 6 [ファイル]メニューの[印刷]
[印刷]
OLECMDID_PRINTPREVIEW 7 [ファイル]メニューの[印刷プレビュー]
[印刷プレビュー]
OLECMDID_PAGESETUP 8 [ファイル]メニューの[ページ設定]
[ページ設定]
OLECMDID_SPELL 9
OLECMDID_PROPERTIES 10 [ファイル]メニューの[プロパティ]
[プロパティ]
OLECMDID_CUT 11 [編集]メニューの[切り取り]
[切り取り]
OLECMDID_COPY 12 [編集]メニューの[コピー]
[コピー]
OLECMDID_PASTE 13 [編集]メニューの[貼り付け]
[貼り付け]
OLECMDID_PASTESPECIAL 14
OLECMDID_UNDO 15
OLECMDID_REDO 16
OLECMDID_SELECTALL 17 [編集]メニューの[すべて選択]
[すべて選択]
OLECMDID_CLEARSELECTION 18
OLECMDID_ZOOM 19
OLECMDID_GETZOOMRANGE 20
OLECMDID_UPDATECOMMANDS 21
OLECMDID_REFRESH 22
OLECMDID_STOP 23
OLECMDID_HIDETOOLBARS 24
OLECMDID_SETPROGRESSMAX 25
OLECMDID_SETPROGRESSPOS 26
OLECMDID_SETPROGRESSTEXT 27
OLECMDID_SETTITLE 28
OLECMDID_SETDOWNLOADSTATE 29
OLECMDID_STOPDOWNLOAD 30
OLECMDID_ONTOOLBARACTIVATED 31
OLECMDID_FIND 32 [編集]メニューの[このページの検索]
OLECMDID_DELETE 33
OLECMDID_HTTPEQUIV 34
OLECMDID_HTTPEQUIV_DONE 35
OLECMDID_ENABLE_INTERACTION 36
OLECMDID_ONUNLOAD 37
OLECMDID_PROPERTYBAG2 38
OLECMDID_PREREFRESH 39
OLECMDID_SHOWSCRIPTERROR 40
OLECMDID_SHOWMESSAGE 41
OLECMDID_SHOWFIND 42
OLECMDID_SHOWPAGESETUP 43
OLECMDID_SHOWPRINT 44
OLECMDID_CLOSE 45 [ファイル]メニューの[終了]
OLECMDID_ALLOWUILESSSAVEAS 46
OLECMDID_DONTDOWNLOADCSS 47
OLECMDID_UPDATEPAGESTATUS 48
OLECMDID_PRINT2 49
OLECMDID_PRINTPREVIEW2 50
OLECMDID_SETPRINTTEMPLATE 51
OLECMDID_GETPRINTTEMPLATE 52
OLECMDID_PAGEACTIONBLOCKED 55
OLECMDID_PAGEACTIONUIQUERY 56
OLECMDID_FOCUSVIEWCONTROLS 57
OLECMDID_FOCUSVIEWCONTROLSQUERY 58
OLECMDID_SHOWPAGEACTIONMENU 59

OLECMDEXECOPT

定数名 説明
OLECMDEXECOPT_DODEFAULT 0 デフォルトの動作を使用する。ユーザーに入力を促すかどうか
OLECMDEXECOPT_PROMPTUSER 1 ユーザーの入力を取得した後にコマンドを実行する
OLECMDEXECOPT_DONTPROMPTUSER 2 ユーザーに入力を促すことなくコマンドを実行する
OLECMDEXECOPT_SHOWHELP 3 コマンドのヘルプを表示するが、実行はしない

ExecWBの定数一覧

プログラムで使用する際にコピペするなどして活用ください。

// OLECMDID CONST OLECMDID_OPEN = 1 CONST OLECMDID_NEW = 2 CONST OLECMDID_SAVE = 3 CONST OLECMDID_SAVEAS = 4 CONST OLECMDID_SAVECOPYAS = 5 CONST OLECMDID_PRINT = 6 CONST OLECMDID_PRINTPREVIEW = 7 CONST OLECMDID_PAGESETUP = 8 CONST OLECMDID_SPELL = 9 CONST OLECMDID_PROPERTIES = 10 CONST OLECMDID_CUT = 11 CONST OLECMDID_COPY = 12 CONST OLECMDID_PASTE = 13 CONST OLECMDID_PASTESPECIAL = 14 CONST OLECMDID_UNDO = 15 CONST OLECMDID_REDO = 16 CONST OLECMDID_SELECTALL = 17 CONST OLECMDID_CLEARSELECTION = 18 CONST OLECMDID_ZOOM = 19 CONST OLECMDID_GETZOOMRANGE = 20 CONST OLECMDID_UPDATECOMMANDS = 21 CONST OLECMDID_REFRESH = 22 CONST OLECMDID_STOP = 23 CONST OLECMDID_HIDETOOLBARS = 24 CONST OLECMDID_SETPROGRESSMAX = 25 CONST OLECMDID_SETPROGRESSPOS = 26 CONST OLECMDID_SETPROGRESSTEXT = 27 CONST OLECMDID_SETTITLE = 28 CONST OLECMDID_SETDOWNLOADSTATE = 29 CONST OLECMDID_STOPDOWNLOAD = 30 CONST OLECMDID_ONTOOLBARACTIVATED = 31 CONST OLECMDID_FIND = 32 CONST OLECMDID_DELETE = 33 CONST OLECMDID_HTTPEQUIV = 34 CONST OLECMDID_HTTPEQUIV_DONE = 35 CONST OLECMDID_ENABLE_INTERACTION = 36 CONST OLECMDID_ONUNLOAD = 37 CONST OLECMDID_PROPERTYBAG2 = 38 CONST OLECMDID_PREREFRESH = 39 CONST OLECMDID_SHOWSCRIPTERROR = 40 CONST OLECMDID_SHOWMESSAGE = 41 CONST OLECMDID_SHOWFIND = 42 CONST OLECMDID_SHOWPAGESETUP = 43 CONST OLECMDID_SHOWPRINT = 44 CONST OLECMDID_CLOSE = 45 CONST OLECMDID_ALLOWUILESSSAVEAS = 46 CONST OLECMDID_DONTDOWNLOADCSS = 47 CONST OLECMDID_UPDATEPAGESTATUS = 48 CONST OLECMDID_PRINT2 = 49 CONST OLECMDID_PRINTPREVIEW2 = 50 CONST OLECMDID_SETPRINTTEMPLATE = 51 CONST OLECMDID_GETPRINTTEMPLATE = 52 CONST OLECMDID_PAGEACTIONBLOCKED = 55 CONST OLECMDID_PAGEACTIONUIQUERY = 56 CONST OLECMDID_FOCUSVIEWCONTROLS = 57 CONST OLECMDID_FOCUSVIEWCONTROLSQUERY = 58 CONST OLECMDID_SHOWPAGEACTIONMENU = 59 // OLECMDEXECOPT CONST OLECMDEXECOPT_DODEFAULT = 0 CONST OLECMDEXECOPT_PROMPTUSER = 1 CONST OLECMDEXECOPT_DONTPROMPTUSER = 2 CONST OLECMDEXECOPT_SHOWHELP = 3
参考文献