UWSC辞典

構文

1. UString = IENoticeBar( )

引数

戻値

ダウンロードしたファイル名

プログラム

//////////////////////////////////////////////////
// 【引数】
// 
// 【戻値】
//   ダウンロードしたファイル名 
//////////////////////////////////////////////////
FUNCTION IENoticeBar()
	REPEAT
		ID = GETID("Internet Explorer", "IEFrame")
		DirectUIHWND = GETCTLHND(ID, "DirectUIHWND", 2)
		IF DirectUIHWND <> 0 THEN GETCTLHND(ID, "DirectUIHWND", 1)
	UNTIL DirectUIHWND <> 0
	REPEAT
		popupHandle = HNDTOID(DirectUIHWND)
	UNTIL popupHandle <> 0
	REPEAT
		SLEEP(0.50)
		DirectUIHWND = GETCTLHND(ID, "DirectUIHWND", 2)
		IF DirectUIHWND <= 0 THEN DirectUIHWND = GETCTLHND(ID, "DirectUIHWND", 1)
		popupHandle = HNDTOID(DirectUIHWND)
		NotificationBar = CLKITEM(popupHandle, "保存", CLK_ACC)
	UNTIL NotificationBar <> 0
	REPEAT
		SLEEP(0.50)
	UNTIL POS("のダウンロードが完了しました。", GETSTR(popupHandle, 1, STR_ACC_STATIC))
	str = GETSTR(popupHandle, 1, STR_ACC_STATIC)
	CLKITEM(popupHandle, "閉じる", CLK_ACC)
	RESULT = COPY(str, 1, POS(" のダウンロードが完了しました。", str) - 1)
FEND//////////////////////////////////////////////////
// 【引数】
// 
// 【戻値】
//   ダウンロードしたファイル名 
//////////////////////////////////////////////////
FUNCTION IENoticeBar()
	REPEAT
		ID = GETID("Internet Explorer", "IEFrame")
		DirectUIHWND = GETCTLHND(ID, "DirectUIHWND", 2)
		IF DirectUIHWND <> 0 THEN GETCTLHND(ID, "DirectUIHWND", 1)
	UNTIL DirectUIHWND <> 0
	REPEAT
		popupHandle = HNDTOID(DirectUIHWND)
	UNTIL popupHandle <> 0
	REPEAT
		SLEEP(0.50)
		DirectUIHWND = GETCTLHND(ID, "DirectUIHWND", 2)
		IF DirectUIHWND <= 0 THEN DirectUIHWND = GETCTLHND(ID, "DirectUIHWND", 1)
		popupHandle = HNDTOID(DirectUIHWND)
		NotificationBar = CLKITEM(popupHandle, "保存", CLK_ACC)
	UNTIL NotificationBar <> 0
	REPEAT
		SLEEP(0.50)
	UNTIL POS("のダウンロードが完了しました。", GETSTR(popupHandle, 1, STR_ACC_STATIC))
	str = GETSTR(popupHandle, 1, STR_ACC_STATIC)
	CLKITEM(popupHandle, "閉じる", CLK_ACC)
	RESULT = COPY(str, 1, POS(" のダウンロードが完了しました。", str) - 1)
FEND