本帖最后由 pcl_test 于 2015-4-8 13:14 编辑
回复 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
复制代码
|