按键精灵随机延迟应该怎么写？

最上面加上：

Randomize

D1=int((6)*Rnd+10)

D2=int((21)*Rnd+30)

.........

delay D1*1000 //随机延时10-15秒

...........

delay D2*1000 //随机延时30-50秒

sleep延时毫秒还不错,不过延时几秒的话,会出现卡的情况,我提供一个自写的函数可以延时,且不卡,仿按键精灵延时的那种

Private Sub WT(delay2 As Single) '延时

On Error Resume Next

Dim tm1 As Single, tm2 As Single

tm1 = Timer

Do

tm2 = Timer

If tm2 <tm1 Then tm2 = tm2 + 86400

If tm2 - tm1 >delay2 Then Exit Do

Sleep 1

DoEvents

Loop

End Sub

延时1-10秒随机数可以这样调用:

wt int(rnd*10+1)

---