如何让按键精灵读取本机时间,也就是说我想设置按键精灵在特定的时间开始自动 *** 作。。。

如何让按键精灵读取本机时间,也就是说我想设置按键精灵在特定的时间开始自动 *** 作。。。,第1张

(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秒执行一段命令等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!

欢迎分享,转载请注明来源:内存溢出

原文地址:https://54852.com/web/9708341.html

(0)
打赏 微信扫一扫微信扫一扫 支付宝扫一扫支付宝扫一扫
上一篇 2023-05-01
下一篇2023-05-01

发表评论

登录后才能评论

评论列表(0条)

    保存