查天气vbs

vbs
查天气
’ 调用ie，并打开百度
set ie = WScript.CreateObject(“InternetExplorer.Application”)
With ie
.Navigate “http://www.baidu.com/”
.Visible = True
End With
’ 等页面载入完整再进行下一步
Do
Wscript.Sleep 2000
Loop Until ie.readyState = 4 ’ 查询天气
Set kw = ie.Document.getElementById(“kw”)
Set su = ie.Document.getElementById(“su”)
kw.value = “天气”
su.click