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