WebCapture
Webブラウザからページ、テーブル、イメージを選択し、
選択された要素のIDを取得可能。
どうやって何に使うと便利なのかは不明。
Option Explicit Const START_URL = "http://google.co.jp" Dim ObjWebCapture, elmIDs, elms, index, str Set ObjWebCapture = CreateObject("microsoft.WebCapture.1") ObjWebCapture.Url = START_URL If (ObjWebCapture.ShowCapture() = 1) Then str = ObjWebCapture.Title & " (" & ObjWebCapture.Url & ")" & vbCrLf elms = Split(ObjWebCapture.Elements, ",") elmIDs = Split(ObjWebCapture.ElementIDs, ",") For index = 0 To UBound(elms) str = str & elmIDs(index) & "：" & elms(index) & vbCrLf Next MsgBox str Else MsgBox "cancel" End If
スクリーンショット
Webブラウザから選択した箇所にシャドーがかかります。
戻る
