11/11/05 20:30:27.29 EO7xnB5P0
use_ie
Sub use_ie()
Set ie = CreateObject("InternetExplorer.Application")
for bakaonnna = 0 To 10000
for ahoonnna = 0 To 10000
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
next
next
' 制御を破棄
ie.Quit
Set ie = Nothing
End Sub
' IEがビジー状態の間待ちます
Sub waitIE(ie)
Do While ie.Busy = True Or ie.readystate <> 4
WScript.Sleep 100
Loop
WScript.Sleep 1000
End Sub