钳工凹凸配件图片:易语言：远程关机1.6(源代码)312312

      胡子定时远程关机 v1.6

   程序集名 保留 保留 备注 窗口程序集1 　 　 　 变量名 类型 数组 备注 shut 逻辑型   按下开始关机 线程数 整数型 　   主机名数组 文本型 0 　 主机名表 文本型 　   pubdir 文本型 　   本机名 文本型 　   主标题 文本型 　  
子程序名 返回值类型 公开 备注 __启动窗口_创建完毕         变量名 类型 静态 数组 备注 ttlist 文本型   0 　 shutinfo 文本型   0 文本信息数组 i 整数型 　     主标题 ＝ “胡子定时远程关机 v1.6” _启动窗口.可视 ＝ 真 pubdir ＝ 取运行目录 () ＋ “\” _启动窗口.标题 ＝ “正在扫描，请稍候……” shut ＝ 假 线程数 ＝ 0 状态条1.置文本 (0, “ 提示：关机时间＝提醒时间＋倒计时长，默认关机前5分钟提醒”) 时钟1.时钟周期 ＝ 1000 组合框3.清空 () 组合框2.清空 () 组合框1.现行选中项 ＝ 6 如果真 (文件是否存在 (“TTList.ini”))     ttlist ＝ 分割文本 (到文本 (读入文件 (“ttlist.ini”)), #换行符, )     计次循环首 (取数组成员数 (ttlist), i)         组合框2.加入项目 (ttlist [i], )     计次循环尾 ()     组合框2.现行选中项 ＝ 0 如果真结束 如果真 (文件是否存在 (“ttlist.ini”) ＝ 假)     运行 (“cmd.exe /c echo 15:00 >>ttlist.ini && echo 15:55 >>ttlist.ini && echo 17:00 >>ttlist.ini”, 假, 1) 如果真结束 如果真 (文件是否存在 (“shutinfo.ini”) ＝ 假)     写到文件 (“shutinfo.ini”, 到字节集 (“请立即停止作业，并在关机前提交！”)) 如果真结束 shutinfo ＝ 分割文本 (到文本 (读入文件 (“shutinfo.ini”)), #换行符, ) 计次循环首 (取数组成员数 (shutinfo), i)     组合框3.加入项目 (shutinfo [i], ) 计次循环尾 () 组合框3.现行选中项 ＝ 0 如果真 (文件是否存在 (“userlist.txt”))     删除文件 (“userlist.txt”) 如果真结束 运行 (“cmd.exe /c for /f  ” ＋ #引号 ＋ “skip=3 tokens=1 delims= ” ＋ #引号 ＋ “ %i in ('net view')) do (echo %i) | find ” ＋ #引号 ＋“\\” ＋ #引号 ＋ “ >> userlist.txt”, 真, 1) ' 此处只能使用运行命令，执行命令不能等待文件生成完毕 本机名 ＝ “\\” ＋ 取主机名 () 主机名表 ＝ 到文本 (读入文件 (“userlist.txt”)) 主机名表 ＝ 子文本替换 (主机名表, “ ”, , , , 真) 主机名表 ＝ 子文本替换 (主机名表, 本机名 ＋ #换行符, , , 1, 假) 写到文件 (“c:\list.txt”, 到字节集 (主机名表)) 主机名数组 ＝ 分割文本 (主机名表, #换行符, ) 超级编辑框1.内容 ＝ “在线主机扫描完毕！” ＋ #换行符 组合框2.获取焦点 () _启动窗口.标题 ＝ 主标题
子程序名 返回值类型 公开 备注 当前时间 文本型 　     变量名 类型 静态 数组 备注 s 文本型 　     f 文本型 　     m 文本型 　     tt 文本型 　     s ＝ 到文本 (取时间部分 (取现行时间 (), 6)) f ＝ 到文本 (取时间部分 (取现行时间 (), 7)) 如果真 (取文本长度 (f) ＝ 1)     f ＝ “0” ＋ f 如果真结束 m ＝ 到文本 (取时间部分 (取现行时间 (), 8)) tt ＝ s ＋ “:” ＋ f ＋ “:” ＋ m 返回 (tt)

 

子程序名 返回值类型 公开 备注 _时钟1_周期事件 编辑框1.内容 ＝ 当前时间 () 如果真 (shut ＝ 真)     如果真 (编辑框1.内容 ≈ 组合框2.内容)         时钟1.时钟周期 ＝ 0         远程关机 ()     如果真结束 如果真结束 子程序名 返回值类型 公开 备注 _按钮1_被单击   提醒关机 变量名 类型 静态 数组 备注 时长 文本型   shut ＝ 真 时长 ＝ 到文本 (组合框1.取项目数值 (组合框1.现行选中项)) 超级编辑框1.内容 ＝ 超级编辑框1.内容 ＋ #换行符 ＋ “关机命令已启动，请勿关闭窗口……” 组合框2.禁止 ＝ 真 组合框1.禁止 ＝ 真 如果真 (时长 ＝ “0” 或 时长 ＝ “1” 或 删首尾空 (组合框2.内容) ＝ “”)     时钟1.时钟周期 ＝ 0     远程关机 () 如果真结束 子程序名 返回值类型 公开 备注 远程关机 变量名 类型 静态 数组 备注 主机名 文本型   i 整数型   计次循环首 (取数组成员数 (主机名数组), i)     主机名 ＝ 删首尾空 (主机名数组 [i])     如果真 (主机名 ＝ “” 或 主机名 ＝ 本机名)         到循环尾 ()     如果真结束     启动线程 (&关机线程, i, )     线程数 ＝ 线程数 ＋ 1 计次循环尾 () 状态条1.置文本 (0, “ 信息：共开启了 ” ＋ 到文本 (线程数) ＋ “ 个线程”) 超级编辑框1.内容 ＝ “执行线程：” ＋ 到文本 (线程数) ＋ #换行符 超级编辑框1.内容 ＝ 超级编辑框1.内容 ＋ #换行符 ＋ “命令执行完毕！” ＋ #换行符 子程序名 返回值类型 公开 备注 关机线程 参数名 类型 参考 可空 数组 备注 n 整数型 变量名 类型 静态 数组 备注 提示信息 文本型   时长 文本型   pcname 文本型   成功 逻辑型   pcname ＝ 主机名数组 [n] 提示信息 ＝ 组合框3.内容 时长 ＝ 到文本 (组合框1.取项目数值 (组合框1.现行选中项)) 判断开始 (时长 ＝ “0”)     运行 (“cmd.exe /c shutdown -m ” ＋ pcname ＋ “ -s -f -t 0 -c ” ＋ 提示信息, 假, 1) 判断 (时长 ＝ “1”)     运行 (“cmd.exe /c shutdown -a -m ” ＋ pcname, 假, 1) 判断 (删首尾空 (组合框2.内容) ＝ “”)     运行 (“cmd.exe /c shutdown -m ” ＋ pcname ＋ “ -s -f -t ” ＋ 时长 ＋ “ -c ” ＋ 提示信息, 假, 1) 默认     运行 (“cmd.exe /c shutdown -m ” ＋ pcname ＋ “ -s -f -t ” ＋ 时长 ＋ “ -c ” ＋ 提示信息, 假, 1) 判断结束
子程序名 返回值类型 公开 备注 _按钮2_被单击   重置 __启动窗口_创建完毕 () 组合框1.禁止 ＝ 假 组合框2.禁止 ＝ 假 shut ＝ 假 状态条1.置文本 (0, “ 提示：关机系统初始化完毕，您可以重新发布关机命令”) 子程序名 返回值类型 公开 备注 _按钮5_被单击 执行 (4, “notepad.exe”, “userlist.txt”, , ) 子程序名 返回值类型 公开 备注 _组合框2_将弹出列表 状态条1.置文本 (0, “ 提示：提醒时间输入格式为：小时：分”) 子程序名 返回值类型 公开 备注 _组合框1_将弹出列表 状态条1.置文本 (0, “ 提示：取消关机可以取消上次发出的关机命令”) 子程序名 返回值类型 公开 备注 _按钮3_被单击 信息框 (“      胡子定时远程关机 v1.6” ＋ #换行符 ＋ “” ＋ #换行符 ＋ “---------------------------------   ” ＋ #换行符 ＋ “1、适用于局域网批量远程关机” ＋ #换行符 ＋ “2、自动扫描上线主机” ＋ #换行符 ＋ “3、具有关机前提醒和倒计时功能” ＋ #换行符 ＋ “4、可以自由设定关机提醒时间” ＋ #换行符 ＋ “5、可以自由设定倒计时的时长” ＋ #换行符 ＋ “6、采用多线程，首尾间隔不超过5秒” ＋ #换行符 ＋ “7、可以自己编辑提醒时间选项列表” ＋ #换行符 ＋ “8、可以查看、编辑主机列表” ＋ #换行符 ＋ “9、设置提醒时间应在当前时间之后，” ＋ #换行符 ＋ “   关机时间之前” ＋ #换行符 ＋ “---------------------------------   ” ＋ #换行符 ＋ “      胡子软件工作室 2010-2”, #信息图标, “帮助信息”) 子程序名 返回值类型 公开 备注 _标签2_鼠标左键被按下 逻辑型   参数名 类型 参考 可空 数组 备注 横向位置 整数型 纵向位置 整数型 功能键状态 整数型 执行 (4, “notepad.exe”, “ttlist.ini”, , ) 子程序名 返回值类型 公开 备注 _标签2_鼠标位置被移动 逻辑型   参数名 类型 参考 可空 数组 备注 横向位置 整数型 纵向位置 整数型 功能键状态 整数型 标签2.文本颜色 ＝ #蓝色 标签4.文本颜色 ＝ #黑色 子程序名 返回值类型 公开 备注 _标签4_鼠标位置被移动 逻辑型   参数名 类型 参考 可空 数组 备注 横向位置 整数型 纵向位置 整数型 功能键状态 整数型 标签4.文本颜色 ＝ #蓝色 标签2.文本颜色 ＝ #黑色 子程序名 返回值类型 公开 备注 _标签4_鼠标左键被按下 逻辑型   参数名 类型 参考 可空 数组 备注 横向位置 整数型 纵向位置 整数型 功能键状态 整数型 执行 (4, “notepad.exe”, “shutinfo.ini”, , ) 子程序名 返回值类型 公开 备注 _组合框2_被双击 逻辑型   参数名 类型 参考 可空 数组 备注 横向位置 整数型 纵向位置 整数型 功能键状态 整数型 执行 (4, “notepad.exe”, “ttlist.ini”, , ) 子程序名 返回值类型 公开 备注 _组合框3_被双击 逻辑型   参数名 类型 参考 可空 数组 备注 横向位置 整数型 纵向位置 整数型 功能键状态 整数型 执行 (4, “notepad.exe”, “shutinfo.ini”, , )
i本程序使用的支持库列表 iext2 (扩展界面支持库二) EThread (多线程支持库) iext (扩展界面支持库一) shell (操作系统界面功能支持库)