ExecWB ｜ UWSC辞典

Contents

1 OLECMDID
2 OLECMDEXECOPT
3 ExecWBの定数一覧
4 プログラム実行例

ExecWBメソッドはIEのコマンドを実行するメソッドです。第一引数には実行したい内容のコマンド、第二引数にはオプションを指定します。

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

引数

InternetExplorer: InternetExplorerオブジェクト
cmdID: OLECMDIDの値を指定
cmdexecopt: 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

プログラム実行例

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

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

結果

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

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

結果

参考文献

この記事は役に立ちましたか？

UWSC辞典

ExecWB

OLECMDID

OLECMDEXECOPT

ExecWBの定数一覧

プログラム実行例

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

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

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

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

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

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

検索フォーム

PR

最近の投稿・更新

タグ一覧

アーカイブ

カテゴリー

メタ情報

このページを共有する