|
1.Random Select Weblist items
Browser("Create New").Page("Create New").WebList("TypeActual").Select RandomNumber(1, 60)
1.1 Select Weblist item from 0 to last one
For i=0 to 59
Browser("Create New").Page("Create New").WebList("TypeActual").Select RandomNumber(i, i)
Next
2.Random Click"WebRadioGroup"
Browser("Search").Page("Select").Frame("listDisplay").WebRadioGroup("emxTableRowId").Select "#"&RandomNumber(0, 11)
3. Random Set ''WebCheckBox"
Dim AARowCount
Dim CC,AA
AARowCount=Browser().Page().Frame().WebTable().RowCount
Rem msgbox AARowCount
CC=RandomNumber(0, AARowCount)
Set AA=Browser().Page().Frame().WebTable().Childitem(CC,1,'WebCheckBox',0)
AA.Set "ON" |
|