IE.ExecWB メソッド

本ページには広告が含まれています。

Internet Explorer

IOleCommandTargetインターフェースを使用して、コマンドを実行し、コマンド実行のステータスを返します。第一引数には実行したい内容のコマンド、第二引数にはオプションを指定します。

構文: InternetExplorer.ExecWB( cmdID, cmdexecopt, pvaIn, pvaOut )

引数

cmdID （#olecmdid）必須: OLECMDIDの値を指定
cmdexecopt （#olecmdexecopt）必須: OLECMDEXECOPTの値を指定
pvaIn 省略可
pvaOut省略可

戻り値: コマンドを実行し、IOleCommandTargetインターフェイスを使用してコマンド実行のステータスを返します。

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

プログラム実行例

Internet Explorerで開いたページを印刷

ExecWBの第１引数にOLECMDID_PRINTを指定すると、[ファイル]メニューの[印刷]を実行するのと同じ動作をします。

またExecWBの第２引数にOLECMDEXECOPT_DONTPROMPTUSERを指定しているので、ユーザーの入力を促すことなく印刷が始まります。このプログラムを実行する際は注意してください。

CONST OLECMDID_PRINT = 6
CONST OLECMDEXECOPT_DONTPROMPTUSER = 2

DIM IE = CREATEOLEOBJ("InternetExplorer.Application")
IE.Visible = TRUE
IE.Navigate("http://example.com")
BusyWait(IE)
SLEEP(3.000)

IE.ExecWB(OLECMDID_PRINT, OLECMDEXECOPT_DONTPROMPTUSER)
IE.Quit

//////////////////////////////////////////////////
// 【引数】
//   array : 要素を追加する配列（参照引数）
//   values : 追加する要素をvalue1から指定
// 【戻り値】
//   処理後の配列の要素の数
//////////////////////////////////////////////////
FUNCTION arrayPush(var array[], value1 = EMPTY, value2 = EMPTY, value3 = EMPTY, value4 = EMPTY, value5 = EMPTY, value6 = EMPTY, value7 = EMPTY, value8 = EMPTY, value9 = EMPTY, value10 = EMPTY, value11 = EMPTY, value12 = EMPTY, value13 = EMPTY, value14 = EMPTY, value15 = EMPTY, value16 = EMPTY)
    DIM i = 1
    WHILE EVAL("value" + i) <> EMPTY
	  DIM res = RESIZE(array, UBound(array) + 1)
	  array[res] = EVAL("value" + i)
	  i = i + 1
	WEND
	RESULT = LENGTH(array)
FEND

//////////////////////////////////////////////////
// 【引数】
//   needle : 検索する値
//   haystack : 配列
// 【戻り値】
//   needleが見つかった場合に配列のキー
//////////////////////////////////////////////////
FUNCTION arraySearch(needle, haystack[])
	DIM i = 0
	FOR item IN haystack
		IFB item = needle THEN
			RESULT = i
			EXIT
		ENDIF
		i = i + 1
	NEXT
FEND

//////////////////////////////////////////////////
// 【引数】
//   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 数値 : 取得したい<a href="https://uwsc.jp/com/ie/">InternetExplorer オブジェクト</a>のタイトル・URLもしくは数値を指定
//   完全一致フラグ : （TRUE : 文字列が完全一致したものを取得、FALSE : 文字列の一部を含むものを取得）
// 【戻り値】
//   条件に一致する<a href="https://uwsc.jp/com/ie">InternetExplorer</a>
//////////////////////////////////////////////////
FUNCTION getIEObj(str, flg = FALSE)
	DIM Shell = CREATEOLEOBJ("Shell.Application")
	DIM ShellWindows = Shell.Windows
	DIM IE[-1]
	FOR i = 0 TO ShellWindows.Count - 1
		TRY
			IFB ShellWindows.Item(i).Name = "Internet Explorer" THEN
				arrayPush(IE, ShellWindows.Item(i))
			ENDIF
		EXCEPT
		ENDTRY
	NEXT
	SELECT CHKNUM(str)
		CASE TRUE
			IFB str = 0 THEN
				RESULT = LENGTH(IE)
			ELSE
				IF str < 0 THEN str = str + LENGTH(IE) + 1
				TRY
					RESULT = IE[str-1]
				EXCEPT
					RESULT = ERR_VALUE
				ENDTRY
			ENDIF
		CASE FALSE
			DIM pattern = IIF(flg, "^" + str + "$", str)
			DIM titleList = SLICE(IE)
			FOR i = 0 TO UBound(titleList)
				titleList[i] = titleList[i].Document.title
			NEXT
			DIM urlList = SLICE(IE)
			FOR i = 0 TO UBound(urlList)
				urlList[i] = urlList[i].Document.URL
			NEXT
			DIM num = ERR_VALUE
			SELECT TRUE
				CASE pregGrep(pattern, titleList) <> FALSE;	num = arraySearch(pregGrep(pattern, titleList)[0], titleList)
				CASE pregGrep(pattern, urlList) <> FALSE;		num = arraySearch(pregGrep(pattern, urlList)[0], urlList)
			SELEND
			TRY
				RESULT = IE[num]
			EXCEPT
				RESULT = ERR_VALUE
			ENDTRY
	SELEND
FEND

//////////////////////////////////////////////////
// 【引数】
//   expr : 評価する式
//   truepart : 評価した式がTrueのときに返す値
//   falsepart : 評価した式がFalseのときに返す値
// 【戻り値】
//   truepart : 評価した式がTrueのとき、falsepart : 評価した式がFalseのとき
//////////////////////////////////////////////////
FUNCTION IIF(expr, truepart, falsepart)
	IFB EVAL(expr) THEN
		RESULT = truepart
	ELSE
		RESULT = falsepart
	ENDIF
FEND

//////////////////////////////////////////////////
// 【引数】
//   pattern : 検索するパターンを表す文字列
//   array : 検索される配列
// 【戻り値】
//////////////////////////////////////////////////
FUNCTION pregGrep(pattern, array[], flags = 0)
	DIM res[-1]
	FOR item IN array
		IF reTest(item, pattern) THEN arrayPush(res, item)
	NEXT
	RESULT = SLICE(res)
FEND

//////////////////////////////////////////////////
// 【引数】
//   str : 正規表現による検索の対象となる文字列
//   Pattern : 正規表現で使用するパターンを設定
//   IgnoreCase : 大文字・小文字を区別しない場合はTrue、区別する場合はFalse
//   Global : 文字列全体を検索する場合はTrue、しない場合はFalse
// 【戻り値】
//   正規表現にマッチするかどうかを示すブール値
//////////////////////////////////////////////////
FUNCTION reTest(str, Pattern, IgnoreCase = TRUE, Global = TRUE)
	DIM re = CREATEOLEOBJ("VBScript.RegExp")
	re.Pattern = Pattern
	re.IgnoreCase = IgnoreCase
	re.Global = Global
	RESULT = re.Test(str)
FEND

//////////////////////////////////////////////////
// 【引数】
//   inputs : 繰り返す文字列
//   multiplier : inputsを繰り返す回数
// 【戻り値】
//   inputsをmultiplier回を繰り返した文字列を返します
//////////////////////////////////////////////////
FUNCTION strRepeat(inputs, multiplier)
	DIM res = ""
	FOR n = 1 TO multiplier
		res = res + inputs
	NEXT
	RESULT = res
FEND

//////////////////////////////////////////////////
// 【引数】
//   arrayname : 上限値を求める配列の名前
//   dimension : 返す次元を示す整数
// 【戻り値】
//   配列の上限値
//////////////////////////////////////////////////
FUNCTION UBound(arrayname[], dimension = 1)
	RESULT = EVAL("RESIZE(arrayname" + strRepeat("[0]", dimension - 1) + ")")
FEND

使用関数

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

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)

結果

使用関数

[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)

結果

使用関数

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

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)

結果

使用関数

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

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)

結果

使用関数

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

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)

結果

使用関数

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

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)

結果

使用関数

参考文献

IEGETFRAME関数 (スクリプト関数): HTMLのiframeタグで埋め込まれたインラインフレームを取得します。
IESETDATA関数 (スクリプト関数): ウェブ上に値を設定します。
BusyWait関数 (自作関数): IEオブジェクトの読み込みが完了するのを待ちます。
IE.GoForward メソッド: 履歴リストの1つ後の項目に移動します。
IE.Refresh2 メソッド: 指定されたリフレッシュレベルで現在表示されているファイルを再読み込みします。
IE.Stop メソッド: 読込中のWebページやダウンロードのキャンセル、BGMやアニメーションの動的要素を停止します。
getIEObj関数 (自作関数): 引数に指定したタイトルまたはURLを含むIEオブジェクトを返します。戻り値はInternetExplorerオブジェクトです。
IE.Navigate メソッド: URLまたは絶対パスで指定されたファイルを開きます。
IE.Document プロパティ: ドキュメントオブジェクトを取得
IE.Left プロパティ: オブジェクトの左端の座標を取得または設定します。