问：
你好，脚本专家！在我的一个脚本中，我显示一个 HTML 页面，其中包含我希望用户阅读的信息。当他们阅读完该页面之后，他们应该能按某个键使该网页消失。然而，网页并未消失，而是出现了一个消息框，提示说：“您正查看的网页正尝试关闭该窗口。是否要关闭该窗口？”然后，用户必须单击“是”，才能关掉这个网页。如何解决该问题？
-- RR
答：
你好，RR。顺便祝贺您：这是我们在“你好，脚本专家！”专栏中遇到的最长的问题了。不知道有没有奖赏？没有，但有一点可以肯定，有一天您可以把这件事讲给您的孙子听。
我们并没有说它会给您的孙子留下印象。但是，如果您是像脚本专家这样的人（但愿您不是），那么您决不会放过任何成绩，哪怕微不足道。毕竟，如果没有这些不给任何人留下印象的微不足道的成绩，我们就写不出年终总结啦！
无论如何，假定您有一个如下所示的 HTML 文件：
<BODY onkeypress='self.close()'>
Press any key to close this window.<BR>
</BODY>
当然，您的页面可能更加富有奇思妙想，不过思路是一样的：您已经获得某种网页，其中在 <BODY> 标记后附有 onkeypress 事件。如果此页面是活动窗口且有人按了键盘上的任意键，就会运行下面的小脚本：
self.close()
这个小脚本将关闭该页面。然而，正如您所注意到的，用户将看到一个消息框出现，询问他们是否确实要关闭该页面。这是 Internet Explorer 中内置的一种安全措施：它主要为了防止他人编写脚本来关闭您的网页。但是，在此情况下，就会阻止任何人（包括您自己）使用脚本关闭页面。（当然，您可以单击“关闭”按钮来关闭页面。但很明显，这不是您所要做的。）
那么，如何解决此问题？实际上，我们知道两种解决此问题的方法。第一种方法是，您可以简单地将文件扩展名从 .htm 更改为 .hta。如此一来，原本平淡无奇的 HTML 页面就转化为 – HTML 应用程序 (HTA)。与 HTML 页面相比，HTA 采用完全不同的运行进程和安全模型。因此，self.close() 方法将能够在不生成消息框的情况下关闭 HTA。
这是一种非常简单的解决方法。然而，不幸的是，这不是一种“万无一失”的解决方法；正是因为它们采用不同的安全模型，有的 HTML 页面不能转换为 HTA。但是没关系：我们说过，还有另一种方法可以解决此问题。如果您不愿意或无法将 HTML 页面转换为 HTA，那么您要做的所有事情就是添加一个 Window_OnLoad 子例程，使您的网页如下所示：
<SCRIPT LANGUAGE="VBScript">
Sub Window_Onload
window.opener = "x"
End Sub
</SCRIPT>
<BODY onkeypress='self.close()'>
Press any key to close this window.<BR>
</BODY>
是的，这确实非常简单；事实上，该子例程本身仅包含一行代码：
window.opener = "x"
Opener 属性是对已打开您的窗口的窗口的引用。当您弹出您的网页时，Opener 属性为 Null。这是所期望出现的：毕竟，您的网页不是从另一窗口打开的。但是，在 Internet Explorer 中，不允许脚本关闭不具有 Opener 的页面。幸运的是，您要做的所有事情就是将 Opener 属性的值随便设成某个值（即使这些值是无意义的，像 x），然后您的脚本就可以正常工作了。
应指出的是，我们的答案是基于您的特殊情况的：您是从桌面打开 HTML 文件的。看起来这种方法也可用于由 Web 服务器提供的 HTML 页面。但是，我们只提供了一个基本测试，所以我们只能说：它似乎也适用于该情况。但这也不错：毕竟，虽然仅仅是似乎可行，但对于脚本专家们就是伟大的成就！
看了一下是不是关键比较怪呢，解决问题的方法并没有给出，这里小编就为大家补充一下思路
1、其实用vbs来关闭页面真的没必须用js一样实现，页面运行完成以后自动输出关闭页面的代码
具体的可以参考这篇文章：www.jb51.net/article/44514.htm
2、vbs根据url关闭特定ie窗口
开始的时候本想用bat来写~
taskkill /f /fi "windowtitle eq 小游戏*" /im iexplore.exe
taskkill /f /fi "windowtitle eq 西*" /im iexplore.exe
但是藐视这样就把整个iexplorer.exe关闭了~~并不等达到过滤的问题~
于是乎想到了微软的亲儿子~Vbs。。。。
'By：林小七
'2014.1.30
kill4399 = "http://www.4399.com"
killGame = "http://xp.4399.com/"
set sh = CreateObject("Shell.Application")
set wnds = sh.windows()
if Weekday(date)=0 Or Weekday(date)=7 then
Wscript.Quit
end if
while(true)
for each wnd in wnds
if InStr(1, wnd.LocationURL, kill4399, 1) then wnd.Quit()
if InStr(1, wnd.LocationURL, killGame, 1) then wnd.Quit()
next
Wscript.Sleep 20000
Wend
~嘿嘿，家里只有ie~~~并且只能有ie~~~哈~
3、只支持ie浏览器
Dim objIE
Set objIE = CreateObject("InternetExplorer.Application")
objIE.Navigate "about:blank"
objIE.Visible = True
MsgBox "关闭IE"
objIE.Quit
Set objIE = Nothing
vbs另类关闭窗口方法
strWindowTitle="QQ2009;计算器;close.vbs - 记事本" '要关闭的窗口标题多个用;分隔开
Set bjWord = CreateObject("Word.Application")
Set colTasks = objWord.Tasks
strWindowTitles=Split(strWindowTitle,";")
For Each strTitle In strWindowTitles
If colTasks.Exists(strTitle) Then
strAnswer=MsgBox("发现指定窗口【"&strTitle&"】是否关闭？",vbYesNo+vbQuestion,"")
If strAnswer=vbYes Then
colTasks(strTitle).Close
End If
End If
Next
objWord.Quit
其他的大家可以自行发挥，个人比较倾向使用第一种方法。
《魔兽世界》大逃杀！60人新游玩模式《强袭风暴》3月21日上线
暴雪近日发布了《魔兽世界》10.2.6 更新内容，新游玩模式《强袭风暴》即将于3月21 日在亚服上线，届时玩家将前往阿拉希高地展开一场 60 人大逃杀对战。
艾泽拉斯的冒险者已经征服了艾泽拉斯的大地及遥远的彼岸。他们在对抗世界上最致命的敌人时展现出过人的手腕，并且成功阻止终结宇宙等级的威胁。当他们在为即将于《魔兽世界》资料片《地心之战》中来袭的萨拉塔斯势力做战斗准备时，他们还需要在熟悉的阿拉希高地面对一个全新的敌人──那就是彼此。在《巨龙崛起》10.2.6 更新的《强袭风暴》中，玩家将会进入一个全新的海盗主题大逃杀式限时活动，其中包含极高的风险和史诗级的奖励。
《强袭风暴》不是普通的战场，作为一个独立于主游戏之外的活动，玩家可以用大逃杀的风格来体验《魔兽世界》，不分职业、不分装备（除了你在赛局中捡到的），光是技巧和战略的强弱之分就能决定出谁才是能坚持到最后的赢家。本次活动将会开放单人和双人模式，玩家在加入海盗主题的预赛大厅区域前，可以从强袭风暴角色画面新增好友。游玩游戏将可以累计名望轨迹，《巨龙崛起》和《魔兽世界：巫妖王之怒 经典版》的玩家都可以获得奖励。
更新日志
- 小骆驼-《草原狼2(蓝光CD)》[原抓WAV+CUE]
- 群星《欢迎来到我身边 电影原声专辑》[320K/MP3][105.02MB]
- 群星《欢迎来到我身边 电影原声专辑》[FLAC/分轨][480.9MB]
- 雷婷《梦里蓝天HQⅡ》 2023头版限量编号低速原抓[WAV+CUE][463M]
- 群星《2024好听新歌42》AI调整音效【WAV分轨】
- 王思雨-《思念陪着鸿雁飞》WAV
- 王思雨《喜马拉雅HQ》头版限量编号[WAV+CUE]
- 李健《无时无刻》[WAV+CUE][590M]
- 陈奕迅《酝酿》[WAV分轨][502M]
- 卓依婷《化蝶》2CD[WAV+CUE][1.1G]
- 群星《吉他王(黑胶CD)》[WAV+CUE]
- 齐秦《穿乐(穿越)》[WAV+CUE]
- 发烧珍品《数位CD音响测试-动向效果（九）》【WAV+CUE】
- 邝美云《邝美云精装歌集》[DSF][1.6G]
- 吕方《爱一回伤一回》[WAV+CUE][454M]