vbsの作法 その87

概要

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

練習問題

IE11で、タイトルとディスクリプションを取得せよ。

サンプルコード

Dim ws
Set ws = WScript.CreateObject("WScript.Shell")
Dim objIE
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Visible = True
objIE.Navigate "https://auctions.yahoo.co.jp"
ws.AppActivate("Internet Explorer")

Do While objIE.ReadyState <> 4 Or objIE.Busy = True
    WScript.Sleep 100
Loop

For Each elm In objIE.Document.getElementsByTagName("meta")
	If elm.name = "description" then
		WScript.Echo "Title: " & objIE.Document.Title
		WScript.Echo "description: " & elm.Content
	End If
Next

objIE.Quit
Set objIE = Nothing

以上