Please suggest Improvements.
The page has Div tags and inside span and list tags.
I have about 200 small objects to be recognized to see the answers to 200
questions.
Here is the script.
Dim objWebelement,objOptions,ObjText,Answer,vOptions,WshShell
Systemutil.run"Firefox.exe","Link here"
Set objWebelement=description.Create()
objWebelement("micclass").Value="WebElement"
Set objButton=description.Create()
objButton("micclass").value="WebElement"
objButton("html tag").value="LI"
objButton("height").value="27"
Set objText=description.Create()
ObjText("micclass").Value="WebElement"
ObjText("Class").Value="explanation"
ObjText("html tag").Value="DIV"
For i = 1 To 200 Step 1
objButton("innertext").value=i
Browser(" ").Page("").WebElement(objButton).Click
objText("innertext").Value=i&".*"
Answer=Browser("").Page(" ").WebElement(ObjText).GetROProperty("innertext")
Print Answer
Next
Set objText=Nothing
Set objButton=Nothing
Set WshShell=Nothing
Set objWebelement=Nothing
Thanks in advance.
--
--
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/d/optout.
