Sub Wait() Do While ie.Busy = True WScript.Sleep 100 Loop Do while ie.ReadyState <> 4 WScript.Sleep 100 Loop End Sub Set ie = CreateObject("InternetExplorer.Application") ie.Width = 800 ie.Height = 600 ie.Visible=true ie.Navigate "http://www.google.co.jp"; Wait Set form = ie.document.forms("f") form.q.value = "自動売買" form.Submit ----------------------------------------------------------------
(Jun 18, 2007 03:19:56 AM)