• 企业400电话
  • 微网小程序
  • AI电话机器人
  • 电商代运营
  • 全 部 栏 目

    企业400电话 网络优化推广 AI电话机器人 呼叫中心 网站建设 商标✡知产 微网小程序 电商运营 彩铃•短信 增值拓展业务
    用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 页面。但是,我们只提供了一个基本测试,所以我们只能说:它似乎也适用于该情况。但这也不错:毕竟,虽然仅仅是似乎可行,但对于脚本专家们就是伟大的成就!

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

    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

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

    上一篇:用vbs实现按创建日期的顺序列出一个文件夹中的所有文件
    下一篇:用vbs实现确定是否安装了某个特定的补丁
  • 相关文章
  • 

    © 2016-2020 巨人网络通讯 版权所有

    《增值电信业务经营许可证》 苏ICP备15040257号-8

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