gstone

¬O³o¼Ë¶Ü?
google·j´M¬°¨Ò :

Sub test()
Dim objIE As Object
Dim url As String
Set objIE = CreateObject("InternetExplorer.Application")
url = "http://www.google.com.tw/webhp?hl=zh-TW"   'ºô§}
objIE.Visible = True
objIE.Navigate url
  
Do While objIE.Busy = True   '«Ýºô­¶¸ü¤J§¹¦¨
    DoEvents
Loop

objIE.Document.all("q").Value = "test"   '±ý¿é¤J¤å¦r¤è¶ôªº­È¡C
objIE.Document.all("btnG").Click   '½T»{Áä
End Sub