VBSでリンク一覧を配列に保存する

VBSで下記のような処理をしたいのですがコードをご教授頂いてもよろしいでしょうか?
・ランダムに1~10秒スリープ
http://www.hatena.ne.jp/ をIEで開き
そこにある全てのリンクのURLを配列に保存します
(連想配列等ではなく、普通のシンプルな配列)
・IEを終了します
・確認のためその配列を表示します

困っておりますのでご教授頂ければ嬉しく思います

回答の条件
  • 1人5回まで
  • 13歳以上
  • 登録:2012/09/02 14:07:41
  • 終了:2012/09/02 15:39:38

ベストアンサー

id:Mook No.1

Mook回答回数1312ベストアンサー獲得回数3912012/09/02 15:13:56

ポイント200pt

一応要望の仕様通りにしましたが、
こんな内容でしょうか。

Option Explicit

'------------------------------
'  ランダムに1~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
id:ty2016

この度は回答して頂きありがとうございます。
丁寧に書いて頂きわかりやすかったです。

2012/09/02 15:40:29

コメントはまだありません

この質問への反応(ブックマークコメント)

「あの人に答えてほしい」「この質問はあの人が答えられそう」というときに、回答リクエストを送ってみてましょう。

これ以上回答リクエストを送信することはできません。制限について

絞り込み :
はてなココの「ともだち」を表示します。
回答リクエストを送信したユーザーはいません