smallflysnake 发表于 2013-11-22 11:58:28

怎么不能选中复选框呢？代码是网上找的我比对了下我的属性也都对的！

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

自己顶起！

smallflysnake 发表于 2013-11-22 13:37:59

求各位大大帮忙解答下。

smallflysnake 发表于 2013-11-22 17:17:02

怎么没有人关注呢？

smallflysnake 发表于 2013-11-22 17:17:17

怎么没有人关注呢？

smallflysnake 发表于 2013-11-22 20:33:35

:)

msnshow 发表于 2013-11-22 21:59:56

关注，但不太清楚哈

让测试飞起来 发表于 2013-11-23 16:16:57

你是想怎么样呢？

让测试飞起来 发表于 2013-11-23 16:30:00



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
               msgboxNumOfChildObjs
    For Counter=0 to NumOfChildObjs-1
      Checkboxes(Counter).Set "ON"

next


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

smallflysnake 发表于 2013-11-27 17:18:16

回复完了，谢谢
页: [1]
查看完整版本: 怎么不能选中复选框呢？代码是网上找的我比对了下我的属性也都对的！