Board logo

标题: [问题求助] VBS脚本如何弹出窗口供用户选择运行指定软件？ [打印本页]
作者: vtgg    时间: 2012-7-4 12:59     标题: VBS脚本如何弹出窗口供用户选择运行指定软件？

求弹出窗口，选择运行A或B软件，选择完退出并运行，未选择则运行A软件
作者: CrLf    时间: 2012-7-4 13:17

  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    时间: 2012-7-4 14:26

谢了，用上了。

如果能，按A键，就直接运行a软件，不用按回车就更好了。选择时间5秒，未选直接退出vbs,再运行a软件
作者: CrLf    时间: 2012-7-4 15:44

笨办法：
  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    时间: 2012-7-4 16:41

回复 4# CrLf


    不知道哪出错了。还是用上面的那个吧
作者: CrLf    时间: 2012-7-4 19:10

回复 5# vtgg


    3楼是 bat 脚本，不是 vbs



欢迎光临 批处理之家 (http://bathome.net./) Powered by Discuz! 7.2