vbsの作法 その65

概要

vbsの作法、調べてみた。
練習問題、やってみた。

練習問題

Windows11でInternet Explorer11を起動して、スクレイピングせよ。

写真

サンプルコード

Dim objIE
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate "https://ev2-prod-node-red-09632ac9-94e.herokuapp.com/list/table"
Do While objIE.Busy = True Or objIE.readyState <> 4
	WScript.Sleep 1000
Loop
Dim tr
Dim t
For Each tr In objIE.document.getElementsByTagName("tr")
	For Each t In tr.Children
		msgbox t.innerText
	Next
Next
Set objIE = Nothing

以上。