Vbscript 如何在If/Else语句中打开ie.exe_Vbscript

Vbscript 如何在If/Else语句中打开ie.exe

vbscript

Vbscript 如何在If/Else语句中打开ie.exe,vbscript,Vbscript,我正在尝试编写一段代码，因此当用户在我的消息框中单击“是”时，我的yes.gif将在IE中打开，但如果用户单击“否”，我希望我的no.gif将在IE中打开。我在第5行出现synax错误（Else语句）我的代码： Result = MsgBox("Text", 20, "Title") If Result = vbYes Then Set objExplorer = CreateObject("InternetExplorer.Application") Else Result = vbNo

我正在尝试编写一段代码，因此当用户在我的消息框中单击“是”时，我的yes.gif将在IE中打开，但如果用户单击“否”，我希望我的no.gif将在IE中打开。我在第5行出现synax错误（

Else

语句）

我的代码：

Result = MsgBox("Text", 20, "Title")

If Result = vbYes Then Set objExplorer = CreateObject("InternetExplorer.Application")
Else Result = vbNo Then Set objExplorer1 = CreateObject("InternetExplorer.Application")

With objExplorer
    .Navigate "about:blank"
    .Visible = 1
    .Document.Title = "Right Decision"
    .Toolbar = False
    .Statusbar = False
    .Top = 500
    .Left = 500
    .Height = 400
    .Width = 600
    .Document.Body.InnerHTML = "<img src='C:\User\yes.gif'>"
End With

With objExplorer1
    .Navigate "about:blank"
    .Visible = 1
    .Document.Title = "Wrong Decision"
    .Toolbar = False
    .Statusbar = False
    .Top = 500
    .Left = 500
    .Height = 400
    .Width = 600
    .Document.Body.InnerHTML = "<img src='C:\User\no.gif'>"
End With

Result=MsgBox（“文本”，20，“标题”）
如果Result=vbYes，则设置objExplorer=CreateObject（“InternetExplorer.Application”）
Else Result=vbNo然后设置objExplorer1=CreateObject（“InternetExplorer.Application”）
使用objExplorer
.导航“关于：空白”
.Visible=1
.Document.Title=“正确的决策”
.Toolbar=False
.Statusbar=错误
.Top=500
.左=500
.高度=400
.宽度=600
.Document.Body.InnerHTML=“”
以
使用objExplorer1
.导航“关于：空白”
.Visible=1
.Document.Title=“错误决策”
.Toolbar=False
.Statusbar=错误
.Top=500
.左=500
.高度=400
.宽度=600
.Document.Body.InnerHTML=“”
以

您的代码存在多个问题：

```
MsgBox
```
中唯一可能的值是
```
vbYes
```
和
```
vbNo
```
，因为您使用
```
vbYesNo
```
标志启动它。由于结果是二进制的，因此不需要进行多次比较（无论如何，这种比较在VBScript中并不起作用）
您的
```
If
```
语句使用单行
```
If..Then
```
表单，这意味着后续的
```
Else
```
无效。即使它不是无效的，语法仍然是不正确的
当字符串和图像名称是唯一的区别时，启动不同的IE实例是没有意义的
您的代码尝试配置这两个实例，但无论用户选择哪个实例，其中一个都将无效

使用

If..Then..Else

定义实际不同的设置，然后在条件后创建IE实例并相应地进行配置

Result=MsgBox（“文本”，vbYesNo+vbCritical，“标题”）
如果结果=vbyes，则
title=“正确的决定”
picture=“C:\User\yes.gif”
其他的
title=“错误的决定”
picture=“C:\User\no.gif”
如果结束
设置ie=CreateObject（“InternetExplorer.Application”）
与ie
.导航“关于：空白”
.Visible=True
.Document.Title=标题
.Toolbar=False
.Statusbar=错误
.Top=500
.左=500
.高度=400
.宽度=600
.Document.Body.InnerHtml=“”
以