• 新浪微博:
  • 微信 :
按键精灵电脑版
立即下载

软件版本:2014.05
软件大小:21.6M
更新时间:07-04

按键精灵安卓版
立即下载

软件版本:3.3.5
软件大小:62.5M
更新时间:9-25

按键精灵iOS版
立即下载

软件版本:1.3.5
软件大小:29.2M
更新时间:06-14

最新企业版UiBot
立即下载

软件版本:3.3
软件大小:282M
更新时间:08-06

快捷导航

登录 后使用快捷导航
没有帐号? 注册

登录 注册
发新话题 回复该主题

[源码] 时间控制 [复制链接]

1#
这是一个时间控制器,在开始运行脚本后,按自定义时间开始运行哪个子程序,比如到时间1买药,时间2修理。。。。Dim sTime(4),maxTime(4)
Dim i
Dim s1, s2, s3
Event Form1.InputBox1.Change
s1 = int(Form1.InputBox1.txt)
s1=s1*3600-1
End Event
Event Form1.Load
s2 = int(Form1.InputBox2.txt)
s2=s2*3600-1
End Event
Event Form1.InputBox3.Change
s3 = int(Form1.InputBox3.txt)
s3=s3*3600-1
End Event

maxTime(0)=1
maxTime(1)=s1
maxTime(2)=s2
maxTime(3)=s3
i=0
while i<4
sTime(i)=Now
i=i+1
wend

2#

定下把,故意发主题嫌疑

发新话题 回复该主题