getElementsByTagName

構文
elements = document.getElementsByTagName( name )
引数
戻値
NodeList

プログラム実行例

Yahoo! JAPANトップページのメニューを取得

IE = CREATEOLEOBJ("InternetExplorer.Application") IE.Visible = TRUE IE.Navigate("http://yahoo.co.jp") BusyWait(IE) DIM element = IE.document.getElementById("ToolList") DIM elements = element.getElementsByTagName("li") FOR element IN elements PRINT element.textContent NEXT IE.Quit ////////////////////////////////////////////////// // 【引数】 // IE : IEオブジェクト // 【戻値】 // ////////////////////////////////////////////////// PROCEDURE BusyWait(IE) TRY SLEEP(0.500) REPEAT SLEEP(0.010) UNTIL !IE.Busy AND IE.readyState = 4 EXCEPT SLEEP(5.000) ENDTRY FEND
<div id="ToolList"> <ul> <li>ショッピング</li> <li>PayPayモール</li> <li>ヤフオク!</li> <li>PayPayフリマ</li> <li>ZOZOTOWN</li> <li>LOHACO</li> <li>トラベル</li> <li>一休.com</li> <li>一休.comレストラン</li> <li>ニュース</li> <li>天気・災害</li> <li>スポーツナビ</li> <li>ファイナンス</li> <li>テレビ</li> <li>映画</li> <li>GYAO!</li> <li>ゲーム</li> <li>Yahoo!モバゲー</li> <li>ebookjapan</li> <li>占い</li> <li>地図</li> <li>路線情報</li> <li>Retty</li> <li>クラシル</li> <li>不動産</li> <li>自動車</li> <li>TRILL <li>パートナー</li> </ul> </div>
結果
ショッピング
PayPayモール
ヤフオク!
PayPayフリマ
ZOZOTOWN
LOHACO
トラベル
一休.com
一休.comレストラン
ニュース
天気・災害
スポーツナビ
ファイナンス
テレビ
映画
GYAO!
ゲーム
Yahoo!モバゲー
ebookjapan
占い
地図
路線情報
Retty
クラシル
不動産
自動車
TRILL
パートナー

楽天PointClubでランクと保有ポイント数を取得する

DIM IE = CREATEOLEOBJ("InternetExplorer.Application") IE.Visible = TRUE IE.Navigate("https://point.rakuten.co.jp/") BusyWait(IE) DIM elements // ログインする elements = IE.document.getElementsByClassName("name") IFB elements.length = 0 THEN IELINK(IE, "ログイン") BusyWait(IE) IESETDATA(IE, READINI("楽天", "ID", "楽天.INI"), "u") // ユーザID IESETDATA(IE, READINI("楽天", "PASS", "楽天.INI"), "p") // パスワード IESETDATA(IE, TRUE, "submit") // ログイン BusyWait(IE) ENDIF // ランク elements = IE.document.getElementsByClassName("rank") elements = elements.Item(0).getElementsByTagName("em") PRINT elements.Item(0).innerText // ポイント elements = IE.document.getElementsByClassName("point-total") elements = elements.Item(0).getElementsByTagName("dd") PRINT elements.Item(0).innerText IE.Quit ////////////////////////////////////////////////// // 【引数】 // IE : IEオブジェクト // 【戻値】 // ////////////////////////////////////////////////// PROCEDURE BusyWait(IE) TRY SLEEP(0.500) REPEAT SLEEP(0.010) UNTIL !IE.Busy AND IE.readyState = 4 EXCEPT SLEEP(5.000) ENDTRY FEND
あなたは ゴールド会員 です
総保有ポイント
559
[楽天] ID=info@example.com PASS=***
結果
ゴールド会員
559

この記事は役に立ちましたか?
役に立った 役に立たなかった