VBS怎么实现桌面弹框选择框的按钮自定义文本？

d68502268

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")这里弹出来的选择框按钮自定义，比如两个选项：陪我逛街  继续打游戏
新人求助！

d68502268

桌面vbs小脚本

d68502268

有人吗！！！！！

czjt1234

vbs不支持该功能

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