- 积分
- 19
- 阅读权限
- 10
- 鲜花
- 0
- 猫粮
- 18
- 在线时间
- 15 小时
- 精华
- 0
- 注册时间
- 2025-2-23
- 性别
- 保密
- 最后登录
- 2025-3-18
学前班
- 鲜花
- 0
- 猫粮
- 18
|
发表于 2025-3-18 16:56:36
|
显示全部楼层
TracePrint 网络时间2
Call 计算时间差()
这里写 执行某个动作, 这一整个是循环哈
网络时间1 = GetNetworkTime() '执行完了之后记录时间
TracePrint 网络时间1
Sub 计算时间差()
If 网络时间1 = null Then
Exit Sub
End If
Do
Dim 差
Dim 更新时间
Delay 2000
If zm.TimeDiff(网络时间2, 网络时间1) >= 时间间隔 Then
网络时间1 = 网络时间2
TracePrint "时间到了"
Exit Do
Else
差 = 时间间隔 - zm.TimeDiff(网络时间2, 网络时间1)
TracePrint "距离上一个招呼时间还没超过设定间隔"
zm.ShowMessage {"等待"&CInt(差)}, 1 * 200, 0, 1280
End If
更新时间 = GetNetworkTime()
If 更新时间 = null Then
Do
Delay 2000
zm.ShowMessage {"网络链接出现问题, 请手动停止脚本检查网络后重新开始,剩余招呼量为:"&招呼数量}, 1 * 200, 0, 1280
Loop
End If
网络时间2 = 更新时间
Loop
zm.ShowMessage {"完毕"}, 1 * 200, 0, 1280
End Sub
如果距离设定的时间没到会等待, ,到时间才会继续下一步
我这个是还有个界面参数
你可以照葫芦画 |
|