马上加入TC
您需要 登录 才可以下载或查看,没有帐号?立即注册  
 
x
 
//涉及了不少控件,新手可以参考学习下,献丑了:D 
//(软件下载地址:http://bbs.tyuyan.com/thread-4079-1-1.html) 
 
空间 定时关机 
线程 
功能 定时关机() 
 
图片框.设置图片("图片框0","c:\\aaaa.jpg") 
 
现在时间,现在小时,现在分,现在秒,标签显示 
现在时间=系统.时间(0) 
标签显示=字符串.连接("现在时间:",现在时间) 
标签.设置文本("标签0",标签显示) 
 
分隔符位置 
现在时间=系统.时间(1) 
分隔符位置=字符串.查找字符(现在时间,124) 
现在小时=字符串.截取(现在时间,0,分隔符位置) 
 
现在时间=字符串.移除(现在时间,分隔符位置+1,真) 
分隔符位置=字符串.查找字符(现在时间,124) 
现在分=字符串.截取(现在时间,0,分隔符位置) 
 
现在时间=字符串.移除(现在时间,分隔符位置+1,真) 
分隔符位置=字符串.查找字符(现在时间,124) 
现在秒=字符串.截取(现在时间,0,分隔符位置) 
 
选项1,选项2 
选择小时,选择分 
选项1=下拉框.得到选项("下拉框0") 
// 下拉框.设置选项("下拉框0",0) 
如果(选项1==-1) 
选择小时=下拉框.获得内容("下拉框0",23) 
下拉框.设置选项("下拉框0",23) 
如果结束 
如果(选项1==0) 
选择小时=下拉框.获得内容("下拉框0",0) 
下拉框.设置选项("下拉框0",0) 
如果结束 
 
如果(选项1==1) 
选择小时=下拉框.获得内容("下拉框0",1) 
下拉框.设置选项("下拉框0",1) 
如果结束 
 
如果(选项1==2) 
选择小时=下拉框.获得内容("下拉框0",2) 
下拉框.设置选项("下拉框0",2) 
如果结束 
 
如果(选项1==3) 
选择小时=下拉框.获得内容("下拉框0",3) 
        下拉框.设置选项("下拉框0",3) 
如果结束 
 
如果(选项1==4) 
选择小时=下拉框.获得内容("下拉框0",4) 
        下拉框.设置选项("下拉框0",4) 
如果结束 
 
如果(选项1==5) 
选择小时=下拉框.获得内容("下拉框0",5) 
        下拉框.设置选项("下拉框0",5) 
如果结束 
 
如果(选项1==6) 
选择小时=下拉框.获得内容("下拉框0",6) 
        下拉框.设置选项("下拉框0",6) 
如果结束 
 
如果(选项1==7) 
选择小时=下拉框.获得内容("下拉框0",7) 
        下拉框.设置选项("下拉框0",7) 
如果结束 
 
如果(选项1==8) 
选择小时=下拉框.获得内容("下拉框0",8) 
        下拉框.设置选项("下拉框0",8) 
如果结束 
 
如果(选项1==9) 
选择小时=下拉框.获得内容("下拉框0",9) 
        下拉框.设置选项("下拉框0",9) 
如果结束 
 
如果(选项1==10) 
选择小时=下拉框.获得内容("下拉框0",10) 
        下拉框.设置选项("下拉框0",10) 
如果结束 
 
如果(选项1==11) 
选择小时=下拉框.获得内容("下拉框0",11) 
        下拉框.设置选项("下拉框0",11) 
如果结束 
 
如果(选项1==12) 
选择小时=下拉框.获得内容("下拉框0",12) 
        下拉框.设置选项("下拉框0",12) 
如果结束 
 
如果(选项1==13) 
选择小时=下拉框.获得内容("下拉框0",13) 
        下拉框.设置选项("下拉框0",13) 
如果结束 
 
如果(选项1==14) 
选择小时=下拉框.获得内容("下拉框0",14) 
        下拉框.设置选项("下拉框0",14) 
如果结束 
 
如果(选项1==15) 
选择小时=下拉框.获得内容("下拉框0",15) 
        下拉框.设置选项("下拉框0",15) 
如果结束 
 
如果(选项1==16) 
选择小时=下拉框.获得内容("下拉框0",16) 
        下拉框.设置选项("下拉框0",16) 
如果结束 
 
如果(选项1==17) 
选择小时=下拉框.获得内容("下拉框0",17) 
        下拉框.设置选项("下拉框0",17) 
如果结束 
 
如果(选项1==18) 
选择小时=下拉框.获得内容("下拉框0",18) 
        下拉框.设置选项("下拉框0",18) 
如果结束 
 
如果(选项1==19) 
选择小时=下拉框.获得内容("下拉框0",19) 
        下拉框.设置选项("下拉框0",19) 
如果结束 
 
如果(选项1==20) 
选择小时=下拉框.获得内容("下拉框0",20) 
        下拉框.设置选项("下拉框0",20) 
如果结束 
 
如果(选项1==21) 
选择小时=下拉框.获得内容("下拉框0",21) 
        下拉框.设置选项("下拉框0",21) 
如果结束 
 
如果(选项1==22) 
选择小时=下拉框.获得内容("下拉框0",22) 
        下拉框.设置选项("下拉框0",22) 
如果结束 
 
如果(选项1==23) 
选择小时=下拉框.获得内容("下拉框0",23) 
        下拉框.设置选项("下拉框0",23) 
如果结束 
 
选项2=下拉框.得到选项("下拉框1") 
如果(选项2==-1) 
选择分=下拉框.获得内容("下拉框1",12) 
下拉框.设置选项("下拉框1",12) 
如果结束 
如果(选项2==0) 
选择分=下拉框.获得内容("下拉框1",0) 
        下拉框.设置选项("下拉框1",0) 
  如果结束 
 
如果(选项2==1) 
选择分=下拉框.获得内容("下拉框1",1) 
        下拉框.设置选项("下拉框1",1) 
如果结束 
 
如果(选项2==2) 
选择分=下拉框.获得内容("下拉框1",2) 
        下拉框.设置选项("下拉框1",2) 
如果结束 
 
如果(选项2==3) 
选择分=下拉框.获得内容("下拉框1",3) 
        下拉框.设置选项("下拉框1",3) 
如果结束 
 
如果(选项2==4) 
选择分=下拉框.获得内容("下拉框1",4) 
        下拉框.设置选项("下拉框1",4) 
如果结束 
 
如果(选项2==5) 
选择分=下拉框.获得内容("下拉框1",5) 
        下拉框.设置选项("下拉框1",5) 
如果结束 
 
如果(选项2==6) 
选择分=下拉框.获得内容("下拉框1",6) 
        下拉框.设置选项("下拉框1",6) 
如果结束 
 
如果(选项2==7) 
选择分=下拉框.获得内容("下拉框1",7) 
        下拉框.设置选项("下拉框1",7) 
如果结束 
 
如果(选项2==8) 
选择分=下拉框.获得内容("下拉框1",8) 
        下拉框.设置选项("下拉框1",8) 
如果结束 
 
如果(选项2==9) 
选择分=下拉框.获得内容("下拉框1",9) 
        下拉框.设置选项("下拉框1",9) 
如果结束 
 
如果(选项2==10) 
选择分=下拉框.获得内容("下拉框1",10) 
        下拉框.设置选项("下拉框1",10) 
如果结束 
 
如果(选项2==11) 
选择分=下拉框.获得内容("下拉框1",11) 
        下拉框.设置选项("下拉框1",11) 
如果结束 
 
如果(选项2==12) 
选择分=下拉框.获得内容("下拉框1",12) 
        下拉框.设置选项("下拉框1",12) 
如果结束 
关机时间 
选择小时1,选择分1,现在小时1,现在分1,现在秒1 
选择小时1=选择小时 
        选择分1=选择分 
                现在小时1=现在小时 
                现在分1=现在分 
                现在秒1=现在秒 
如果(选择小时1<现在小时1) 
辅助.消息框("您选择的小时数小于现在时间的小时数") 
返回 假 
如果结束 
 
如果(选择小时1==现在小时1&&选择分1<现在分1) 
辅助.消息框("您选择的分钟数小于现在时间的分钟数") 
返回 假 
如果结束 
 
如果(选择小时1==现在小时1&&选择分1==现在分1) 
辅助.消息框("您选择的秒数小于现在时间的分钟数") 
返回 假 
如果结束 
如果(选择小时1==现在小时1&&选择分1>现在分1) 
关机时间=(选择分1-现在分1-1)*60+60-现在秒1 
如果结束 
 
如果(选择小时1>现在小时1&&选择分1==现在分1) 
关机时间=(选择小时1-现在小时1-1)*60*60-现在秒1 
如果结束 
 
如果(选择小时1>现在小时1&&选择分1>现在分1) 
关机时间=(选择小时1-现在小时1)*60*60+(选择分1-现在分1)*60-现在秒1 
如果结束 
 
如果(选择小时1>现在小时1&&选择分1<现在分1) 
关机时间=(选择小时1-现在小时1-1)*60*60+(选择分1+60-现在分1)*60-现在秒1 
如果结束 
 
标签内容2=字符串.连接(关机时间,"秒") 
标签.设置文本("标签3",标签内容2) 
 
如果(复选框.获得状态("复选框1")==真) 
窗口句柄=窗口.找到窗口("定时关机") 
窗口.隐藏(窗口句柄) 
如果结束 
 
提醒时间,提醒内容,路径 
等待秒数 
提醒时间=编辑框.获得文本("编辑框0") 
如果(类型.是否为整型(提醒时间)==假) 
辅助.消息框("提醒时间请填数字秒数") 
如果结束 
如果(字符串.长度(提醒时间)==0) 
编辑框.设置文本("编辑框0","5") 
提醒时间=编辑框.获得文本("编辑框0") 
辅助.消息框("提醒时间未填!请确认") 
如果结束 
提醒内容=编辑框.获得文本("编辑框1") 
如果(字符串.长度(提醒内容)==0) 
编辑框.设置文本("编辑框0","这家伙很懒,没有设置提醒") 
辅助.消息框("日程提醒未填!请确认") 
如果结束 
路径=浏览框.获得("浏览框0") 
等待秒数=提醒时间*60 
如果(等待秒数>关机时间) 
辅助.消息框("提醒时间超过预定关机时间") 
如果结束 
如果(复选框.获得状态("复选框0")==真) 
辅助.等待(等待秒数*1000) 
辅助.播放(路径) 
辅助.等待(1000) 
辅助.消息框(提醒内容) 
如果结束 
 
如果(单选框.获得状态("单选框0")==真) 
辅助.等待((关机时间-1)*1000) 
系统.关机(1) 
如果结束 
 
如果(单选框.获得状态("单选框1")==真) 
//重启 ctrl+alt+home 
辅助.等待(关机时间*1000) 
键盘.按下(17) 
辅助.等待(50) 
键盘.按下(164) 
辅助.等待(50) 
键盘.按下(36) 
辅助.等待(500) 
键盘.弹起(17) 
辅助.等待(50) 
键盘.弹起(164) 
辅助.等待(50) 
键盘.弹起(36) 
如果结束 
 
返回 真 
功能结束 
功能 开始_点击() 
线程=线程.开启("定时关机.定时关机","") 
返回 真 
//函数返回语句 
功能结束 
 
功能 退出_点击() 
线程.关闭(线程) 
辅助.退出() 
 
返回 真 
//函数返回语句 
功能结束 
 
 
功能 单选框2_点击() 
如果(单选框.获得状态("单选框2")==真) 
系统.关机(1) 
如果结束 
返回 真 
功能结束 
 
功能 热键0_热键() 
窗口句柄=窗口.找到窗口("定时关机") 
窗口.显示(窗口句柄) 
 
返回 真 
功能结束 
空间结束 |