
(1)h=Hour(time):m=Minute(time):s=Second(time) 是获取系统时间 (2) 设定时间=时间(1)3600+时间(2)60 现在时间=h3600+m60+s 把时间都换算成秒 (3) 时差=设定时间-现在时间 If 时差<-100 Then 时差=时差+86400 End If 这个意思是判读 定时的时间是今天还是明天的时间 (4) If 时差<60 and 时差>-60 Then 判断时间到了没有,否者就循环到读系统时间
Dim t,t1,ws,ws1,wh,wm,i
While i=0
t = GetNetworkTime()
t1 = Split(t, " ")
ws = t1(1)
ws1 = Split(ws, ":")
wh = ws1(0)
wm = ws1(1)
If wh = 你需要的小时数 and wm=你需要的分钟数 Then
// 这里执行你的动作
Else if wh = 你需要的第二小时数 and wm=你需要的第二分钟数 then
// 这里写你的第二个动作
// 执行完后 让i=1
End If
wend
t1 = PluginGetSysInfoGetTime
Do
t2 = PluginGetSysInfoGetTime
If t2 - t1 >= 70000 Then //间隔大于等于70秒
//执行一段命令
Exit Do
End If
Loop
1
时=
Hour(Now)
2
分=
Minute(Now)
3
秒
=
Second(Now)
4
MessageBox
时&"时"&分&"分"&秒&"秒"
5
分=
Minute(Now)+1
6
MessageBox
时&"时"&分&"分"&秒&"秒"
很好奇为什么要延时一分钟,直接获取你要执行时的时间马上执行不就好了?
循环
延时1000毫秒
获取时间
判断 时间
执行
····
Call RunApp("notepadexe")
Delay 1500
//0表示忽略
//下面这句是查找窗口类名("Notepad")或者标题(0),返回找到的句柄Hwnd
Hwnd = PluginWindowFind("Notepad", 0)
//改变窗口标题
Rem aaa
time=now
Call PluginWindowSetText(Hwnd, time)
Delay 100
Goto aaa
试试看,这个脚本新建个记事本,然后就是你说的那个功能了。
以上就是关于如何让按键精灵读取本机时间,也就是说我想设置按键精灵在特定的时间开始自动 *** 作。。。全部的内容,包括:如何让按键精灵读取本机时间,也就是说我想设置按键精灵在特定的时间开始自动 *** 作。。。、手机版按键精灵如何获取时间并根据时间运行命令、按键精灵中怎么设置获取系统时间 然后根据当前时间一直间隔70秒执行一段命令等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
微信扫一扫
支付宝扫一扫
评论列表(0条)