Hi friends,

We can automate Google without using any automation tools.Thanks

Automation without using any Testing Tools. Automating this test with an instance of the
Internet Explorer object.

Option Explicit


Dim objIE, objLink

Set objIE = OpenBrowser("http://google.com")



' View the HTML source on Google's page to see the 'q' and 'btnG' values

objIE.Document.All("q").Value = "Easy way to automate testing"

objIE.Document.All("btnG").Click

WaitForLoad(objIE)



' Find a link to http://motevich.blogspot.com

Set objLink = GetLinkByHref(objIE, "motevich.blogspot.com")



' If found, then click it

If (False = IsNull(objLink)) Then

    objLink.Click

    WaitForLoad(objIE)

End If



' Close IE window

objIE.Quit

WScript.StdOut.Write("Script completed successfully...")





''''''''''''''''''''''''''''''''''''''''''''''

' Functions 



' Opens IE and navigates to specified URL

Private Function OpenBrowser(URL)

    Dim ie


    Set ie = CreateObject("InternetExplorer.Application")



    ie.Visible = True

    ie.Navigate2 URL

    WaitForLoad(ie)

    

    Set OpenBrowser = ie


End Function



' Waits for page fully loaded

Private Sub WaitForLoad(ie)

    Const WAIT_TIMEOUT = 100



    While (ie.Busy) or (ie.ReadyState <> 4) ' READYSTATE_COMPLETE = 4

        WScript.Sleep(WAIT_TIMEOUT)

    Wend

End Sub



' Gets Link by 'href' attribute.

' Note: If your need, you can write another function - GetLinkByText

Private Function GetLinkByHref(ie, href)


    Dim Link


    

    For Each Link In ie.Document.Links

        If Instr(LCase(Link.href), LCase(href)) > 0 Then

            Set GetLinkByHref = Link

            Exit Function


        End If

    Next



    Set GetLinkByHref = Null


End Function