最新定时关机 界面美化 纯源码

admin

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_窗口_定时关机

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

置托盘图标 (图标, )
选择框1.文本颜色 ＝ #红色
' 标签2.标题 ＝ 到文本 (取现行时间 ())
标签4.标题 ＝ “ >> 本机IP:” ＋ 系统_取外网IP ()
读配置 ()

子程序名	返回值类型	公开	备 注
_时钟1_周期事件

系统_关机 ()

子程序名	返回值类型	公开	备 注
_选择框1_被单击

判断 (选择框1.选中 ＝ 真)
系统_设置随机启动 (“开机启动”, 取运行目录 () ＋ “\” ＋ 取执行文件名 (), 假, )
写配置项 (取运行目录 () ＋ “\config.ini”, “设置”, “启动”, “真”)

判断 (选择框1.选中 ＝ 假)
系统_设置随机启动 (“关闭启动”, 取运行目录 () ＋ “\” ＋ 取执行文件名 (), 真, )
写配置项 (取运行目录 () ＋ “\config.ini”, “设置”, “启动”, “假”)

子程序名	返回值类型	公开	备 注
读配置

变量名	类 型	静态	数组	备 注
开机启动	文本型

开机启动 ＝ 读配置项 (取运行目录 () ＋ “\config.ini”, “设置”, “启动”, “”)
判断 (开机启动 ＝ “真”)
选择框1.选中 ＝ 真

判断 (开机启动 ＝ “假”)
选择框1.选中 ＝ 假

子程序名	返回值类型	公开	备 注
__启动窗口_托盘事件
参数名	类 型	参考	可空	数组	备 注
操作类型	整数型

如果真 (操作类型 ＝ 1)  ' 单击左键
_启动窗口.可视 ＝ 真

子程序名	返回值类型	公开	备 注
__启动窗口_位置被改变
参数名	类 型	参考	可空	数组	备 注
操作类型	整数型

_启动窗口.可视 ＝ 假
_启动窗口.置托盘图标 (_启动窗口.图标, “QQ:381093”)

子程序名	返回值类型	公开	备 注
__启动窗口_鼠标位置被移动	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

. ' 如果 (横向位置 ≥ _启动窗口.宽度 － 6 且 纵向位置 ≤ _启动窗口.高度 － 10)
. ' 如果真 (_启动窗口.随意移动 ＝ 真)
' _启动窗口.随意移动 ＝ 假
' 鼠标指针 ＝ { 12 }  ' 左右型

. ' 如果 (纵向位置 ≥ _启动窗口.高度 － 6 且 横向位置 ≤ _启动窗口.宽度 － 10)
. ' 如果真 (_启动窗口.随意移动 ＝ 真)
' _启动窗口.随意移动 ＝ 假
' 鼠标指针 ＝ { 10 }  ' 上下型

. ' 如果 (横向位置 ≥ _启动窗口.宽度 － 6 且 纵向位置 ≥ _启动窗口.高度 － 6)
. ' 如果真 (_启动窗口.随意移动 ＝ 真)
' _启动窗口.随意移动 ＝ 假
' 鼠标指针 ＝ { 11 }

. ' 如果真 (_启动窗口.随意移动 ＝ 假)
' _启动窗口.随意移动 ＝ 真
' 鼠标指针 ＝ { 0 }

子程序名	返回值类型	公开	备 注
__启动窗口_鼠标左键被按下	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

. ' 如果 (横向位置 ≥ _启动窗口.宽度 － 6 且 纵向位置 ≤ _启动窗口.高度 － 10)
. ' 如果真 (_启动窗口.随意移动 ＝ 真)
' _启动窗口.随意移动 ＝ 假
' 鼠标指针 ＝ { 12 }  ' 左右型

. ' 如果 (纵向位置 ≥ _启动窗口.高度 － 6 且 横向位置 ≤ _启动窗口.宽度 － 10)
. ' 如果真 (_启动窗口.随意移动 ＝ 真)
' _启动窗口.随意移动 ＝ 假
' 鼠标指针 ＝ { 10 }  ' 上下型

. ' 如果 (横向位置 ≥ _启动窗口.宽度 － 6 且 纵向位置 ≥ _启动窗口.高度 － 6)
. ' 如果真 (_启动窗口.随意移动 ＝ 真)
' _启动窗口.随意移动 ＝ 假
' 鼠标指针 ＝ { 11 }

. ' 如果真 (_启动窗口.随意移动 ＝ 假)
' _启动窗口.随意移动 ＝ 真
' 鼠标指针 ＝ { 0 }

子程序名	返回值类型	公开	备 注
_时钟2_周期事件

变量名	类 型	静态	数组	备 注
秒	整数型	√
分	整数型	√
时	整数型	√
天	整数型	√
数据库	文本型

秒 ＝ 秒 ＋ 1
透明标签3.标题 ＝ 时间_格式化 (取现行时间 (), “>> yyyy年MM月dd日 dddd”, “ hh:mm:ss”, 真, )

子程序名	返回值类型	公开	备 注
置托盘

_启动窗口.可视 ＝ 假
_启动窗口.置托盘图标 (_启动窗口.图标, “QQ:381093”)

子程序名	返回值类型	公开	备 注
_图形按钮1_被单击

判断 (编辑框1.内容 ＝ “”)
信息框 (“设置关机时间不能为空!!!”, 0, , )

时钟1.时钟周期 ＝ 到整数 (编辑框1.内容) × 60 × 1000
图形按钮1.禁止 ＝ 真
编辑框1.禁止 ＝ 真
程序_延时 (2000)
置托盘 ()

子程序名	返回值类型	公开	备 注
_图形按钮2_被单击

_启动窗口.可视 ＝ 假
_启动窗口.置托盘图标 (_启动窗口.图标, “QQ:381093”)

子程序名	返回值类型	公开	备 注
_图形按钮3_被单击

_启动窗口.销毁 ()

.版本 2<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_窗口_定时关机<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 置托盘图标 (图标, )<br /> 选择框1.文本颜色 ＝ #红色<br /> ' 标签2.标题 ＝ 到文本 (取现行时间 ())<br /> 标签4.标题 ＝ “ >> 本机IP:” ＋ 系统_取外网IP ()<br /> 读配置 ()<br /> <br /> .子程序 _时钟1_周期事件<br /> <br /> 系统_关机 ()<br /> <br /> .子程序 _选择框1_被单击<br /> <br /> <br /> .判断开始 (选择框1.选中 ＝ 真)<br />     系统_设置随机启动 (“开机启动”, 取运行目录 () ＋ “\” ＋ 取执行文件名 (), 假, )<br />     写配置项 (取运行目录 () ＋ “\config.ini”, “设置”, “启动”, “真”)<br /> <br /> .判断 (选择框1.选中 ＝ 假)<br />     系统_设置随机启动 (“关闭启动”, 取运行目录 () ＋ “\” ＋ 取执行文件名 (), 真, )<br />     写配置项 (取运行目录 () ＋ “\config.ini”, “设置”, “启动”, “假”)<br /> <br /> .默认<br /> <br /> .判断结束<br /> <br /> <br /> .子程序 读配置<br /> .局部变量 开机启动, 文本型<br /> <br /> 开机启动 ＝ 读配置项 (取运行目录 () ＋ “\config.ini”, “设置”, “启动”, “”)<br /> .判断开始 (开机启动 ＝ “真”)<br />     选择框1.选中 ＝ 真<br /> <br /> .判断 (开机启动 ＝ “假”)<br />     选择框1.选中 ＝ 假<br /> <br /> .默认<br /> <br /> <br /> .判断结束<br /> <br /> <br /> .子程序 __启动窗口_托盘事件<br /> .参数 操作类型, 整数型<br /> <br /> .如果真 (操作类型 ＝ 1)  ' 单击左键<br />     _启动窗口.可视 ＝ 真<br /> .如果真结束<br /> <br /> <br /> .子程序 __启动窗口_位置被改变<br /> .参数 操作类型, 整数型<br /> <br /> _启动窗口.可视 ＝ 假<br /> _启动窗口.置托盘图标 (_启动窗口.图标, “QQ:381093”)<br /> <br /> <br /> <br /> .子程序 __启动窗口_鼠标位置被移动, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> .' 如果 (横向位置 ≥ _启动窗口.宽度 － 6 且 纵向位置 ≤ _启动窗口.高度 － 10)<br />     .' 如果真 (_启动窗口.随意移动 ＝ 真)<br />         ' _启动窗口.随意移动 ＝ 假<br />         ' 鼠标指针 ＝ { 12 }  ' 左右型<br />     .如果真结束<br /> <br /> .否则<br />     .' 如果 (纵向位置 ≥ _启动窗口.高度 － 6 且 横向位置 ≤ _启动窗口.宽度 － 10)<br />         .' 如果真 (_启动窗口.随意移动 ＝ 真)<br />             ' _启动窗口.随意移动 ＝ 假<br />             ' 鼠标指针 ＝ { 10 }  ' 上下型<br />         .如果真结束<br /> <br />     .否则<br />         .' 如果 (横向位置 ≥ _启动窗口.宽度 － 6 且 纵向位置 ≥ _启动窗口.高度 － 6)<br />             .' 如果真 (_启动窗口.随意移动 ＝ 真)<br />                 ' _启动窗口.随意移动 ＝ 假<br />                 ' 鼠标指针 ＝ { 11 }<br />             .如果真结束<br /> <br />         .否则<br />             .' 如果真 (_启动窗口.随意移动 ＝ 假)<br />                 ' _启动窗口.随意移动 ＝ 真<br />                 ' 鼠标指针 ＝ { 0 }<br />             .如果真结束<br /> <br />         .如果结束<br /> <br />     .如果结束<br /> <br /> .如果结束<br /> <br /> <br /> .子程序 __启动窗口_鼠标左键被按下, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> <br /> .' 如果 (横向位置 ≥ _启动窗口.宽度 － 6 且 纵向位置 ≤ _启动窗口.高度 － 10)<br />     .' 如果真 (_启动窗口.随意移动 ＝ 真)<br />         ' _启动窗口.随意移动 ＝ 假<br />         ' 鼠标指针 ＝ { 12 }  ' 左右型<br />     .如果真结束<br /> <br /> .否则<br />     .' 如果 (纵向位置 ≥ _启动窗口.高度 － 6 且 横向位置 ≤ _启动窗口.宽度 － 10)<br />         .' 如果真 (_启动窗口.随意移动 ＝ 真)<br />             ' _启动窗口.随意移动 ＝ 假<br />             ' 鼠标指针 ＝ { 10 }  ' 上下型<br />         .如果真结束<br /> <br />     .否则<br />         .' 如果 (横向位置 ≥ _启动窗口.宽度 － 6 且 纵向位置 ≥ _启动窗口.高度 － 6)<br />             .' 如果真 (_启动窗口.随意移动 ＝ 真)<br />                 ' _启动窗口.随意移动 ＝ 假<br />                 ' 鼠标指针 ＝ { 11 }<br />             .如果真结束<br /> <br />         .否则<br />             .' 如果真 (_启动窗口.随意移动 ＝ 假)<br />                 ' _启动窗口.随意移动 ＝ 真<br />                 ' 鼠标指针 ＝ { 0 }<br />             .如果真结束<br /> <br />         .如果结束<br /> <br />     .如果结束<br /> <br /> .如果结束<br /> <br /> <br /> .子程序 _时钟2_周期事件<br /> .局部变量 秒, 整数型, 静态<br /> .局部变量 分, 整数型, 静态<br /> .局部变量 时, 整数型, 静态<br /> .局部变量 天, 整数型, 静态<br /> .局部变量 数据库, 文本型<br /> <br /> 秒 ＝ 秒 ＋ 1<br /> 透明标签3.标题 ＝ 时间_格式化 (取现行时间 (), “>> yyyy年MM月dd日 dddd”, “ hh:mm:ss”, 真, )<br /> <br /> .子程序 置托盘<br /> <br /> _启动窗口.可视 ＝ 假<br /> _启动窗口.置托盘图标 (_启动窗口.图标, “QQ:381093”)<br /> <br /> <br /> <br /> .子程序 _图形按钮1_被单击<br /> <br /> .判断开始 (编辑框1.内容 ＝ “”)<br />     信息框 (“设置关机时间不能为空!!!”, 0, , )<br /> <br /> .默认<br />     时钟1.时钟周期 ＝ 到整数 (编辑框1.内容) × 60 × 1000<br />     图形按钮1.禁止 ＝ 真<br />     编辑框1.禁止 ＝ 真<br />     程序_延时 (2000)<br />     置托盘 ()<br /> <br /> <br /> .判断结束<br /> <br /> <br /> .子程序 _图形按钮2_被单击<br /> <br /> _启动窗口.可视 ＝ 假<br /> _启动窗口.置托盘图标 (_启动窗口.图标, “QQ:381093”)<br /> <br /> <br /> .子程序 _图形按钮3_被单击<br /> <br /> _启动窗口.销毁 ()<br />