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

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

[复制链接]
发表于 2015-4-7 22:11:56 | 显示全部楼层 |阅读模式
本帖最后由 succeed909 于 2015-4-8 18:06 编辑

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

评分

参与人数 1PB +2 收起 理由
Batcher + 2 感谢给帖子标题标注[已解决]字样

查看全部评分

发表于 2015-4-7 22:21:48 | 显示全部楼层
  1. Set WshShell = CreateObject("Wscript.Shell")
  2. n = Msgbox("按“是”运行file1.exe,按“否”运行file2.exe", vbYesNo)
  3. If n = vbYes Then
  4.     WshShell.Run "file1.exe", 0
  5. Else
  6.     WshShell.Run "file2.exe", 0
  7. End If
复制代码
 楼主| 发表于 2015-4-7 22:50:58 | 显示全部楼层
回复 2# czjt1234


    谢谢!我试下。
 楼主| 发表于 2015-4-8 01:35:04 | 显示全部楼层
回复 2# czjt1234


按钮的“是”和“否”能分别改为“备份"和"恢复"吗?
加个"取消"按钮,"VbYesNo"直接改"3"可以显示出取消按钮但点击后是执行File2.exe的。
 楼主| 发表于 2015-4-8 01:35:49 | 显示全部楼层
回复 4# pcl_test


    Ok!
发表于 2015-4-8 13:10:50 | 显示全部楼层
本帖最后由 pcl_test 于 2015-4-8 13:14 编辑

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

评分

参与人数 2技术 +2 收起 理由
boyangcoco + 1 Very Good!
Batcher + 1 乐于助人

查看全部评分

 楼主| 发表于 2015-4-8 18:05:22 | 显示全部楼层
回复 7# pcl_test


    OK!非常感谢!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

Archiver|手机版|小黑屋|批处理之家 ( 渝ICP备10000708号 )

GMT+8, 2026-3-17 18:22 , Processed in 0.013527 second(s), 8 queries , File On.

Powered by Discuz! X3.5

© 2001-2026 Discuz! Team.

快速回复 返回顶部 返回列表