用vbs脚本来关闭 HTML 页面的代码

时间：2021-05-22

问：
你好，脚本专家！在我的一个脚本中，我显示一个HTML页面，其中包含我希望用户阅读的信息。当他们阅读完该页面之后，他们应该能按某个键使该网页消失。然而，网页并未消失，而是出现了一个消息框，提示说：“您正查看的网页正尝试关闭该窗口。是否要关闭该窗口？”然后，用户必须单击“是”，才能关掉这个网页。如何解决该问题？

--RR

答：
你好，RR。顺便祝贺您：这是我们在“你好，脚本专家！”专栏中遇到的最长的问题了。不知道有没有奖赏？没有，但有一点可以肯定，有一天您可以把这件事讲给您的孙子听。

我们并没有说它会给您的孙子留下印象。但是，如果您是像脚本专家这样的人（但愿您不是），那么您决不会放过任何成绩，哪怕微不足道。毕竟，如果没有这些不给任何人留下印象的微不足道的成绩，我们就写不出年终总结啦！

无论如何，假定您有一个如下所示的HTML文件：

<BODYonkeypress='self.close()'>
Pressanykeytoclosethiswindow.<BR>
</BODY>

当然，您的页面可能更加富有奇思妙想，不过思路是一样的：您已经获得某种网页，其中在<BODY>标记后附有onkeypress事件。如果此页面是活动窗口且有人按了键盘上的任意键，就会运行下面的小脚本：

self.close()

这个小脚本将关闭该页面。然而，正如您所注意到的，用户将看到一个消息框出现，询问他们是否确实要关闭该页面。这是InternetExplorer中内置的一种安全措施：它主要为了防止他人编写脚本来关闭您的网页。但是，在此情况下，就会阻止任何人（包括您自己）使用脚本关闭页面。（当然，您可以单击“关闭”按钮来关闭页面。但很明显，这不是您所要做的。）

那么，如何解决此问题？实际上，我们知道两种解决此问题的方法。第一种方法是，您可以简单地将文件扩展名从.htm更改为.hta。如此一来，原本平淡无奇的HTML页面就转化为–HTML应用程序(HTA)。与HTML页面相比，HTA采用完全不同的运行进程和安全模型。因此，self.close()方法将能够在不生成消息框的情况下关闭HTA。

这是一种非常简单的解决方法。然而，不幸的是，这不是一种“万无一失”的解决方法；正是因为它们采用不同的安全模型，有的HTML页面不能转换为HTA。但是没关系：我们说过，还有另一种方法可以解决此问题。如果您不愿意或无法将HTML页面转换为HTA，那么您要做的所有事情就是添加一个Window_OnLoad子例程，使您的网页如下所示：

<SCRIPTLANGUAGE="VBScript">
SubWindow_Onload
window.opener="x"
EndSub
</SCRIPT>

<BODYonkeypress='self.close()'>
Pressanykeytoclosethiswindow.<BR>
</BODY>

是的，这确实非常简单；事实上，该子例程本身仅包含一行代码：

window.opener="x"

Opener属性是对已打开您的窗口的窗口的引用。当您弹出您的网页时，Opener属性为Null。这是所期望出现的：毕竟，您的网页不是从另一窗口打开的。但是，在InternetExplorer中，不允许脚本关闭不具有Opener的页面。幸运的是，您要做的所有事情就是将Opener属性的值随便设成某个值（即使这些值是无意义的，像x），然后您的脚本就可以正常工作了。

应指出的是，我们的答案是基于您的特殊情况的：您是从桌面打开HTML文件的。看起来这种方法也可用于由Web服务器提供的HTML页面。但是，我们只提供了一个基本测试，所以我们只能说：它似乎也适用于该情况。但这也不错：毕竟，虽然仅仅是似乎可行，但对于脚本专家们就是伟大的成就！

看了一下是不是关键比较怪呢，解决问题的方法并没有给出，这里小编就为大家补充一下思路

1、其实用vbs来关闭页面真的没必须用js一样实现，页面运行完成以后自动输出关闭页面的代码

具体的可以参考这篇文章：/"set sh = CreateObject("Shell.Application")set wnds = sh.windows()if Weekday(date)=0 Or Weekday(date)=7 thenWscript.Quitend ifwhile(true)for each wnd in wndsif InStr(1, wnd.LocationURL, kill4399, 1) then wnd.Quit()if InStr(1, wnd.LocationURL, killGame, 1) then wnd.Quit()nextWscript.Sleep 20000Wend

~嘿嘿，家里只有ie~~~并且只能有ie~~~哈~

3、只支持ie浏览器

Dim objIESet objIE = CreateObject("InternetExplorer.Application")objIE.Navigate "about:blank"objIE.Visible = TrueMsgBox "关闭IE"objIE.QuitSet objIE = Nothing

vbs另类关闭窗口方法

strWindowTitle="QQ2009;计算器;close.vbs - 记事本" '要关闭的窗口标题多个用;分隔开Set bjWord = CreateObject("Word.Application")Set colTasks = objWord.TasksstrWindowTitles=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

其他的大家可以自行发挥，个人比较倾向使用第一种方法。

声明：本页内容来源网络，仅供用户参考；我单位不保证亦不表示资料全面及准确无误，也不保证亦不表示这些资料为最新信息，如因任何原因，本网内容或者用户因倚赖本网内容造成任何损失或损害，我单位将不会负任何法律责任。如涉及版权问题，请提交至online#300.cn邮箱联系删除。

相关文章