按键精灵循环无限循环改成循环50次

答案:2 悬赏:50

解决时间 2021-12-19 21:46

提问者网友：温柔又任性
2021-12-19 18:45

Dim 点击间隔=250'1秒=1000
Dim 过期时间=20171231155959'过期时间写这里不满月份日期以及时分秒不满2位数的加0
Dim 现在时间=网络时间获取()
Dim X = Array(340,360,600,620,360,50)
Dim Y = Array(280,280,380,380,1220,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

最佳答案

二级知识专家网友：错过的是遗憾
2021-12-19 18:53

Dim 点击间隔=250'1秒=1000
Dim 过期时间=20171231155959'过期时间写这里不满月份日期以及时分秒不满2位数的加0
Dim 现在时间=网络时间获取()
Dim X = Array(340,360,600,620,360,50)
Dim Y = Array(280,280,380,380,1220,100)
If int(现在时间)> int(过期时间) Then
ShowMessage "时间过期请联系作者购买 "
Delay 3000
EndScript
End If
for 50
For i = 0 To UBOUND(X)
TracePrint "准备点击"&X(i)&","&Y(i)
Tap X(i), Y(i)'Tap是点击的意思
Delay 点击间隔
Next
Next
Function 网络时间获取
Dim b
网络时间获取=""
网络时间获取=GetNetworkTime()
b= DateTime.Format("%Y%m%d%H%M%S",b)
网络时间获取 = b
TracePrint b
End Function

全部回答

1楼网友：萝莉姐姐鹿小北
2021-12-19 19:29

搜一下：按键精灵循环无限循环改成循环50次

我要举报

如以上问答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！