(原)使用随机函数代替同步点

今天看了个博文，为了解决wait函数的固定时间等待问题，使用了QTP同步点，感觉蛮不错的，后来换了下思路，使用了随机函数来代替这个同步点，也是能使用的。使用了csdn测试了下。

Browser("CSDN 社区中心").Page("CSDN 社区中心").Frame("Frame").Image("blank").Click
Call  checkexsit()

Sub checkexsit()

'-----------如果找不到就wait 随机数,一直到找到为止，才退出这个检测控件是否加载完毕的sub,接着执行后来的语句

On error resume next ' 必须要用这个，不然找不到这个层就直接报错了
If   not Browser("CSDN 社区中心").Page("CSDN 社区中心").Frame("Frame").Exist Then
 Call Randomwait()
  checkexsit()
 else
  Exit sub
 end if
End Sub

sub Randomwait()
dim   rndnum
rndnum = Get_RandNum(1,8)
'msgbox rndnum
wait rndnum
End Sub

Public Function Get_RandNum(fromNum,toNum)
 If (fromNum<0) Or (toNum<0) Then
  MsgBox "aa"
 ElseIf fromNum>toNum then
  MsgBox "bb"
 Else
  Dim RunTime
  Randomize  
  RunTime = Int((10 * Rnd) + 1)
  Dim MyValue,i
  For i = 1 To RunTime
   Randomize 
   MyValue = Int(((toNum - fromNum + 1) * Rnd) + (fromNum))
  Next
    Get_randNum=MyValue
   End If
End Function