返回列表 发帖
succeed909

Rank: 1

帖子
18 
积分
39 
技术
0  
捐助
0  
注册时间
2015-4-7 
1楼 跳转到 » 正序看帖
打印
tT
发表于 2015-4-7 22:11 | 只看该作者

[问题求助] [已解决]帮忙写个vbs弹出对话框可以选择运行其中一个可执行文件

本帖最后由 succeed909 于 2015-4-8 18:06 编辑

帮忙写个vbs，使能打开对话框时按“是”运行file1.exe，按“否”运行file2.exe。（即打开vbs弹出的对话框可以选择运行其中一个可执行文件）。
谢谢!
1

评分人数

    • Batcher: 感谢给帖子标题标注[已解决]字样PB + 2
收藏 分享

succeed909

Rank: 1

帖子
18 
积分
39 
技术
0  
捐助
0  
注册时间
2015-4-7 
7楼
发表于 2015-4-8 18:05 | 只看该作者
回复 7# pcl_test


    OK！非常感谢！

TOP

pcl_test

Rank: 8Rank: 8

帖子
3040 
积分
5332 
技术
685  
捐助
0  
注册时间
2014-10-19 
6楼
发表于 2015-4-8 13:10 | 只看该作者
本帖最后由 pcl_test 于 2015-4-8 13:14 编辑

回复 5# succeed909
vbs无法自定义Msgbox按钮
Set WshShell = CreateObject("Wscript.Shell")
'vbYesNoCancel也可改为3
n = Msgbox("按“是”进行备份，按“否”进行恢复", vbYesNoCancel,"请选择")
Select Case n
    'Case vbYes
    Case 6
    WshShell.Run "file1.exe", 0
    'Case vbNO
    Case 7
    WshShell.Run "file2.exe", 0
    'Case vbCancel
    Case 2
    Wscript.Quit
End SelectCOPY
2

评分人数

TOP

succeed909

Rank: 1

帖子
18 
积分
39 
技术
0  
捐助
0  
注册时间
2015-4-7 
5楼
发表于 2015-4-8 01:35 | 只看该作者
回复 4# pcl_test


    Ok！

TOP

succeed909

Rank: 1

帖子
18 
积分
39 
技术
0  
捐助
0  
注册时间
2015-4-7 
4楼
发表于 2015-4-8 01:35 | 只看该作者
回复 2# czjt1234


按钮的“是”和“否”能分别改为“备份"和"恢复"吗？
加个"取消"按钮，"VbYesNo"直接改"3"可以显示出取消按钮但点击后是执行File2.exe的。

TOP

succeed909

Rank: 1

帖子
18 
积分
39 
技术
0  
捐助
0  
注册时间
2015-4-7 
3楼
发表于 2015-4-7 22:50 | 只看该作者
回复 2# czjt1234


    谢谢！我试下。

TOP

czjt1234

Rank: 6Rank: 6

帖子
1127 
积分
1648 
技术
117  
捐助
0  
注册时间
2010-4-30 
2楼
发表于 2015-4-7 22:21 | 只看该作者 
Set WshShell = CreateObject("Wscript.Shell")
n = Msgbox("按“是”运行file1.exe，按“否”运行file2.exe", vbYesNo)
If n = vbYes Then
    WshShell.Run "file1.exe", 0
Else
    WshShell.Run "file2.exe", 0
End IfCOPY

QQ 20147578

TOP

返回列表