11/11/05 20:40:34.28 uBBUdhpg0
>>598 自分はこっちでループした
use_ie
Sub use_ie()
i = 1
Do
Set ie = CreateObject("InternetExplorer.Application") 'IE起動
ie.Navigate "URLﾘﾝｸ(www.google.co.jp)" 'グーグル以外の検索エンジンが良かったらここにアドレス入れてね
ie.Visible = True
waitIE ie
ie.Document.getElementById("q").Value = "ここに検索ワードを入れてね！" '検索したい言葉はここに入れるんだよ
WScript.Sleep 100
ie.Document.all("btnG").Click '検索ボタンを押す処理だよ
waitIE ie
ie.Quit '制御破棄だよ
Set ie = Nothing
i = i + 1
If i > 10 Then Exit Do 'ここで10と指定しているのは10回同じ処理するからね、好きな回数に変えてね
Loop
End Sub
' IEがビジー状態の間待ちます
Sub waitIE(ie)
Do While ie.Busy = True Or ie.readystate <> 4
WScript.Sleep 100
Loop
WScript.Sleep 1000
End Sub