只需一步,快速开始
1
4
6
学前班
您需要 登录 才可以下载或查看,没有账号?立即注册
Dim t1 do t1 = Mid(GetNetworkTime(), 12, 8) //5點登入 If t1 = "05:01:00" Then Delay 1000 Call login() End If //礦場打工 If t1 = "10:01:00" Then Delay 1000 Call login() Delay 1000 Call 礦場() Delay 4000 Call 收回() Delay 1000 Call 工會() End If If t1 = "14:01:00" Then Delay 1000 Call login() Delay 1000 Call 礦場() Delay 4000 Call 收回() Delay 1000 Call 工會() End If If t1 = "18:01:00" Then Delay 1000 Call login() Delay 1000 Call 礦場() Delay 4000 Call 收回() Delay 1000 Call 工會() End If If t1 = "22:01:00" Then Delay 1000 Call login() Delay 1000 Call 礦場() Delay 4000 Call 收回() Delay 1000 Call 工會() End If If t1 = "02:01:00" Then Delay 1000 Call login() Delay 1000 Call 礦場() Delay 4000 Call 收回() Delay 1000 Call 工會() End If If t1 = "06:01:00" Then Delay 1000 Call login() Delay 1000 Call 礦場() Delay 4000 Call 收回() Delay 1000 Call 工會() End If loop
举报
1087
2143
4337
院长
紫猫 发表于 2018-4-29 15:31 一秒钟时间很短的,很有可能因为执行获取网络时间命令耗时超过一秒钟导致错过时间,建议用本地时间做判断处 ...
紫猫 发表于 2018-4-29 18:03 加输出分析原因看看吧, 代码上一般就是秒的精准度太高导致的, 其他地方你要输出分析下看看了 ...
5
18
28
Dim 获取系统时间, 指定时间位数格式 Do 获取系统时间 = Plugin.Sys.GetDateTime() 指定时间位数格式 = Mid(获取系统时间, 12, 7) TracePrint 指定时间位数格式 If 指定时间位数格式 = "05:01:0" Then Delay 1000 Call login() End If // // // // Delay 1000 loop
3
kf2004 发表于 2018-5-5 14:46 楼主是不是获取到秒的十位数 [mw_shl_code=qscript,true]Dim 获取系统时间, 指定时间位数格式 Do
0
2
本版积分规则 发表回复 回帖后跳转到最后一页
|Archiver|手机版|小黑屋|紫猫编程学园
GMT+8, 2024-12-23 10:00
Powered by Discuz! X3.5
© 2001-2024 Discuz! Team.