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

问:
你好,脚本专家!在我的一个脚本中,我显示一个 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 页面。但是,我们只提供了一个基本测试,所以我们只能说:它似乎也适用于该情况。但这也不错:毕竟,虽然仅仅是似乎可行,但对于脚本专家们就是伟大的成就!

(0)

相关推荐

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

    问: 你好,脚本专家!在我的一个脚本中,我显示一个 HTML 页面,其中包含我希望用户阅读的信息.当他们阅读完该页面之后,他们应该能按某个键使该网页消失.然而,网页并未消失,而是出现了一个消息框,提示说:"您正查看的网页正尝试关闭该窗口.是否要关闭该窗口?"然后,用户必须单击"是",才能关掉这个网页.如何解决该问题? -- RR 答: 你好,RR.顺便祝贺您:这是我们在"你好,脚本专家!"专栏中遇到的最长的问题了.不知道有没有奖赏?没有,但有一点

  • 利用VBS脚本修改联想笔记本BIOS密码的代码分享

    这不科学!无意中找到的一些资料: vbs 代码: 复制代码 代码如下: strComputer = "." Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\WMI") ' Obtain an instance of the the class ' using a key property value. Set objShare = objWMIS

  • js 无提示关闭浏览器页面的代码

    方法一: 复制代码 代码如下: top.window.opener=null; top.window.open("","_self"); top.window.close(); 方法二: 复制代码 代码如下: top.window.opener = top; top.window.open('','_self',''); top.window.close(); _blank,在新窗口显示目标网页 _self,在当前窗口显示目标网页 _parent,框架网页中当前整个

  • js关闭当前页面(窗口)的几种方式总结

    1. 不带任何提示关闭窗口的js代码 复制代码 代码如下: <a href="javascript:window.opener=null;window.open('','_self');window.close();">关闭</a> 2.自定义提示关闭 复制代码 代码如下: <script language="javascript">// 这个脚本是 ie6和ie7 通用的脚本function custom_close(){if

  • VBS脚本病毒原理分析与防范

    网络的流行,让我们的世界变得更加美好,但它也有让人不愉快的时候.当您收到一封主题为"I Love You"的邮件,用兴奋得几乎快发抖的鼠标去点击附件的时候:当您浏览一个信任的网站之后,发现打开每个文件夹的速度非常慢的时候,您是否察觉病毒已经闯进了您的世界呢?2000年5月4日欧美爆发的"爱虫"网络蠕虫病毒.由于通过电子邮件系统传播,爱虫病毒在短短几天内狂袭全球数百万计的电脑.微软.Intel等在内的众多大型企业网络系统瘫痪,全球经济损失达几十亿美元.而去年爆发的新欢

  • vbs脚本和windows定时任务实现qq消息表情包定时发送功能

    目标 在某个时间唤醒电脑屏幕后,自动发送qq信息,并附带表情包,发送完毕后关闭电脑屏幕.整个过程不用过多的程序运行,我们借助vbs脚本和windows定时任务去实现这一功能. 准备 vbs代码qq信息txt文本qq文件表情包文件发送联系人的快捷方式3个windows任务 具体操作 信息和快捷方式准备 qq信息txt文本和表情包文件 桌面新建文本输入要发送的信息,保存为abc.txt, 桌面新建文件,把要放的表情包放进里面,保存为abd qq快捷方式 把联系人拖到桌面生成快捷方式,记住,qq保持登

  • Vbs脚本经典教材(最全的资料还是MSDN)

      -为什么要使用Vbs? 在Windows中,学习计算机操作也许很简单,但是很多计算机工作是重复性劳动,例如你每周也许需要对一些计算机文件进行复制.粘贴.改名.删除,也许你每天启动计算机第一件事情就是打开WORD,切换到你喜爱的输入法进行文本编辑,同时还要播放优美的音乐给工作创造一个舒心的环境,当然也有可能你经常需要对文本中的某些数据进行整理,把各式各样的数据按照某种规则排列起来--.这些事情重复.琐碎,使人容易疲劳. 第三方软件也许可以强化计算机的某些功能,但是解决这些重复劳动往往事倍功半,

  • vbs脚本 加密 几个小细节小结下

    复制代码 代码如下: dxy:      你好!      我学vbs也有一小段时间了,最近看到一本书上讲vbs脚本的加密,就自己试了试,可是有一点问题,低级的语法错误我都自己修正了,可脚本运行后不起作用.所以想请教你一下.脚本的原理是这样的:它把代码转换成16进制,然后再写个解密代码,通过这个解密来执行加密的代码,将字符串成16进制的代码如下:  Function str2hex (Byval strHex)  For i=1 to Len(strHex)  sHex = sHex & Hex

  • 用于修复XP中最小化程序 在任务栏显示图标的vbs脚本

    复制代码 代码如下: 'xp_taskbar_desktop_fixall.vbs - Repairs the Taskbar when minimized programs don't show. '?Kelly Theriot and Doug Knox - 8/22/2003 加工 加龙ddf3 '翻译:Smallfrogs.翻译内容:将英文提示改为简体中文 '来源:Microsoft Windows XP NewsGroup Set WSHShell = WScript.CreateOb

  • 利用批处理文件和 vbs 脚本实现网站视频自动录制

    利用批处理文件和 vbs 脚本实现网站视频自动录制 现在电视台基本上都有了自己的门户网站,我们可以充分利用网络的优势来扩大本地电视台的影响.事实上,将本地电视台的每日的王牌节目挂在网站上的做法已经成为建立电视台网站的必要组成步骤之一了.但随之而来的问题是:每天定时需要的手工录制过程,将给管理者带来极大的不便.在 windows 定时任务的基础上,将批处理程序与脚本程序有机的集合,就可以有效地解决这一问题. 1 :建立压码任务 我们将使用一台带有视频采集卡的电脑来完成压码过程.虽然压码不是本文的重

随机推荐