-
Found out how to circumvent Instant On/Off changing the name of the form to submit: Don't use the name, it's a child of the "q" element, so the following works regardless of Instant On/Off:[VBA]Sub Auto2()
Dim ie As InternetExplorer
Set ie = New InternetExplorer
ie.Visible = True
ie.Navigate "www.Google.co.uk"
Do Until ie.ReadyState = READYSTATE_COMPLETE: DoEvents: Loop
Do: DoEvents: Loop Until Not ie.Busy
Set theform = ie.Document.getElementByid("q")
theform.Value = "Chacanger"
theform.form.submit
Do Until ie.ReadyState = READYSTATE_COMPLETE: DoEvents: Loop
Do: DoEvents: Loop Until Not ie.Busy
Set theform = ie.Document.getElementByid("q")
theform.Value = "something"
theform.form.submit
Do Until ie.ReadyState = READYSTATE_COMPLETE: DoEvents: Loop
Do: DoEvents: Loop Until Not ie.Busy
Set theform = ie.Document.getElementByid("q")
theform.Value = "automate"
theform.form.submit
Do Until ie.ReadyState = READYSTATE_COMPLETE: DoEvents: Loop
Do: DoEvents: Loop Until Not ie.Busy
Set theform = ie.Document.getElementByid("q")
theform.Value = "can't think"
theform.form.submit
Do Until ie.ReadyState = READYSTATE_COMPLETE: DoEvents: Loop
Do: DoEvents: Loop Until Not ie.Busy
Stop
ie.Quit
Set ie = Nothing
End Sub[/VBA]
p45cal
Everyone: If I've helped and you can't be bothered to acknowledge it, I can't be bothered to look at further posts from you.
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules