写一个自定义QTP中的等待

由于QTP中自带的wait函数，使用起来，不那么顺心。。特别是等待新窗体出现的时候。于是写了一个自定义的waittime函数。。

Function waittime(ByRef condition)
   Dim wait_time
   wait_time=0
Do while wait_time<=10000
 If condition.exist=true Then
    Exit do
  
 else
  wait 2
 wait_time=wait_time+1
 
   End If
Loop 
End Function