测试前预处理

Option Explicit
Dim loginwin,child,i
Set loginwin=descrīption.Create()
loginwin("application version").value="internet explorer 6"   '所有页面的application version属性值都是internet explorer 6，也可以用其他属性
Set child=desktop.ChildObjects(loginwin)
msgbox child.count
For i=1 to child.count
        child(i-1).close
Next