51Testing软件测试论坛

标题: 怎么不能选中复选框呢？代码是网上找的我比对了下我的属性也都对的！ [打印本页]

作者: smallflysnake 时间: 2013-11-22 11:58
标题: 怎么不能选中复选框呢？代码是网上找的我比对了下我的属性也都对的！
Dim NumOfChildObjs
Set MyDescription = Description.Create()
      MyDescription("html tag").Value = "INPUT"
      MyDescription("type").Value = "checkbox"
Set Checkboxes =Browser("title:=a").Page("title:=b").ChildObjects(MyDescription )
      NumOfChildObjs = Checkboxes.Count
For Counter=0 to NumOfChildObjs-1
      Checkboxes(Counter).Set "ON"
      next

作者: smallflysnake 时间: 2013-11-22 13:37
自己顶起！

作者: smallflysnake 时间: 2013-11-22 13:37
求各位大大帮忙解答下。

作者: smallflysnake 时间: 2013-11-22 17:17
怎么没有人关注呢？

作者: smallflysnake 时间: 2013-11-22 20:33

作者: msnshow 时间: 2013-11-22 21:59
关注，但不太清楚哈

作者: 让测试飞起来 时间: 2013-11-23 16:16
你是想怎么样呢？

作者: 让测试飞起来 时间: 2013-11-23 16:30

Set MyDescription = Description.Create()
MyDescription("html tag").Value = "input"
MyDescription("name").Value = "chk_list"
Set Checkboxes =Browser("Ejbuy - Easy Just Buy").Page("Shopping Cart").ChildObjects(MyDescription )
NumOfChildObjs = Checkboxes.Count
msgbox NumOfChildObjs
For Counter=0 to NumOfChildObjs-1
Checkboxes(Counter).Set "ON"
next

复制代码

录制的是
www.ejbuy.com里购物车里的，你添加几个商品就可以测试了！

作者: smallflysnake 时间: 2013-11-27 17:18
回复完了，谢谢

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