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