Question

我有一段按键精灵的代码想修改一下！

Dim 点击间隔=200'1秒=1000
Dim 过期时间=20190331155959'过期时间写这里 不满月份日期 以及时分秒 不满2位数的加0
Dim 现在时间=网络时间获取()
Dim X = Array(10,9,600,620,50)
Dim Y = Array(280,280,390,390,100)
Dim 点击间隔=200'1秒=1000
Dim 过期时间=20190331155959'过期时间写这里 不满月份日期 以及时分秒 不满2位数的加0
Dim 现在时间=网络时间获取()
Dim X = Array(10,9,600,620,50)
Dim Y = Array(280,280,390,390,100)
If int(现在时间)> int(过期时间) Then
ShowMessage "时间过期 "
Delay 3000 EndScript
End If
Do
For i = 0 To UBOUND(X)
TracePrint "准备点击"&X(i)&","&Y(i)
Tap X(i), Y(i)'Tap是点击的意思
Delay 点击间隔
Next
Loop
Function 网络时间获取
Dim b
网络时间获取=""
网络时间获取=GetNetworkTime()
b= DateTime.Format("%Y%m%d%H%M%S",b)
网络时间获取 = b
TracePrint b
End Function
以上的代码为均匀时间点击各个坐标点位，我想请高手修改一下，我想在最后两个点位调整点击间隔时间缩短为150毫秒，请问怎么修改合适？先谢过了！

Answer 1

给时间间隔加个判断就好了，参考以下代码，把以下代码替换掉Delay 点击间隔

        If i > UBOUND(X) - 2 Then 
            Delay 150
        Else 
            Delay 点击间隔
        End If

追问

谢谢您的回复，对于这个代码的问题，我还是一个菜鸟，如果可以的话，帮我写一下完整的给我，可以吗？谢谢！！

追答

字面意思，复制我的代码，把原代码中的点击间隔删除替换掉。

网友采纳后网页版已经不能追答了。