Open google with sendkey

[zin1994]

Hello,

Below is the code I have been working on to open up google using send keys. Normally I use the waitime function I made below to guess when a page has loaded all the way. However sometimes the web page takes longer to open than other times. Is there any way that I can make the loop I have placed in the code work as a way of waiting until the page is loaded before it starts going down the list of send keys? Any help is appreciated! thanks in advance!

Sub openTest()
    
    file_path = "C:\Program Files (x86)\Mozilla Firefox\firefox.exe"
    
    Call Shell(file_path, vbNormalFocus)
    Do
    Loop Until file_path.readyState = READYSTATE_COMPLETE
   
    Call SendKeys("^e", True)
    Call SendKeys("+{TAB}", True)
    waitTime (2000)
    Call SendKeys("www.google.com", True)
    Call SendKeys("{ENTER}", True)
    
End Sub
    
Function waitTime(ByVal milliSeconds As Double)
    Application.Wait (Now() + milliSeconds / 24 / 60 / 60 / 1000)
End Function

 

[RedBeard]

This might help: http://www.mrexcel.com/forum/excel-questions/82807-waiting-web-page-load.html

 

[zin1994]

Thank you so much for sending to that forum, however I still have a question. Can you help me get the following code to run. I feel like I am very close.

Sub googlesearch()
Set objIE = CreateObject("InternetExplorer.Application")
WebSite = "www.google.com"
With objIE
.Visible = True
.navigate WebSite
Do While .Busy Or .readyState <> 4
DoEvents
Loop

Set Element = .document.getElementsByName("q")
Element.Item(0).Value = "hi"
.document.forms(0).submit

'The  above is what I want to happen first then I want the page to wait until  the page loads all the way then I wan it to execute what is below

Do While .Busy Or .readyState <> 4
DoEvents
Loop

Set Element = .document.getElementsByName("q")
Element.Item(0).Value = "hi again"
.documnet.forms(1).submit
.Quit
End With

End Sub