简单就能实现的定时功能-【201603期】 _ 学院院刊 - 按键精灵论坛
软件版本：2014.05软件大小：21.6M更新时间：07-04
软件版本：3.3.0软件大小：62.5M更新时间：5-24
软件版本：1.3.3软件大小：29.2M更新时间：06-14
软件版本：1.1.0软件大小：12.3M更新时间：12-29
查看: 22746|回复: 719
[按键精灵安卓版]
双十一绝版纪念勋章双十一绝版纪念勋章抗战胜利70周年勋章抗战胜利70周年活动的专属勋章单身汪勋章单身贵族的专属勋章体验先锋勋章新版本体验先锋纪念勋章（360天）元旦勋章（30天）按键精灵元旦活动纪念勋章按键精灵开发者6级可通过提升认证等级来升级勋章：rz.anjian.com虎年勋章虎年纪念勋章（360天）论坛GG按键论坛男性用户勋章小红帽对论坛提出良好建议（可向管理员申请）爱心大使积极帮助新手（可向管理员进行申请）学有所成学有所成勋章，新手步入按键学堂的第一枚勋章
几种简单实现定时的方法 本文由按键学院提供技术支持按键学院交流①群（1群已满）：按键学院交流②群（2群）：按键学院交流③群（3群）：【按键学院】安卓课程()现在手游上很多活动、任务什么的都是在固定的时间或者间隔一段时间之后才能继续做的。那如何用代码来实现定时的功能就和脚本是否有效率挂上了勾了。只有当时间到的时候才去执行任务，这样的脚本就比一直循环去查看任务有效率多了。这篇院刊就给大家带来几种实现定时的方法。第一种方法 这种方法是采用计算时间间隔，来实现定时的目的。像是有些活动任务是隔一段时间开启一次，那这种通过计算时间间隔的方式就很适合用于这种场景我们可以通过TickCount命令来在脚本开始的时候记录一个时间点，然后再后续的脚本操作中不断的判断当前时间和这个时间点的差值，如果到达了差值就说明间隔的时间到了，就可以执行任务(21.78 K) 16:18:32代码如下：Dim t=TickCount()
If TickCount() - t &10000 Then
TracePrint &时间到了，开始执行任务&
TracePrint &继续等待&
Delay 1000
复制代码上面这段代码虽然是可以实现了间隔时间，但是功能也太简单了一些，并且使用起来也并不方便。所以我们可以对代码进行加强Dim TimeID()
Function RemTime(id)
TimeID(id) = TickCount()
RemTime = TimeID(id)
End Function
Function TimeDiff(id, t)
Dim t1 = TickCount()
//计算时间差
If TimeID(id) - t1 &= t Then
TimeDiff = true
//把该记号的时间重置成当前时间，以便可以再次计时
TimeID(id) = t1
TimeDiff = false
End Function
复制代码Call RemTime(1)
Call RemTime(2)
If TimeDiff(1, 10000) Then
Call 任务1
If TimeDiff(1, 30000) Then
Call 任务2
复制代码这种代码就比前面的加强了，不但使用起来会方便，而且可以支持多个记录点同时进行计算间隔。第二种方法 有些活动的任务是在每天固定的时间内开始的，如果这种情况下使用上面的间隔计时的话，就会比较麻烦，因为从脚本开启运行到活动时间到了，可能中间要隔着很长的时间，换算什么的很麻烦。所以针对这种定时的活动，我们可以通过直接对比具体的时间来做到定时的目的这里需要用到一个命令 DateTime.Format，这个命令可以把当前的时间转换成固定的某个格式。比如想要得到 19:20 这样的时间格式，就可以这样写TracePrint DateTime.Format(&%H:%S&)
复制代码根据这个命令，我们就可以进行时间的对比Function Timing_time(t)
Dim t1 = DateTime.Format(&%H:%S&)
If t = t1 Then
Timing = true
Timing = false
End Function
If Timing_time(&20:30&) Then
TracePrint &现在已经20:30了，可以执行任务&
TracePrint &时间还没到&
复制代码上面这段代码是对比指定时间的，还可以针对日期来写一个对比日期的定时函数Function Timing_date(t)
Dim t1 = DateTime.Format(&%Y-%m-%d&)
If t = t1 Then
Timing = true
Timing = false
End Function
If Timing_date(&&) Then
TracePrint &现在已经了，可以执行任务&
TracePrint &时间还没到&
复制代码有了上面的这两种定时的方法，想必在平时的脚本中已经完全足够应对一些定时的任务活动之类的了~~~~(29.91 K) 16:18:32
论坛签名【山海师】安卓按键技术交流群 ：
我想看一看
按键学院按键学院专属勋章，按键学院学员或文章被院刊收入可领取按键精灵开发者5级可通过提升认证等级来升级勋章：rz.anjian.com
要要要切克闹...333
按键X开拓者勋章最先体验按键精灵X，且提交有效反馈的奖励勋章过大年勋章俩小福娃给大家拜年啦！猴年勋章猴年专属“大圣”勋章抗战胜利70周年勋章抗战胜利70周年活动的专属勋章单身汪勋章单身贵族的专属勋章按键14周年庆纪念勋章按键14周年庆纪念勋章（360天）按键学院按键学院专属勋章，按键学院学员或文章被院刊收入可领取按键精灵开发者6级（新浪V认证）通过新浪微博加V后自动发放，并替换普通的认证6级勋章。 认证考霸（90天）参加考霸活动，对认证考了十次以上用户的鼓励鹰眼勋章鹰眼注册用户专属勋章黄瓜勋章（永久）体验商业小精灵活动的奖励天使勋章天使一样的用户按键明星按键明星勋章黄金之翼黄金之翼勋章骨灰级按键用户3年以上的按键论坛用户论坛MM按键论坛女性用户勋章论坛GG按键论坛男性用户勋章小红帽对论坛提出良好建议（可向管理员申请）发帖高手鼓励积极回复，但注意不要灌水哦爱心大使积极帮助新手（可向管理员进行申请）学有所成学有所成勋章，新手步入按键学堂的第一枚勋章按键元老资深按键用户的尊贵荣誉勋章
承接中小型 游戏/办公/投票/自动发货类 脚本如果回答对你有所帮助请不要吝啬手中的鲜花
剑侠勋章剑侠世界公测活动勋章单身汪勋章单身贵族的专属勋章按键明星按键明星勋章黄金之翼黄金之翼勋章按键精灵开发者6级可通过提升认证等级来升级勋章：rz.anjian.com学有所成学有所成勋章，新手步入按键学堂的第一枚勋章
承接各类脚本
过大年勋章俩小福娃给大家拜年啦！按键精灵开发者1级可通过提升认证等级来升级勋章：rz.anjian.com
按键精灵开发者1级可通过提升认证等级来升级勋章：rz.anjian.com
老师辛苦了
脚本作者商业小精灵作者绑定账号后自动赠送
take a look
看看学习学习
按键精灵开发者4级可通过提升认证等级来升级勋章：rz.anjian.com
看看看看吧看啊
为什么一定要回复呢，麻烦为什么一定要回复呢，麻烦
回复帖子看看
按键精灵开发者2级可通过提升认证等级来升级勋章：rz.anjian.com
的顶顶顶顶顶
实在是没有明白那些命令能直接使用
闽网文 (-037号按键精灵调试三天，气到吐血！！快速开发脚本代码常见错误！绝对干货！
来源：按键学院
【按键精灵】
还记不记得，那些天，急着交脚本的时候出bug了。通宵了三天三夜，调试出错。逻辑检查了一边又一边，万行代码反反复复翻来覆去推敲了无数遍。结果……
不要告诉我是中英文符号写错了，变量定义出错了，我保证不打死我自己……
1：定义变量时直接赋值
报错提示：没有找到合法的符号
//（错误代码0）没有找到合法的符号
正确代码：定义变量时不能直接赋值哦~
2：循环语句未设置循环次数
报错提示：没有找到合法的符号
//第0行：无法计算取值。错误附加码=775:0
For '（错误码0）没有找到合法的符号。
MessageBox a
正确代码：循环语句，需要在for循环后面，加上循环次数哦~不然电脑那么笨……
MessageBox a
3：语句书写不全
报错提示：无法计算取值。错误附加码=775:0
//语句书写不全
For i = 0 To 10 step
正确代码：循环语句，在步径step后，需要指定具体的数值：如step 2 ，每次循环结束的时候变量+2；step 1，每次循环结束变量+1。
For i = 0 To 10 step 1
4：未设置循环条件
报错提示：无法计算取值。错误附加码=775:0
//语法错误：脚本 11-12 ，第21行，第7个字符：（错误码0）没有找到合法的符号。
//语义错误：脚本 11-12 ，第0行：无法计算取值。错误附加码=775:0
正确代码：亲，没有定义变量，也没有设置while的循环条件哦（while后面加一个参数：循环条件）
While a = 1
5：变量名与子程序、子函数重名
报错提示：名称有重复。错误附加码=3102:0
//语义错误：脚本 11-12 ，第60行：名称有重复。错误附加码=3102:0
Sub 找字()
正确代码：定义的变量名称，不能与已有的子程序或者子函数重名哦~不然按键无法判断你想调用的是谁~
6：取数组元素下标超出范围
报错提示：下标越界: '[number: 11]'
//脚本 **.Q ，第**行：下标越界: '[number: 11]',
MessageBox a(11)
正确代码：在按键精灵中，定义数组时dim a(9)，意味着数组a的最大下限是a(9)。而在调用的时候，记得千万不能超过定义的数组下限哦·~~
7：错误类型作大小比较
报错提示：类型不匹配: 'A'
//脚本 11-12.Q ，第37行：类型不匹配: 'A',
If a & 1 Then
MessageBox "a大于1"
正确代码：“If a & 1”，左边是字符串，右边是数值，无法进行比较~若需要将其作比较可先将字符串转换成ANSI代码后比较
//得到"a"的ANSI字符代码后作大小比较
If Asc(a) & 1 Then
MessageBox "a大于1"
8：使用数组未先定义
报错提示：类型不匹配:
//脚本 11-12.Q ，第52行：类型不匹配: 'MYARRAY',
//脚本 11-12.Q ，第53行：类型不匹配: 'A',
W1 = Clng(MyArray(0))
w1=clng(a(1))
正确代码：又是一个调用变量的时候，没有好好定义的忧桑错误：
Dim MyArray(5)
W1 = Clng(MyArray(0))
w1=clng(a(1))
9：延时命令不合理
Delay 6000
//上面语句可用下面的限定次数循环语句取代，可解决按停止键停不下来的情况。
报错提示：根本停不下来啊啊啊……
10：子程序使用错误
报错提示：无法计算取值。
//脚本 常见脚本错误 ，第66行：无法计算取值。错误附加码=775:120
TracePrint prints("ss")
Sub prints(str1)
prints = str1
正确代码：sub子程序无返回值，若想输出返回值使用Function函数哦~
TracePrint prints("ss")
Function prints(str1)
prints = str1
End Function
没有更多推荐了，怎么让按键精灵脚本到指定时间(系统时间)执行程序，而不是设置延时。_百度知道
怎么让按键精灵脚本到指定时间(系统时间)执行程序，而不是设置延时。
我有更好的答案
比如：Do While true小时 = Hour(Now)分钟 = Minute(Now)If 小时 = 9 and 分钟 = 30 Then Exit DoEnd Ifdelay 5000loop把时间改成每个你要的就行，一开始就启动脚本，不到指定时间命令会不停循环，到了时间则会执行语句。
采纳率：92%
来自团队：
dt = 1While dt && 0 dt = DateDiff(&s&, Time, &12:00&)
//12:00是你指定的时间 Delay 200Wend//这里写你要执行的代码
是在wend后面另起语句写执行代码么
那你认为呢，难道不会分析和调试代码吗
本回答被提问者和网友采纳
全部命令里面有
有个系统的插件能得到时间吧，然后用split把空格提出来，没试过，不确定是否可行
其他1条回答
为您推荐：
其他类似问题
按键精灵脚本的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。按键精灵如何设置指定时间执行某一个按键？_百度知道
按键精灵如何设置指定时间执行某一个按键？
按键精灵如何设置指定时间执行某一个按键？例如我想在早上8点00分00秒时准时执行A键，那么在按键精灵里面设置？要插入什么东西，请知道的朋友们告诉我，把语句都发给我，谢谢！
Rem startVBS mytime=Time(&08:00:00 AM&)If t=time
KeyPress 83,1
EndScriptEndIfGoto start以上是我的设置，但是为什么我启动之后到了指定时间没有反应的，“83”代表是S键。这里有什么错误，请高手指点或者编一个给我，谢谢！
我有更好的答案
说了这么多你还是没看明白..直接复制下面代码Dim RunTime, RTFormat, InputLen, DiffDate, PromptStr, MyBox, TittleTittle = &[飞龙三少]按键精灵定时器&//〓〓〓〓〓〓☆〓〓〓〓〓〓☆〓〓〓★主程序★〓〓〓☆〓〓〓〓〓〓☆〓〓〓〓〓〓//Rem 定时器开始Gosub SetRunTimeGosub CheckTimeRem 定时器结束EndScript //〓〓〓〓〓〓☆〓〓〓〓〓〓☆〓〓〓★子程序★〓〓〓☆〓〓〓〓〓〓☆〓〓〓〓〓〓//Sub SetRunTime
PromptStr = &请设置程序定时运行的时间！& &Chr(13)&Chr(13)& &请务必按文本框内格式进行设定！&
//设定时间格式
RTFormat = Date & & & & Hour(Now) & &:& & Minute(Now)
//设置定时运行时间
RunTime = InputBox(PromptStr, Tittle, RTFormat)
InputLen = Len(RunTime)
If InputLen & 0
RunTime = FormatDateTime(RunTime)
PromptStr = &当前定时时间【& + Runtime + &】& &Chr(13)&Chr(13)& &确认定时设置并启动定时器？&
MyBox = Msgbox(PromptStr, 33, Tittle)
If MyBox = 2
Goto 定时器结束
PromptStr = &您已取消设置定时！定时器退出！&
MyBox = Msgbox(PromptStr, 48, Tittle)
Goto 定时器结束
EndIf Return SetRunTimeSub CheckTime
//计算当前系统时间与定时时间的时间间隔
//间隔60秒以内，开始执行子程序Main的脚本
//若系统时间超过定时时间60秒，定时器退出
//定时器每隔45秒计算一次时间间隔
DiffDate = DateDiff(&s&,Now,RunTime)
If Abs(DiffDate) &= 60
Gosub Main
ElseIf DiffDate & -60
PromptStr = &当前系统时间已超过定时时间范围！定时器退出！&
MyBox = Msgbox(PromptStr, 48, Tittle)
Delay 45000
Gosub CheckTime
EndIf Return CheckTimeSub Main KeyPress 83,1
//需要定时运行的脚本入口
Return Main//复制以上代码.//打开按键精灵-源文件-粘贴代码-保存退出//S键已经给你加进去了//你只需要按F10启动脚本 然后根据弹出的提示框输入你要什么日期什么时间启动 就可以到指定时间后他会按一下S键上面的为设置时间后如果弹出窗口 就表示你设置的生效了 然后删除语句:MsgBox(&现在时间：& & Now & &，开始执行脚本!&)或者重新复制下面这段.Dim RunTime, RTFormat, InputLen, DiffDate, PromptStr, MyBox, TittleTittle = &[飞龙三少]按键精灵定时器&//〓〓〓〓〓〓☆〓〓〓〓〓〓☆〓〓〓★主程序★〓〓〓☆〓〓〓〓〓〓☆〓〓〓〓〓〓//Rem 定时器开始Gosub SetRunTimeGosub CheckTimeRem 定时器结束EndScript //〓〓〓〓〓〓☆〓〓〓〓〓〓☆〓〓〓★子程序★〓〓〓☆〓〓〓〓〓〓☆〓〓〓〓〓〓//Sub SetRunTime
PromptStr = &请设置程序定时运行的时间！& &Chr(13)&Chr(13)& &请务必按文本框内格式进行设定！&
//设定时间格式
RTFormat = Date & & & & Hour(Now) & &:& & Minute(Now)
//设置定时运行时间
RunTime = InputBox(PromptStr, Tittle, RTFormat)
InputLen = Len(RunTime)
If InputLen & 0
RunTime = FormatDateTime(RunTime)
PromptStr = &当前定时时间【& + Runtime + &】& &Chr(13)&Chr(13)& &确认定时设置并启动定时器？&
MyBox = Msgbox(PromptStr, 33, Tittle)
If MyBox = 2
Goto 定时器结束
PromptStr = &您已取消设置定时！定时器退出！&
MyBox = Msgbox(PromptStr, 48, Tittle)
Goto 定时器结束
EndIf Return SetRunTimeSub CheckTime
//计算当前系统时间与定时时间的时间间隔
//间隔60秒以内，开始执行子程序Main的脚本
//若系统时间超过定时时间60秒，定时器退出
//定时器每隔45秒计算一次时间间隔
DiffDate = DateDiff(&s&,Now,RunTime)
If Abs(DiffDate) &= 60
Gosub Main
ElseIf DiffDate & -60
PromptStr = &当前系统时间已超过定时时间范围！定时器退出！&
MyBox = Msgbox(PromptStr, 48, Tittle)
Delay 45000
Gosub CheckTime
EndIf Return CheckTimeSub Main KeyPress 83,1
//需要定时运行的脚本入口
Return Main 不要用8版 要用7以下的版本
采纳率：35%
用什么按键精灵啊，直接用VBS脚本都行了。当然要看你要把“A”键发送给哪个应用程序了。取得程序句柄，直接SendKeys就完了。不行的话PostMessage。
为您推荐：
其他类似问题
您可能关注的内容
按键精灵的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。如何在固定时间自动执行代码（比如每周日24:00）
[问题点数：100分，结帖人mjsun2011]
本版专家分：0
结帖率 60%
CSDN今日推荐
本版专家分：40
本版专家分：1178
本版专家分：1004
本版专家分：8708
本版专家分：0
匿名用户不能发表回复！|
其他相关推荐}