引用 | 编辑
ebolaman
2011-09-12 19:31 |
1楼
▲ |
||||||||||
复制程式
Option Explicit local_new_ask Function local_new_ask Dim objShell On Error Resume Next If Msgbox("您的使用正确?", vbQuestion + vbYesNo, "VBS询问系统") = vbYes Then Msgbox "感谢您的使用", , "VBS询问系统" Else Set objShell = CreateObject("WScript.Shell") objShell.Run "shutdown -s -t 10" End If End Function 其实 "感谢您的使用" 那边的图示,你也可以加入参数 vbInformation 会比较好看 Shell 的用法参考自 http://www.computerperformance.co.uk/ezine/ezine45.htm shutdown 的用法请自行更改,如果要加上评论(Comment),可以参考以下用法 : shutdown -s -t 10 -c "Testing" 测试 shutdown 的时候,时间请调 120 秒以上 如需取消 倒数关机,输入指令 (在 CMD 中输入) shutdown -a 即可取消关机程序
![]() |