QTP中的Webelement对象输入问题

jialingling7777 · 发表于 2016-11-3 11:19:59

本帖最后由 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:14

折哦一个qtp群问一下吧那样比较快这个的话网友们不是随时都能收到消息

jialingling7777 · 发表于 2016-11-3 15:42:10

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

什么群，给个啊

梦想家 · 发表于 2016-11-3 16:15:46

62358366
45348763
191711214
42020430
224032440

jingzizx · 发表于 2016-11-4 13:45:53

自己把这三个点击都录制下来，之后写个代码，随机选择一个点击

jialingling7777 · 发表于 2016-11-4 14:54:49

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:51

慧yl@=@ · 发表于 2016-11-8 10:38:14

修改一下对象的属性或者设置序号标识，试一下，我之前选择列表中的某一行数据，就是这样设置的！

jialingling7777 · 发表于 2016-11-9 15:19:29

慧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:29

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

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

jialingling7777 · 发表于 2016-11-11 10:08:11

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

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

		自动登录	找回密码
密码			(注-册)加入51Testing

[原创] QTP中的Webelement对象输入问题

本帖子中包含更多资源

站长推荐 /1