批处理之家 » VBS求助&讨论 » VBS怎么实现桌面弹框选择框的按钮自定义文本？

d68502268 发表于 2019-8-3 15:45

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

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

d68502268 发表于 2019-8-3 15:48

桌面vbs小脚本

d68502268 发表于 2019-8-3 15:54

有人吗！！！！！

czjt1234 发表于 2019-8-4 17:03

vbs不支持该功能

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

查看完整版本: VBS怎么实现桌面弹框选择框的按钮自定义文本？