日本の情報発信基地

IE.documentから取得できる情報_InternetExplorer

　
UWSC

スポンサーリンク

IE.documentから取得できる情報

ページにアクセスすると、そのページ内の情報(IE.document)が取得できます

■ドキュメント

タイトル
IE.document.title
ドキュメントタイプ
IE.document.doctype

■ベース色

背景色
IE.document.bgColor
文字色
IE.document.fgColor

■文字コード

文字コード
IE.document.charSet
ブラウザのデフォルト文字コード
IE.document.defaultCharset

■リンク文字色

リンク中の文字色
IE.document.alinkColor
リンク文字色
IE.document.linkColor
リンク済の文字色
IE.document.vlinkColor

■アンカーオブジェクト

アンカーの数
IE.document.anchors.length
アンカー名(0からの数字を指定)
IE.document.anchors[n].name

■クッキー

クッキー
IE.document.cookie

■ドメイン

ドメイン名
IE.document.domain
現在のページのURL
IE.document.URL
指定座標上のオブジェクト情報
IE.document.elementFromPoint(X,Y)

■リファラ

リファラ
IE.document.referrer

というわけで、ひとつひとつ解説するよりは
具体的にスクリプトを実行させて、結果を見てみましょう。

IE = CREATEOLEOBJ("InternetExplorer.Application")
IE.visible = True
IE.navigate("http://canal22.org/sample0001")
REPEAT
 SLEEP(0.1)
UNTIL !IE.busy AND IE.readyState = 4
PRINT "■ドキュメント"
PRINT "  タイトル"
PRINT "    IE.document.title=" + IE.document.title
PRINT "  ドキュメントタイプ"
PRINT "    IE.document.doctype=" + IE.document.doctype
PRINT "■ベース色"
PRINT "  背景色"
PRINT "    IE.document.bgColor=" + IE.document.bgColor
PRINT "  文字色"
PRINT "    IE.document.fgColor=" + IE.document.fgColor
PRINT "■文字コード"
PRINT "  文字コード"
PRINT "    IE.document.charSet=" + IE.document.charSet
PRINT "  ブラウザのデフォルト文字コード"
PRINT "    IE.document.defaultCharset=" + IE.document.defaultCharset
PRINT "■リンク文字色"
PRINT "  リンク中の文字色"
PRINT "    IE.document.alinkColor=" + IE.document.alinkColor
PRINT "  リンク文字色"
PRINT "    IE.document.linkColor=" + IE.document.linkColor
PRINT "  リンク済の文字色"
PRINT "    IE.document.vlinkColor=" + IE.document.linkColor
PRINT "■アンカーオブジェクト"
PRINT "  アンカーの数"
PRINT "    IE.document.anchors.length=" + IE.document.anchors.length
  FOR A = 0 TO (IE.document.anchors.length - 1)
    PRINT "  アンカー名(" + A + ")"
    PRINT "    IE.document.anchors[" + A + "].name=" + IE.document.anchors[A].name
  NEXT
PRINT "■クッキー"
PRINT "  クッキー"
PRINT "    IE.document.cookie=" + IE.document.cookie
PRINT "■ドメイン"
PRINT "  ドメイン名"
PRINT "    IE.document.domain=" + IE.document.domain
PRINT "  現在のページのURL"
PRINT "    IE.document.URL=" + IE.document.URL
PRINT "  指定座標上のオブジェクト情報(ここではx=100,y=100を指定)"
PRINT "    IE.document.elementFromPoint(100,100)=" + IE.document.elementFromPoint(100,100)
//リファラを表示するためにリンクをクリック
IE.document.links[0].click()
REPEAT
 SLEEP(0.1)
UNTIL !IE.busy AND IE.readyState = 4
PRINT "■リファラ"
PRINT "  リファラ"
PRINT "    IE.document.referrer=" + IE.document.referrer
IE.navigate("http://canal22.org/sample0001")
REPEAT
 SLEEP(0.1)
UNTIL !IE.busy AND IE.readyState = 4

どうでしょうか。
IE.documentにある種々の情報が取得できましたか。

それでは、応用編というわけではありませんが、
上記のスクリプトをExcelに出力するというスクリプトにしてみましょう。
ExcelとIEの簡単な連携ですね。それではスクリプトです。

 

IE = CREATEOLEOBJ("InternetExplorer.Application")
IE.visible = True
IE.navigate("http://canal22.org/sample0001")
REPEAT
 SLEEP(0.1)
UNTIL !IE.busy AND IE.readyState = 4
EXCEL = CREATEOLEOBJ("Excel.Application")
EXCEL.visible = True
EXCEL.workbooks.add()
EXCEL.range("A1").select()
EXCEL.activeCell.value="■ドキュメント"
EXCEL.activeCell.offSet(1,1).select()
EXCEL.activeCell.value="タイトル"
EXCEL.activeCell.offSet(1,1).select()
EXCEL.activeCell.value="IE.document.title=" + IE.document.title
EXCEL.activeCell.offSet(1,-1).select()
EXCEL.activeCell.value="ドキュメントタイプ"
EXCEL.activeCell.offSet(1,1).select()
EXCEL.activeCell.value="IE.document.doctype=" + IE.document.doctype
EXCEL.activeCell.offSet(1,-2).select()
EXCEL.activeCell.value="■ベース色"
EXCEL.activeCell.offSet(1,1).select()
EXCEL.activeCell.value="背景色"
EXCEL.activeCell.offSet(1,1).select()
EXCEL.activeCell.value="IE.document.bgColor=" + IE.document.bgColor
EXCEL.activeCell.offSet(1,-1).select()
EXCEL.activeCell.value="文字色"
EXCEL.activeCell.offSet(1,1).select()
EXCEL.activeCell.value="IE.document.fgColor=" + IE.document.fgColor
EXCEL.activeCell.offSet(1,-2).select()
EXCEL.activeCell.value="■文字コード"
EXCEL.activeCell.offSet(1,1).select()
EXCEL.activeCell.value="文字コード"
EXCEL.activeCell.offSet(1,1).select()
EXCEL.activeCell.value="IE.document.charSet=" + IE.document.charSet
EXCEL.activeCell.offSet(1,-1).select()
EXCEL.activeCell.value="ブラウザのデフォルト文字コード"
EXCEL.activeCell.offSet(1,1).select()
EXCEL.activeCell.value="IE.document.defaultCharset=" + IE.document.defaultCharset
EXCEL.activeCell.offSet(1,-2).select()
EXCEL.activeCell.value="■リンク文字色"
EXCEL.activeCell.offSet(1,1).select()
EXCEL.activeCell.value="リンク中の文字色"
EXCEL.activeCell.offSet(1,1).select()
EXCEL.activeCell.value="IE.document.alinkColor=" + IE.document.alinkColor
EXCEL.activeCell.offSet(1,-1).select()
EXCEL.activeCell.value="リンク文字色"
EXCEL.activeCell.offSet(1,1).select()
EXCEL.activeCell.value="IE.document.linkColor=" + IE.document.linkColor
EXCEL.activeCell.offSet(1,-1).select()
EXCEL.activeCell.value="リンク済の文字色"
EXCEL.activeCell.offSet(1,1).select()
EXCEL.activeCell.value="IE.document.vlinkColor=" + IE.document.linkColor
EXCEL.activeCell.offSet(1,-2).select()
EXCEL.activeCell.value="■アンカーオブジェクト"
EXCEL.activeCell.offSet(1,1).select()
EXCEL.activeCell.value="アンカーの数"
EXCEL.activeCell.offSet(1,1).select()
EXCEL.activeCell.value="IE.document.anchors.length=" + IE.document.anchors.length
  FOR A = 0 TO (IE.document.anchors.length - 1)
    EXCEL.activeCell.offSet(1,-1).select()
    EXCEL.activeCell.value="アンカー名(" + A + ")"
    EXCEL.activeCell.offSet(1,1).select()
    EXCEL.activeCell.value="IE.document.anchors[" + A + "].name=" + IE.document.anchors[A].name
  NEXT
EXCEL.activeCell.offSet(1,-2).select()
EXCEL.activeCell.value="■クッキー"
EXCEL.activeCell.offSet(1,1).select()
EXCEL.activeCell.value="クッキー"
EXCEL.activeCell.offSet(1,1).select()
EXCEL.activeCell.value="IE.document.cookie=" + IE.document.cookie
EXCEL.activeCell.offSet(1,-2).select()
EXCEL.activeCell.value="■ドメイン"
EXCEL.activeCell.offSet(1,1).select()
EXCEL.activeCell.value="ドメイン名"
EXCEL.activeCell.offSet(1,1).select()
EXCEL.activeCell.value="IE.document.domain=" + IE.document.domain
EXCEL.activeCell.offSet(1,-1).select()
EXCEL.activeCell.value="現在のページのURL"
EXCEL.activeCell.offSet(1,1).select()
EXCEL.activeCell.value="IE.document.URL=" + IE.document.URL
EXCEL.activeCell.offSet(1,-1).select()
EXCEL.activeCell.value="指定座標上のオブジェクト情報(ここではx=100,y=100を指定)"
EXCEL.activeCell.offSet(1,1).select()
EXCEL.activeCell.value="IE.document.elementFromPoint(100,100)=" + IE.document.elementFromPoint(100,100)
//リファラを表示するためにリンクをクリック
IE.document.links[0].click()
REPEAT
 SLEEP(0.1)
UNTIL !IE.busy AND IE.readyState = 4
EXCEL.activeCell.offSet(1,-2).select()
EXCEL.activeCell.value="■リファラ"
EXCEL.activeCell.offSet(1,1).select()
EXCEL.activeCell.value="リファラ"
EXCEL.activeCell.offSet(1,1).select()
EXCEL.activeCell.value="IE.document.referrer=" + IE.document.referrer
IE.navigate("http://canal22.org/sample0001")
REPEAT
 SLEEP(0.1)
UNTIL !IE.busy AND IE.readyState = 4
スポンサーリンク

http://canal22.org/advance/ie/ie-documen/

No related posts.

スポンサーリンク

- Comments -

メールアドレスが公開されることはありません。 * が付いている欄は必須項目です

Copyright© ヒカルの情報ブログ , 2018 All Rights Reserved.