CrLf

Set WS = CreateObject("Wscript.Shell")

a = "calc"
b = "cmd"

subIn()

Sub subIn()
	inp = Trim(InputBox(a & " or " & b & " ?"))
	
	Select Case UCase(inp)
		Case "" WS.Run(a)
		Case "A" WS.Run(a)
		Case "B" WS.Run(b)
		Case Else subIn()
	End Select
End Sub
复制代码

CrLf

笨办法：

@echo off&set "errorlevel="
more +8 %0|debug asc.com||exit/b
asc.com
if %errorlevel%==0  start "" calc
if %errorlevel:97=65%==65 start "" calc
if %errorlevel:98=66%==66 start "" cmd
pause&exit

e100 ba 40 0 8e da 89 1e 6c 0 b2 60 b4 0b cd 21 3c
e110 0 75 0a 39 16 6c 0 7c f4 b0 0 eb 04 b4 08 cd
e120 21 b4 4c cd 21
rcx
25
w
q
复制代码

CrLf

回复 5# vtgg


    3楼是 bat 脚本，不是 vbs