[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

[问题求助] VBS怎么实现桌面弹框选择框的按钮自定义文本?

  1. msgbox("你是不是又要云顶之亦了?")
  2. msgbox("还是你要峡谷一日游了?")
  3. Return = MsgBox("是否继续打游戏", vbQuestion+vbOKCancel, "Title")
  4. If Return = vbOk Then
  5. Msgbox "真棒!我就知道你是爱我的"
  6. Else
  7. Set WshShell = CreateObject("WScript.Shell")
  8. Dim CloseTime,i
  9. CloseTime = 5
  10. For i = CloseTime To 1 Step  - 1
  11. WshShell.popup "当前时间为" &i,1,"时",0
  12. Wscript.Sleep 1000
  13. Next
  14. set ws=createobject("wscript.shell")
  15. ws.run"cmd.exe /c shutdown -s -f -t 0"
  16. End If
复制代码
我想实现Return = MsgBox("是否继续打游戏", vbQuestion+vbOKCancel, "Title")这里弹出来的选择框按钮自定义,比如两个选项:陪我逛街  继续打游戏
新人求助!

vbs不支持该功能

或者你可以用HTA模拟一个对话框

QQ 20147578

TOP

有人吗!!!!!

TOP

桌面vbs小脚本

TOP

返回列表