请问谁可以帮我做一个Vbs

Home Home
引用 | 编辑 zsx123665
2011-09-12 10:01
楼主
推文 x0
内容大概是这样:

视窗标题:VBS询问系统
图标:问号
内容:您的使用正确?
..

访客只能看到部份内容,免费 加入会员



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






本帖包含附件
档名: zip VBS询问系统.rar   (2022-06-09 14:19 / 1 KB)  
VBS
下载次数:5


献花 x1