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

smallflysnake

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

自己顶起！

smallflysnake

求各位大大帮忙解答下。

smallflysnake

怎么没有人关注呢？

smallflysnake

怎么没有人关注呢？

smallflysnake

msnshow

关注，但不太清楚哈

让测试飞起来

你是想怎么样呢？

让测试飞起来

1. 
   
2. 
   
3. Set MyDescription = Description.Create()
   
4.         MyDescription("html tag").Value = "input"
   
5.         MyDescription("name").Value = "chk_list"
   
6.    Set Checkboxes =Browser("Ejbuy - Easy Just Buy").Page("Shopping Cart").ChildObjects(MyDescription )
   
7.          NumOfChildObjs = Checkboxes.Count
   
8.                  msgbox  NumOfChildObjs
   
9.     For Counter=0 to NumOfChildObjs-1
   
10.         Checkboxes(Counter).Set "ON"
    
11. 
    
12. next
    

复制代码

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

smallflysnake

回复完了，谢谢