批处理之家 » VBS求助&讨论 » VBS脚本如何弹出窗口供用户选择运行指定软件？

[新手上路]批处理新手入门导读	[视频教程]批处理基础视频教程	[视频教程]VBS基础视频教程	[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动	[批处理精品]CMD命令50条不能说的秘密	[在线下载]第三方命令行工具	[在线帮助]VBScript / JScript 在线参考

返回列表发帖

Rank: 2

帖子: 9
积分: 183
技术: 0
捐助: 0
注册时间: 2008-10-31

1楼 跳转到 » 倒序看帖

字体大小: tT

发表于 2012-7-4 12:59 | 只看该作者

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

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

Rank: 8 Rank: 8

帖子: 6388
积分: 18843
技术: 982
捐助: 100
注册时间: 2010-10-9

2楼

发表于 2012-7-4 13:17 | 只看该作者

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

1 评分人数

vtgg: 乐于助人技术 + 1

链接：在线第三方命令行工具下载 bat、vbs、js 原生混编

Rank: 2

帖子: 9
积分: 183
技术: 0
捐助: 0
注册时间: 2008-10-31

3楼

发表于 2012-7-4 14:26 | 只看该作者

谢了，用上了。

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

Rank: 8 Rank: 8

帖子: 6388
积分: 18843
技术: 982
捐助: 100
注册时间: 2010-10-9

4楼

发表于 2012-7-4 15:44 | 只看该作者

笨办法：

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

链接：在线第三方命令行工具下载 bat、vbs、js 原生混编

Rank: 2

帖子: 9
积分: 183
技术: 0
捐助: 0
注册时间: 2008-10-31

5楼

发表于 2012-7-4 16:41 | 只看该作者

回复 4# CrLf

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

Rank: 8 Rank: 8

帖子: 6388
积分: 18843
技术: 982
捐助: 100
注册时间: 2010-10-9

6楼

发表于 2012-7-4 19:10 | 只看该作者

回复 5# vtgg

3楼是 bat 脚本，不是 vbs

链接：在线第三方命令行工具下载 bat、vbs、js 原生混编