第 1 个叙述使用 WScript 对象的 ScriptFullName 属性来读取路径和 Script 的文件名。您
可以使用第 2 行搭配 InStrRev 函数从后面开始(从最后 1 个字符到第 1 个「\」字符为止)
搜寻字符串。如果这个字符被找到,那么从字符串的第 1 个字符到目前位置的子字符串会
被以 Left 函数取得。这个函数需要字符串和指向字符串中最后一个有效字符的指针当作参
数。最后一个有效字符的位置会被以 IntStrRev 函数传回。然后文件名从这个字符串中被分
解出来而结果会被指定给 path 变量。使用 showModalDialog 的好处是在这个方法的呼叫之
后,Script 会暂停直到使用者关闭对话盒为止。这个 Script 使用下面的命令来显示讯息(在
浏览器窗口被关闭之后才出现):
WScript.Echo "对话盒被关闭了!"
oIE.Quit ' 关闭【Internet Explorer】
在第 2 行叙述中使用浏览器的 Quit 方法来结束浏览器。否则, Internet Explorer 的实体
会继续留在内存中直到 Script 结束。程序 9-3 显示的是使用 showModalDialog 方法的完整程
序代码。(要以 Internet Explorer 4 来使用这个范例,您必须改变加载命令中的档名为
About.htm。)
程序 9-3 About.vbs
'************************************************
' 档案: About.vbs (WSH sample in VBScript)
' 作者: (c) G. Born
'
' 使用【Internet Explorer 5】来显示包含 HTML 文件的
' 强制回应的【关于】对话盒
'************************************************
Option Explicit
Dim oIE ' 【Internet Explorer】物件
Dim path
Dim Title
' 取得 Script 档案的路径,因为对话盒中显示的 HTML 文件
' 必须被放置在相同的文件夹中
path = WScript.ScriptFullName
path = Left(path, InStrRev(path, "\"))
' 启动【Internet Explorer】
Set oIE = WScript.CreateObject("InternetExplorer.Application")
oIE.navigate "about:blank" ' 空白页
' 窗口是隐藏的(默认值),所以不需要多设定窗口的选项