pcl_test

回复 5# succeed909
vbs无法自定义Msgbox按钮

Set WshShell = CreateObject("Wscript.Shell")
'vbYesNoCancel也可改为3
n = Msgbox("按“是”进行备份，按“否”进行恢复", vbYesNoCancel,"请选择")
Select Case n
    'Case vbYes
    Case 6
    WshShell.Run "file1.exe", 0
    'Case vbNO
    Case 7
    WshShell.Run "file2.exe", 0
    'Case vbCancel
    Case 2
    Wscript.Quit
End Select
复制代码