批处理之家 - Powered by Discuz! Board

标题: [问题求助] VBS怎么实现桌面弹框选择框的按钮自定义文本？ [打印本页]

作者: d68502268 时间: 2019-8-3 15:45 标题: VBS怎么实现桌面弹框选择框的按钮自定义文本？

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
复制代码

我想实现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模拟一个对话框

欢迎光临批处理之家 (http://bbs.bathome.net/)