如何多个定时？现在是一个定时，想设置多个定时【按键精灵吧】

按键精灵吧关注：499,640贴子：1,012,362

10回复贴，共1页

如何多个定时？现在是一个定时，想设置多个定时

'-------------------【定时】--------------------------
If Form1.ComboBox1.ListIndex = 0 Then
If Form1.InputBox1.Text <> "" and Form1.InputBox2.Text <> "" and Form1.InputBox3.Text <> "" Then
Do
系统时间=now
时=hour(系统时间)
分 = Minute(系统时间)
秒 = second(系统时间)
If 时 + 0 = Form1.InputBox1.Text + 0 and 分 + 0 = Form1.InputBox2.Text + 0 and 秒 + 0 = Form1.InputBox3.Text + 0 Then
Form1.Label5.Caption = "运行中"
Exit Do
Else
TracePrint 时 & ":" & 分 & ":" & 秒
Form1.Label5.Caption = 时 & ":" & 分 & ":" & 秒
End If
Delay 300
Loop
End If
End If
'-----------------------------------【定时】--------------------------

送TA礼物

IP属地:广东

1楼2023-07-09 17:19回复

有没有大佬指导一下，现在是一个定时。想加多几个定时的，要如何写？

IP属地:广东

2楼2023-07-09 17:21

海口濮琳网络科技有限公司

超好用、零差评的鼠标连点器，满足玩游戏、网购抢购、日常办公等多元场景，将重复的键盘鼠标点击操作设置成宏脚本后自动执行，解放您的双手，省时又省力!

2024-12-18 00:26广告

立即查看

就如上图，多个定时。第一个定时到点后，执行第二个的，同时防止执行第一个，以此类推。

IP属地:广东

3楼2023-07-09 17:44

IP属地:广东

4楼2023-07-09 17:49

明明6行代码就搞定的事情，弄得这么复杂

IP属地:重庆

来自Android客户端5楼2023-07-10 17:31

收起回复

按键的delay有时间误差，特别是在对时间要求很精准的情况下就很c蛋。三四个小时能误差十多秒。只能给它打个补丁，隔一段时间就矫正一下秒数。

IP属地:江苏

来自Android客户端6楼2023-07-11 17:23

收起回复

设定时间= Form1.InputBox1.Text
Do
时间拆分 = split(设定时间, "/")
For i = 0 To UBound(时间拆分)
细节拆分=split(时间拆分(i),"-")
If 细节拆分(0) / 1 = hour(now) Then
If 细节拆分(1) / 1 = Minute(now) Then
If 细节拆分(2) / 1 = Second(now) Then
TracePrint "时间到了，现在执行的时间是：" & 时间拆分(i)
Select Case i
Case 0
任务1
Case 1
任务2
Case 2
任务3
End Select
End If
End If
End If
Next
Delay 100
Loop
Function 任务1
TracePrint "我是任务1"
Delay 2000
End Function
Function 任务2
TracePrint "我是任务2"
Delay 2000
End Function
Function 任务3
TracePrint "我是任务3"
Delay 2000
End Function

IP属地:云南

7楼2023-07-13 02:00

扫二维码下载贴吧客户端

下载贴吧APP
看高清直播、视频！

贴吧热议榜

10回复贴，共1页

<返回按键精灵吧

发表回复

发贴请遵守贴吧协议及“七条底线”贴吧投诉

内容:

使用签名档查看全部

发表

保存至快速回贴

日	一	二	三	四	五	六

如何多个定时？现在是一个定时，想设置多个定时

登录百度账号

扫二维码下载贴吧客户端