关于定时执行脚本问题

bighead1020

我在使用以下定时执行脚本，但发现没有执行，想请教是不是代码有问题

[按键精灵] 纯文本查看 复制代码

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

紫猫

一秒钟时间很短的，很有可能因为执行获取网络时间命令耗时超过一秒钟导致错过时间，建议用本地时间做判断处理

bighead1020

紫猫 发表于 2018-4-29 15:31
一秒钟时间很短的，很有可能因为执行获取网络时间命令耗时超过一秒钟导致错过时间，建议用本地时间做判断处 ...

感谢紫猫老师的回覆，我试过用Now()語法跟现在的情况都是差不多，只是它有执行一次后,再没有跟设定好的时间再执行了

紫猫

加输出分析原因看看吧, 代码上一般就是秒的精准度太高导致的, 其他地方你要输出分析下看看了

bighead1020

紫猫 发表于 2018-4-29 18:03
加输出分析原因看看吧, 代码上一般就是秒的精准度太高导致的, 其他地方你要输出分析下看看了 ...

感谢紫猫老师,我再試看吧

bighead1020

紫猫 发表于 2018-4-29 18:03
加输出分析原因看看吧, 代码上一般就是秒的精准度太高导致的, 其他地方你要输出分析下看看了 ...

感谢紫猫老师的指导，果然去掉秒，再调整延时值后，代码能够正常运行

kf2004

楼主是不是获取到秒的十位数

[按键精灵] 纯文本查看 复制代码

Dim 获取系统时间, 指定时间位数格式
Do
    获取系统时间 = Plugin.Sys.GetDateTime()    
    指定时间位数格式 = Mid(获取系统时间, 12, 7)
    TracePrint  指定时间位数格式
    If 指定时间位数格式 = "05:01:0" Then
        Delay 1000
        Call login()
    End If
    //
    //
    //
    //
    Delay 1000
loop

学习了

xyysk123

顶顶更健康

bighead1020

kf2004 发表于 2018-5-5 14:46
楼主是不是获取到秒的十位数
[mw_shl_code=qscript,true]Dim 获取系统时间, 指定时间位数格式
Do

我只找時和分,之後再DELAY 59秒後再执行

wxjjjj

1231245345