|
引用 | 编辑
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 即可取消关机程序
 x1
|
|||||||||||
