Board logo

标题: [问题求助] [已解决]帮忙写个vbs弹出对话框可以选择运行其中一个可执行文件 [打印本页]
作者: succeed909    时间: 2015-4-7 22:11     标题: [已解决]帮忙写个vbs弹出对话框可以选择运行其中一个可执行文件

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

帮忙写个vbs，使能打开对话框时按“是”运行file1.exe，按“否”运行file2.exe。（即打开vbs弹出的对话框可以选择运行其中一个可执行文件）。
谢谢!
作者: czjt1234    时间: 2015-4-7 22:21

  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
复制代码
作者: succeed909    时间: 2015-4-7 22:50

回复 2# czjt1234


    谢谢！我试下。
作者: succeed909    时间: 2015-4-8 01:35

回复 2# czjt1234


按钮的“是”和“否”能分别改为“备份"和"恢复"吗？
加个"取消"按钮，"VbYesNo"直接改"3"可以显示出取消按钮但点击后是执行File2.exe的。
作者: succeed909    时间: 2015-4-8 01:35

回复 4# pcl_test


    Ok！
作者: pcl_test    时间: 2015-4-8 13:10

本帖最后由 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
复制代码
作者: succeed909    时间: 2015-4-8 18:05

回复 7# pcl_test


    OK！非常感谢！



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