|
大家看看下面代码,代码是运行在谷歌的主页面,如果大家要试的话,大家同样也可以试试这代码的运行结果。
Dim LinkDes
Set LinkDes=description.Create()
LinkDes("html tag").value="A"
Set LinkObj=browser("Google").Page("Google").ChildObjects(LinkDes)
For i=0 to LinkObj.count
LinkObj(i).click
browser("Google").Back
Next
代码运行完后,你会发现,原来在循环第2次连接点击的时候,抛出了一个“General run error”。这个是为什么会这样?之前也同样有论坛的朋友问到这样的问题,所以今天就在这里提到。
问题是出在了对第一个连接点击后,做了返回操作所导致的,在第一次back的时候,LinkObj对象就已经丢失了,失效了。所以你在做第2次操作的时候,LinkObj(i)就已经找不到了,因此它会出错。
正确的方法,这个也是我目前想到的,或者还有其它达人能做更好的方法出来。
Dim LinkDes
Set LinkDes=description.Create()
LinkDes("html tag").value="A"
Set LinkObj=browser("Google").Page("Google").ChildObjects(LinkDes)
For i=0 to LinkObj.count
Set LinkObj=browser("Google").Page("Google").ChildObjects(LinkDes)
LinkObj(i).click
browser("Google").Back
Next |
|