All,
I am trying to automate the suggestion list for a webedit box. I basically
want to scroll down and select a value. I have the below code, however, it
is not working.Can anyone please help.
BrowserPage.WebEdit("type:=text", "name:=string_A11.*", "html
tag:=INPUT").Set objDriverSheet.Cells(r, d.Item(Trim("Insurer Short
name_Value")))
Set ListElmt = Description.Create()
ListElmt("micclass").value = "WebElement"
ListElmt("class").value = "search-item"
ListElmt("html tag").value = "DIV"
BrowserPage.WebEdit("type:=text", "name:=string_A11.*", "html
tag:=INPUT").FireEvent "onkeyUP"
wait 10
BrowserPage.WebElement("class:=search-item", "micclass:=WebElement",
"index:=11").FireEvent "onmousedown"
BrowserPage.WebElement("class:=search-item", "micclass:=WebElement",
"index:=11").FireEvent "onclick"
I have also tried with x,Y coordinates but it doesn't work
xval = Window("Windows Internet Explorer").WinObject("Internet
Explorer_Server").GetroProperty("x")
yval = Window("Windows Internet Explorer").WinObject("Internet
Explorer_Server").GetroProperty("y")
Window("Windows Internet Explorer").WinObject("Internet
Explorer_Server").Click xval,yval
Thanks,
surabhi
--
--
You received this message because you are subscribed to the Google
"QTP - HP Quick Test Professional - Automated Software Testing"
group.
To post to this group, send email to [email protected]
To unsubscribe from this group, send email to
[email protected]
For more options, visit this group at
http://groups.google.com/group/MercuryQTP?hl=en
---
You received this message because you are subscribed to the Google Groups "QTP
- HP Quick Test Professional - Automated Software Testing" group.
To unsubscribe from this group and stop receiving emails from it, send an email
to [email protected].
For more options, visit https://groups.google.com/groups/opt_out.
