分享一个实用的电脑关机工具

风歌

这里分享一个实用的电脑小工具——电脑定时关机。

该脚本运用到编辑框、定时器、进度条、标签、图片框和按钮六种控件，思路很简单，在此不多说了。声明下，这是我做界面练习用的脚本，因此有一些细节不是很完善，不过并不妨碍定时关机，可以放心使用。

界面如下：

源代码如下：

1. 
   
2. 
   
3. <?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />
   
4. 
   
5. 功能 逻辑型 定时器0_时钟()
   
6. 辅助.消息框("电脑即将关机，请保存好重要资料！")
   
7. 返回 真
   
8. 功能结束
   
9. 
   
10. 功能 逻辑型 定时关机()
    
11. 字符型 时间
    
12. 整型 秒
    
13. 时间=编辑框.获得文本("编辑框0")
    
14. 秒=转换.字符型转整型(时间,0)
    
15. 辅助.关机(秒)
    
16. 返回 真
    
17. 功能结束
    
18. 
    
19. 功能 逻辑型 进度条()
    
20. 字符型 时间
    
21. 整型 秒
    
22. 时间=编辑框.获得文本("编辑框0")
    
23. 秒=转换.字符型转整型(时间,0)
    
24. 进度条.设置进度("进度条0",10)
    
25. 辅助.等待(1000)
    
26. 整型 计数
    
27. 重复(10)
    
28. 计数=计数+1
    
29. 进度条.设置进度("进度条0",10*计数)
    
30. 辅助.等待(120*秒)
    
31. 重复结束
    
32. 返回 真
    
33. 功能结束
    
34. 
    
35. 功能 逻辑型 计时标签()
    
36. 整型 计数
    
37. 辅助.等待(1000)
    
38. 重复(600000000)
    
39.     计数=计数+1
    
40.     标签.设置文本("标签2",转换.整型转字符型(计数))
    
41.     辅助.等待(1000)
    
42. 重复结束
    
43. 返回 真
    
44. 功能结束
    
45. 
    
46. 功能 逻辑型 关机_点击()
    
47. 整型 线程句柄0=线程.开启("定时关机提醒.定时器0_时钟")
    
48. 整型 线程句柄1=线程.开启("定时关机提醒.进度条")
    
49. 整型 线程句柄2=线程.开启("定时关机提醒.计时标签")
    
50. 整型 线程句柄3=线程.开启("定时关机提醒.定时关机")
    
51. 返回 真
    
52. 功能结束
    
53. 
    
54. 功能 逻辑型 终止_点击()
    
55. 辅助.退出()
    
56. 返回 真
    
57. 功能结束
    
58. 
    
59. 空间结束

复制代码

这里要注意的地方是，这个脚本默认关机时间为0秒，也就是说如果不填写任何数字就点“关机”的话，电脑会立即执行关机命令！如果忘记输入数字而不小心点了“关机”的话，应在第一时间点“终止”按钮，否则可能会造成数据丢失。

xxw198967

dddddddddddddddd

dingqiu08

你这是练习用的吧，没有什么实用价值啊

250136457

学习一下

风歌

回复 3楼dingqiu08的帖子

看你个人需要吧

7189435

怎么样才可以下载啊1

171581540

我也要我也

thunder

这里好多高手哦！