求一段手机按键精灵定时执行的代码

发布网友

我来回答

3个回答

热心网友

你想一天到黑都开着脚本?好吧。

Dim hour

Do
    hour = DateTime.Format ("%H")
    If hour = 8 Then 
        '………………
        Delay 9 * 36000000
    ElseIf hour = 19 Then
        '………………
        Delay 9 * 36000000
    End If
    Delay 5 * 1000'请自行调整
Loop

追问谢谢大神的回答,比如8点50分执行呢,我试过了,不行呀
Dim intX
Dim intY
Dim hour
Do
hour = DateTime.Format ("%H")
If hour = 13 Then
RunApp "xxx.app.nk"
Delay 10000
Call 登陆成功()
Delay 3600000
到时间根本就不执行下一步啊

热心网友

Dim i,j
function 定时器(时,分)
Do
i = DateTime.Hour()
j=DateTime.Minute ()
If i = 时 and j=分 Then
Exit Do
End If
delay 1000 //减小设备压力,可不要或增大
Loop
End Function

给用于特定时间启动的脚本

热心网友

看看帮助文档里面的时间函数.我也不太记得了

声明声明:本网页内容为用户发布,旨在传播知识,不代表本网认同其观点,若有侵权等问题请及时与本网联系,我们将在第一时间删除处理。E-MAIL:11247931@qq.com