TC官方合作论坛

 找回密码
 立即注册
查看: 492|回复: 1
打印 上一主题 下一主题

[问题] 老师看看我的定时启动程序和时间限制需要哪些改进!

[复制链接]
跳转到指定楼层
楼主
发表于 2015-2-13 22:10:21 | 只看该作者 回帖奖励 |倒序浏览 |阅读模式

马上加入TC

您需要 登录 才可以下载或查看,没有帐号?立即注册

x
本帖最后由 qq771886388 于 2015-2-13 22:10 编辑

复制代码
四个功能 我想先开启定时功能,时间到了开启功能 自动**,然后过一段时间再开启线程检测功能,24点关闭功能 自动**,开启功能 循环找色 ;如何联系更科学!
空间 时间差
//默认空间
变量 线程句柄
功能 定时启动脚本()

    变量 指定时间,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)
    循环结束
    启动线程句柄 = 线程.开启("时间差.自动**","")

功能结束

功能 检测线程()
    循环(真)
        提醒时间="24.00"
        at=日期时间.当前日期()
        时=日期时间.时(at)
        分=日期时间.分(at)
        如果(分<1)
            分="0"&分
        如果结束
        如果(提醒时间==时&"."&分)
            //辅助.消息框("提醒时间")
        如果结束
        //调试输出(时&"."&分)
        线程.关闭("时间差.自动**","")
        启动线程句柄 = 线程.开启("时间差.循环找色","")
        辅助.等待(60000)
    循环结束
功能结束  
功能 自动**()
    鼠标.移动(100,200)

功能结束
功能 循环找色()
    鼠标.右键单击(1)
功能结束

//开始按钮_点击操作
功能 开始_点击()
    线程句柄 = 线程.开启("时间差.定时启动脚本","")
    辅助.等待(600000)//等待一段时候后再开启功能 检测线程()
    线程句柄 = 线程.开启("时间差.检测线程","")
功能结束

//退出按钮_点击操作
功能 退出_点击()
    线程.关闭(线程句柄)

    辅助.退出()
功能结束

空间结束
//空间结束语句

回复

使用道具 举报

沙发
发表于 2015-6-26 09:24:56 | 只看该作者
回复 支持 反对

使用道具 举报

*滑动验证:
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关闭

站长推荐上一条 /2 下一条

关闭

小黑屋|TC官方合作论坛 (苏ICP备18043773号

GMT+8, 2025-9-22 07:08 , Processed in 0.174670 second(s), 23 queries .

Powered by 海安天坑软件科技有限公司

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表