功能 定时启动脚本()
变量 指定时间,at
变量 年_月,返回值,长度,年_字,月_字,日_字,时_字,分_字
变量 时间开关 = 真
编辑框.设置文本("编辑框6","")
年_月 = 日期框.获得文本("日期框0")
调试输出(年_月)
是否成功=字符串.分割(年_月,"-",返回值)
数组空间.大小(返回值,长度)
年_字=返回值[0]
月_字=返回值[1]
日_字=返回值[2]
调试输出(返回值[0])
调试输出(返回值[1])
调试输出(返回值[2])
时_字 = 下拉框.获得文本("下拉框3")
调试输出(时_字)
分_字 = 下拉框.获得文本("下拉框4")
编辑框.设置文本("编辑框6","定时任务启动")
循环(时间开关)
提醒时间=年_字&"/"&月_字&"/"&日_字&" "&时_字&":"&分_字
调试输出(提醒时间)
at = 日期时间.当前日期()
调试输出(at)
年 = 日期时间.年(at)
月 = 日期时间.月(at)
日 = 日期时间.日(at)
时 = 日期时间.时(at)
分 = 日期时间.分(at)
调试输出(年&"/"&月&"/"&日&" "&时&":"&分)
如果(年_字 >= 年)
如果(月_字 >= 月)
如果(日_字 >= 日)
如果(时_字>=时)
如果(分_字>=分)
如果(提醒时间 == 年&"/"&月&"/"&日&" "&时&":"&分)
//***********************************************************
编辑框.设置文本("编辑框6","时间到了.....")
//*********************************************************
跳出
如果结束
否则
如果(分_字<分)
如果(时_字>时)
如果(提醒时间 == 年&"/"&月&"/"&日&" "&时&":"&分)
//***********************************************************
编辑框.设置文本("编辑框6","时间到了.....")
//***********************************************************
跳出
如果结束
否则
//辅助.消息框("[分钟<当前分钟请重新设置分钟]:"&分)
//调试输出("[ 分_字< 分]设置错误:"&分)
编辑框.设置文本("编辑框6","脚本停止工作,请重新设置日期时间")
时间开关 = 假
如果结束
如果结束
如果结束
否则
如果(时_字 < 时)
如果(日_字 > 日)
如果(提醒时间 == 年&"/"&月&"/"&日&" "&时&":"&分)
//***********************************************************
编辑框.设置文本("编辑框6","时间到了.....")
//***********************************************************
跳出
如果结束
否则
//辅助.消息框("[时<当前时请重新设置时]:"&时)
//调试输出("[ 时_字< 时,月应当>当前时]设置错误:"&时)
编辑框.设置文本("编辑框6","脚本停止工作,请重新设置日期时间")
时间开关 = 假
如果结束
如果结束
如果结束
否则
//--------------------------------设置日
如果(日_字 < 日)
如果(年_字>=年)
如果(月_字>月)
如果(提醒时间 == 年&"/"&月&"/"&日&" "&时&":"&分)
//***********************************************************
//***********************************************************
编辑框.设置文本("编辑框6","时间到了.....")
跳出
如果结束
否则
//辅助.消息框("[日<当前日期请重新设置日期]:"&日)
//调试输出("[日_字 < 日,月应当>当前月]设置错误:"&日)
编辑框.设置文本("编辑框6","脚本停止工作,请重新设置日期时间")
时间开关 = 假
如果结束
如果结束
如果结束
如果结束
否则
如果(月_字 < 月)
如果(年_字>年)
如果(提醒时间 == 年&"/"&月&"/"&日&" "&时&":"&分)
//***********************************************************
编辑框.设置文本("编辑框6","时间到了.....")
//***********************************************************
跳出
如果结束
否则
//辅助.消息框("[月份<当前月份请重新设置月份]:"&月)
//调试输出("[月_字<月设置错误];"&月)
编辑框.设置文本("编辑框6","脚本停止工作,请重新设置日期时间")
时间开关 = 假
如果结束
如果结束
如果结束
否则
//辅助.消息框("[年份<当前年份请重新设置年份]:"&年)
//辅助.消息框("[年_字<年请重新设置年份]:"&年)
编辑框.设置文本("编辑框6","脚本停止工作,请重新设置日期时间")
时间开关 = 假
如果结束
辅助.等待(1000)
循环结束
启动线程句柄 = 线程.开启("虚拟机.调用空间","")
功能结束
|