这里分享一个实用的电脑小工具——电脑定时关机。 该脚本运用到编辑框、定时器、进度条、标签、图片框和按钮六种控件,思路很简单,在此不多说了。声明下,这是我做界面练习用的脚本,因此有一些细节不是很完善,不过并不妨碍定时关机,可以放心使用。
界面如下:
源代码如下:
- <?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />
-
- 功能 逻辑型 定时器0_时钟()
- 辅助.消息框("电脑即将关机,请保存好重要资料!")
- 返回 真
- 功能结束
-
- 功能 逻辑型 定时关机()
- 字符型 时间
- 整型 秒
- 时间=编辑框.获得文本("编辑框0")
- 秒=转换.字符型转整型(时间,0)
- 辅助.关机(秒)
- 返回 真
- 功能结束
-
- 功能 逻辑型 进度条()
- 字符型 时间
- 整型 秒
- 时间=编辑框.获得文本("编辑框0")
- 秒=转换.字符型转整型(时间,0)
- 进度条.设置进度("进度条0",10)
- 辅助.等待(1000)
- 整型 计数
- 重复(10)
- 计数=计数+1
- 进度条.设置进度("进度条0",10*计数)
- 辅助.等待(120*秒)
- 重复结束
- 返回 真
- 功能结束
-
- 功能 逻辑型 计时标签()
- 整型 计数
- 辅助.等待(1000)
- 重复(600000000)
- 计数=计数+1
- 标签.设置文本("标签2",转换.整型转字符型(计数))
- 辅助.等待(1000)
- 重复结束
- 返回 真
- 功能结束
-
- 功能 逻辑型 关机_点击()
- 整型 线程句柄0=线程.开启("定时关机提醒.定时器0_时钟")
- 整型 线程句柄1=线程.开启("定时关机提醒.进度条")
- 整型 线程句柄2=线程.开启("定时关机提醒.计时标签")
- 整型 线程句柄3=线程.开启("定时关机提醒.定时关机")
- 返回 真
- 功能结束
-
- 功能 逻辑型 终止_点击()
- 辅助.退出()
- 返回 真
- 功能结束
-
- 空间结束
复制代码
这里要注意的地方是,这个脚本默认关机时间为0秒,也就是说如果不填写任何数字就点“关机”的话,电脑会立即执行关机命令!如果忘记输入数字而不小心点了“关机”的话,应在第一时间点“终止”按钮,否则可能会造成数据丢失。 |