[问题求助] VBS脚本如何弹出窗口供用户选择运行指定软件？

vtgg

求弹出窗口，选择运行A或B软件，选择完退出并运行，未选择则运行A软件

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

vtgg

谢了，用上了。

如果能，按A键，就直接运行a软件，不用按回车就更好了。选择时间5秒，未选直接退出vbs,再运行a软件

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

vtgg

回复 4# CrLf


    不知道哪出错了。还是用上面的那个吧

CrLf

回复 5# vtgg


    3楼是 bat 脚本，不是 vbs