|
学习ing,下面的语句是什么意思啊?
10. Close all type of flight windows scrip:
Option explicit
Dim loginwin,mainwin,child,i,openorder
'1查找应景打开的login窗口,然后关闭
Set loginwin=description.Create()
loginwin("regexpwndtitle").value="Login"
Set child=desktop.ChildObjects(loginwin)
For i=1 to child.count
child(i-1).close
Next
Set child=Desktop.ChildObjects(loginwin)
'2查找应景打开的open order,然后关闭
Set openorder=description.Create()
openorder("regexpwndtitle").value="open order"
Set child=desktop.ChildObjects(openorder)
For i=1 to child.count
child(i-1).close
Next
'3查找已经打开的主窗口,然后关闭
Set mainwin=description.Create()
mainwin("regexpwndtitle").value="Flight Reservation"
Set child=desktop.ChildObjects(mainwin)
For i=1 to child.count
child(i-1).close
Next |
|