IEを開いてページテキスト取得 - やするん＠Wiki

IEオブジェクトを作成して指定したURLのWEBページを取得し、
innerTextを表示＆クリップボードへ。

あくまでinnerTextであって、HTMLソースをごそっととってこれるわけではない。

useIE.vbs

Dim url
url = inputBox("URLを入力してね。","URLの入力", "http://")
if url = "" or url = "http://" then
	Wscript.echo "おしまい"
	Wscript.quit
end if

Wscript.echo "はじまり"

Dim objIE
Set objIE = CreateObject("InternetExplorer.Application")
objIE.navigate url

Do Until objIE.Busy = False
	Wscript.sleep(200)
loop

do until objIE.document.readyState = "complete"
	Wscript.sleep(200)
loop

Dim data
data = objIE.document.Body.innerText
'data = Replace(data, vbCrLf, "")

Wscript.echo data

objIE.Document.parentWindow.clipboardData.setData "text", data

objIE.quit

Wscript.echo "おわり"
Wscript.quit

---

トータル : -
今日 : -
昨日 : -