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

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

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

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

评分人数

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

回复 7# pcl_test


    OK!非常感谢!

TOP

本帖最后由 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

评分人数

TOP

回复 4# pcl_test


    Ok!

TOP

回复 2# czjt1234


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

TOP

回复 2# czjt1234


    谢谢!我试下。

TOP

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

QQ 20147578

TOP

返回列表