51Testing软件测试论坛

标题: QTP中的Webelement对象输入问题 [打印本页]

作者: jialingling7777 时间: 2016-11-3 11:19
标题: QTP中的Webelement对象输入问题
本帖最后由 jialingling7777 于 2016-11-3 11:26 编辑

file:///C:/Users/A/Desktop/性别.png

怎么任意选择一个性别啊？？？
整体是webelement属性，每种性别前的单选按钮是image属性，怎么做到随机选择一个性别并点击选中啊
Browser("问学学校管理平台").Page("问学学校管理平台_2").Image("check-unselect.png.pagespeed.c").Click '这个是录制时候的代码，但是不满足随机选择的效果

作者: 梦想家 时间: 2016-11-3 15:37
折哦一个qtp群问一下吧那样比较快这个的话网友们不是随时都能收到消息

作者: jialingling7777 时间: 2016-11-3 15:42

梦想家发表于 2016-11-3 15:37
折哦一个qtp群问一下吧那样比较快这个的话网友们不是随时都能收到消息

什么群，给个啊

作者: 梦想家 时间: 2016-11-3 16:15
62358366
45348763
191711214
42020430
224032440

作者: jingzizx 时间: 2016-11-4 13:45
自己把这三个点击都录制下来，之后写个代码，随机选择一个点击

作者: jialingling7777 时间: 2016-11-4 14:54

jingzizx 发表于 2016-11-4 13:45
自己把这三个点击都录制下来，之后写个代码，随机选择一个点击

Dim NumberOfsexwebelement
Dim crand
Dim objnum
Set oDesc = Description.Create()
oDesc("micClass").Value = "Image"
oDesc("html tag").Value="IMG"
oDesc("src").Value = "http://wenxue.test.xweisoft.com/scms/resources/images/check-*"
oDesc("src").RegularExpression = True
set objnum=Browser("问学学校管理平台").Page("问学学校管理平台_2").ChildObjects(oDesc)
NumberOfsexwebelement =oDesc.Count
'msgbox NumberOfsexwebelement '调试用
crand=randomnumber(1,cint(NumberOfsexwebelement))
'msgbox crand '调试用
objnum(crand).Click

最后一行代码怎么都过不去报：general run error

求大神指导啊

作者: 萧小先生 时间: 2016-11-5 15:18

作者: 慧yl@=@ 时间: 2016-11-8 10:38
修改一下对象的属性或者设置序号标识，试一下，我之前选择列表中的某一行数据，就是这样设置的！

作者: jialingling7777 时间: 2016-11-9 15:19

慧yl@=@ 发表于 2016-11-8 10:38
修改一下对象的属性或者设置序号标识，试一下，我之前选择列表中的某一行数据，就是这样设置的！

Dim NumberOfsexwebelement
Dim counter1
Dim objnum
Set oDesc = Description.Create()
oDesc("micClass").Value = "Image"
oDesc("html tag").Value="IMG"
'oDesc("src").Value = "http://wenxue.test.xweisoft.com/scms/resources/images/check*"
'oDesc("src").RegularExpression = True
oDesc("image type").value="Plain Image"
set objnum=Browser("问学学校管理平台").Page("问学学校管理平台_2").WebElement("男          女          未知").ChildObjects(oDesc)
NumberOfsexwebelement =oDesc.Count
msgbox NumberOfsexwebelement    '调试用  找到这个类的属性个数是3
counter1=randomnumber(3,NumberOfsexwebelement)
msgbox counter1
objnum(counter1).Click

按你的说的该了，能运行部报错但是有个奇怪的问题就是随机参数硬设定为3，但是怎么都选不到对应的“未知”性别

作者: 慧yl@=@ 时间: 2016-11-10 18:13

jialingling7777 发表于 2016-11-9 15:19
Dim NumberOfsexwebelement
Dim counter1
Dim objnum

看你这个图里的“未知”性别序号应该是2

作者: jialingling7777 时间: 2016-11-11 10:08

慧yl@=@ 发表于 2016-11-10 18:13
看你这个图里的“未知”性别序号应该是2

随机参数硬设定为2，还是选不到“未知”性别

欢迎光临 51Testing软件测试论坛 (http://bbs.51testing.com/)