11/11/05 20:01:39.41 uBBUdhpg0
>>545
おねえたまへ
これをコピペしてメモ帳に.vbsをつけて保存してね
保存したらクリックすると検索したいものがグーグルで１回検索されるよ
ループで繰り返したかったら検索の部分をループ処理してね
use_ie
Sub use_ie()
Set ie = CreateObject("InternetExplorer.Application")’ＩＥ起動
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
End Sub
' IEがビジー状態の間待ちます
Sub waitIE(ie)
Do While ie.Busy = True Or ie.readystate <> 4
WScript.Sleep 100
Loop
WScript.Sleep 1000
End Sub