Vbs脚本在消息框中打开程序

拍摄此代码:

Option Explicit
Dim Title,Answer,ws,Site
Site = "https://stackoverflow.com/"
Title = "Open iexplore.exe"
Answer = MsgBox("Did you want to open iexplore.exe ?",VbQuestion+VbYesNo,Title)
If Answer = vbYes Then
    set ws = CreateObject("wscript.shell")
    ws.run("iexplore.exe" &" "& Site)
End If
Wscript.Quit()

您可以使用此选项:

response = MsgBox("Would you like to open Internet Explorer?", vbYesNo)

If response = vbYes Then
    WScript.CreateObject("WScript.Shell").Run("iexplore")
End If