VBS脚本如何弹出窗口供用户选择运行指定软件？

vtgg

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

CrLf

1. Set WS = CreateObject("Wscript.Shell")
   
2. 
   
3. a = "calc"
   
4. b = "cmd"
   
5. 
   
6. subIn()
   
7. 
   
8. Sub subIn()
   
9.         inp = Trim(InputBox(a & " or " & b & " ?"))
   
10.        
    
11.         Select Case UCase(inp)
    
12.                 Case "" WS.Run(a)
    
13.                 Case "A" WS.Run(a)
    
14.                 Case "B" WS.Run(b)
    
15.                 Case Else subIn()
    
16.         End Select
    
17. End Sub

复制代码

vtgg

谢了，用上了。

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

CrLf

笨办法：

1. @echo off&set "errorlevel="
   
2. more +8 %0|debug asc.com||exit/b
   
3. asc.com
   
4. if %errorlevel%==0  start "" calc
   
5. if %errorlevel:97=65%==65 start "" calc
   
6. if %errorlevel:98=66%==66 start "" cmd
   
7. pause&exit
   
8. 
   
9. e100 ba 40 0 8e da 89 1e 6c 0 b2 60 b4 0b cd 21 3c
   
10. e110 0 75 0a 39 16 6c 0 7c f4 b0 0 eb 04 b4 08 cd
    
11. e120 21 b4 4c cd 21
    
12. rcx
    
13. 25
    
14. w
    
15. q

复制代码

vtgg

回复 4# CrLf


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

CrLf

回复 5# vtgg


    3楼是 bat 脚本，不是 vbs