VBSでリンク一覧を配列に保存する
VBSで下記のような処理をしたいのですがコードをご教授頂いてもよろしいでしょうか？
・ランダムに1～10秒スリープ
・http://www.hatena.ne.jp/ をIEで開き
そこにある全てのリンクのURLを配列に保存します
(連想配列等ではなく、普通のシンプルな配列)
・IEを終了します
・確認のためその配列を表示します
困っておりますのでご教授頂ければ嬉しく思います
※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。
ログインして回答する
ベストアンサー
-
Mook
満足200pt
一応要望の仕様通りにしましたが、
こんな内容でしょうか。Option Explicit '------------------------------ ' ランダムに１～10秒スリープ '------------------------------ WScript.Sleep (Rnd()*10 + 1)* 1000 dim objIE Set objIE = CreateObject("InternetExplorer.Application") '------------------------------ ' IE ではてなを表示 '------------------------------ objIE.Navigate "http://www.hatena.ne.jp/" objIE.Visible = True waiteIE objIE Dim links, link, ar, linkArray Set links = objIE.Document.getElementsByTagName("A") For Each link in Links ar = ar & link.href & vbNewLine Next '------------------------------ ' IE を終了 '------------------------------ objIE.Quit Set objIE = Nothing '------------------------------ ' 内容を表示 '------------------------------ WScript.Echo ar '------------------------------ ' 配列に保存 '------------------------------ linkArray = Split( ar, vbNewLine ) '-------------------------------------------------- Sub waiteIE(objIE) '-------------------------------------------------- Do While objIE.Busy = True Or objIE.readystate <> 4 WScript.Sleep 100 Loop WScript.Sleep 1000 End Sub
-
その他の回答
この質問へのコメント
質問の情報
- 登録日時
- 2012-09-02 14:07:41
- 終了日時
- 2012-09-02 15:39:38
- 回答条件
- 1人5回まで
この質問のカテゴリ
この質問に含まれるキーワード
人気の質問
-
この英文どうなってますか？ The boy seemed to be waiting for his mother to come.（その少年は母親が来…
匿名質問者
1
1
-
不定詞の形容詞的用法らしいんですけど、副詞的用法と書いたら✖️ですか？ I want to buy a book to read …匿名質問者11
-
日向陽葵という○V女優が好きなのですが似ている○V女優はいますか匿名質問者
-
共通テストで使われるプログラミング言語は共通テスト特有の言語と聞いたのですが、受験勉強で身につけたプ…匿名質問者1
-
内定してほしいポケモンはいますか？匿名質問者