给个定时例子

528522861

给个思路及例子，实现功能如下：先谢谢了
在周一  18.30分 准时执行打开消息框，显示“时间已到”
要代码。随便问一下，消息框能用代码结束吗？如果能写一下代码，如果太复杂就不用回答了，只是想知道而已。

a837198

消息框指定时间关闭    可以通过dllcall的方式 实现

天生的叛逆者

功能 定时启动脚本()
   
    变量 指定时间,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)
    循环结束
   
   
    启动线程句柄 = 线程.开启("虚拟机.调用空间","")
   
功能结束

zxw445

消息框不能自动停止，这个考自己去写个信息框

528522861

唉，自己水平太低，都看不懂说什么。也没人贴代码

528522861

天生的叛逆者 发表于 2015-1-18 03:33
功能 定时启动脚本()
   
    变量 指定时间,at

按照你的代码，确实成功了，谢谢你的回答，真的非常感谢你。祝你天天开心。

天生的叛逆者

谢谢

2645572175