Facebook

Course Name Start Date Time Duration Registration Link
No Training Programs Scheduled ClickHere to Contact
Please mail To sudhakar@qtpsudhakar.com to Register for any training

Tuesday, February 24, 2009

How to click on all Google Search Links in all Pages

browser("micclass:=Browser").page("micclass:=Page").webedit("name:=q").Set "amit"
browser("micclass:=Browser").page("micclass:=Page").webbutton("name:=Google Search").Click

NextExist=true

do until  NextExist=false

browser("micclass:=Browser").Sync

Set oDesc=Description.Create
oDesc("micclass").value="Link"
set lnkList=browser("micclass:=Browser").page("micclass:=Page").childobjects(oDesc)

Set oDictionary=createobject("scripting.dictionary")
For i=0 to lnkList.count-1
    oDictionary.add i,lnkList(i).getROproperty("name")
Next

   LnkProperties = oDictionary.Items
   
For i = 0 To oDictionary.Count -1
    
    If i=oDictionary.count-1 then
        Exit for
    End if
    
    If LnkProperties(i+1)="Cached" Then
        browser("micclass:=Browser").page("micclass:=Page").Link("name:="&LnkProperties(i)).click
        browser("micclass:=Browser").Back
        browser("micclass:=Browser").Sync
    End If
Next
NextExist=browser("micclass:=Browser").page("micclass:=Page").Link("name:=Next").Exist(1)
If NextExist Then
    browser("micclass:=Browser").page("micclass:=Page").Link("name:=Next").Click
End If
Loop

No comments :

Post a Comment