本篇內(nèi)容介紹了“怎么用vbs腳本來(lái)關(guān)閉HTML頁(yè)面”的有關(guān)知識(shí)，在實(shí)際案例的操作過(guò)程中，不少人都會(huì)遇到這樣的困境，接下來(lái)就讓小編帶領(lǐng)大家學(xué)習(xí)一下如何處理這些情況吧！希望大家仔細(xì)閱讀，能夠?qū)W有所成！

創(chuàng)新互聯(lián)公司是一家集網(wǎng)站建設(shè),瑪沁企業(yè)網(wǎng)站建設(shè),瑪沁品牌網(wǎng)站建設(shè),網(wǎng)站定制,瑪沁網(wǎng)站建設(shè)報(bào)價(jià),網(wǎng)絡(luò)營(yíng)銷(xiāo),網(wǎng)絡(luò)優(yōu)化,瑪沁網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè)，幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強(qiáng)企業(yè)競(jìng)爭(zhēng)力?？沙浞譂M足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時(shí)我們時(shí)刻保持專(zhuān)業(yè)、時(shí)尚、前沿，時(shí)刻以成就客戶成長(zhǎng)自我，堅(jiān)持不斷學(xué)習(xí)、思考、沉淀、凈化自己，讓我們?yōu)楦嗟钠髽I(yè)打造出實(shí)用型網(wǎng)站。

問(wèn)：
你好，腳本專(zhuān)家！在我的一個(gè)腳本中，我顯示一個(gè) HTML 頁(yè)面，其中包含我希望用戶閱讀的信息。當(dāng)他們閱讀完該頁(yè)面之后，他們應(yīng)該能按某個(gè)鍵使該網(wǎng)頁(yè)消失。然而，網(wǎng)頁(yè)并未消失，而是出現(xiàn)了一個(gè)消息框，提示說(shuō)：“您正查看的網(wǎng)頁(yè)正嘗試關(guān)閉該窗口。是否要關(guān)閉該窗口？”然后，用戶必須單擊“是”，才能關(guān)掉這個(gè)網(wǎng)頁(yè)。如何解決該問(wèn)題？

-- RR

答：
你好，RR。順便祝賀您：這是我們?cè)凇澳愫?，腳本專(zhuān)家！”專(zhuān)欄中遇到的最長(zhǎng)的問(wèn)題了。不知道有沒(méi)有獎(jiǎng)賞？沒(méi)有，但有一點(diǎn)可以肯定，有一天您可以把這件事講給您的孫子聽(tīng)。

我們并沒(méi)有說(shuō)它會(huì)給您的孫子留下印象。但是，如果您是像腳本專(zhuān)家這樣的人（但愿您不是），那么您決不會(huì)放過(guò)任何成績(jī)，哪怕微不足道。畢竟，如果沒(méi)有這些不給任何人留下印象的微不足道的成績(jī)，我們就寫(xiě)不出年終總結(jié)啦！

無(wú)論如何，假定您有一個(gè)如下所示的 HTML 文件：


Press any key to close this window.



當(dāng)然，您的頁(yè)面可能更加富有奇思妙想，不過(guò)思路是一樣的：您已經(jīng)獲得某種網(wǎng)頁(yè)，其中在  標(biāo)記后附有 onkeypress 事件。如果此頁(yè)面是活動(dòng)窗口且有人按了鍵盤(pán)上的任意鍵，就會(huì)運(yùn)行下面的小腳本：

self.close()

這個(gè)小腳本將關(guān)閉該頁(yè)面。然而，正如您所注意到的，用戶將看到一個(gè)消息框出現(xiàn)，詢問(wèn)他們是否確實(shí)要關(guān)閉該頁(yè)面。這是 Internet Explorer 中內(nèi)置的一種安全措施：它主要為了防止他人編寫(xiě)腳本來(lái)關(guān)閉您的網(wǎng)頁(yè)。但是，在此情況下，就會(huì)阻止任何人（包括您自己）使用腳本關(guān)閉頁(yè)面。（當(dāng)然，您可以單擊“關(guān)閉”按鈕來(lái)關(guān)閉頁(yè)面。但很明顯，這不是您所要做的。）

那么，如何解決此問(wèn)題？實(shí)際上，我們知道兩種解決此問(wèn)題的方法。第一種方法是，您可以簡(jiǎn)單地將文件擴(kuò)展名從 .htm 更改為 .hta。如此一來(lái)，原本平淡無(wú)奇的 HTML 頁(yè)面就轉(zhuǎn)化為 – HTML 應(yīng)用程序 (HTA)。與 HTML 頁(yè)面相比，HTA 采用完全不同的運(yùn)行進(jìn)程和安全模型。因此，self.close() 方法將能夠在不生成消息框的情況下關(guān)閉 HTA。

這是一種非常簡(jiǎn)單的解決方法。然而，不幸的是，這不是一種“萬(wàn)無(wú)一失”的解決方法；正是因?yàn)樗鼈儾捎貌煌陌踩Ｐ?，有?nbsp;HTML 頁(yè)面不能轉(zhuǎn)換為 HTA。但是沒(méi)關(guān)系：我們說(shuō)過(guò)，還有另一種方法可以解決此問(wèn)題。如果您不愿意或無(wú)法將 HTML 頁(yè)面轉(zhuǎn)換為 HTA，那么您要做的所有事情就是添加一個(gè) Window_OnLoad 子例程，使您的網(wǎng)頁(yè)如下所示：


    Sub Window_Onload
      window.opener = "x"
    End Sub



Press any key to close this window.



是的，這確實(shí)非常簡(jiǎn)單；事實(shí)上，該子例程本身僅包含一行代碼：

window.opener = "x"

Opener 屬性是對(duì)已打開(kāi)您的窗口的窗口的引用。當(dāng)您彈出您的網(wǎng)頁(yè)時(shí)，Opener 屬性為 Null。這是所期望出現(xiàn)的：畢竟，您的網(wǎng)頁(yè)不是從另一窗口打開(kāi)的。但是，在 Internet Explorer 中，不允許腳本關(guān)閉不具有 Opener 的頁(yè)面。幸運(yùn)的是，您要做的所有事情就是將 Opener 屬性的值隨便設(shè)成某個(gè)值（即使這些值是無(wú)意義的，像 x），然后您的腳本就可以正常工作了。

應(yīng)指出的是，我們的答案是基于您的特殊情況的：您是從桌面打開(kāi) HTML 文件的。看起來(lái)這種方法也可用于由 Web 服務(wù)器提供的 HTML 頁(yè)面。但是，我們只提供了一個(gè)基本測(cè)試，所以我們只能說(shuō)：它似乎也適用于該情況。但這也不錯(cuò)：畢竟，雖然僅僅是似乎可行，但對(duì)于腳本專(zhuān)家們就是偉大的成就！

看了一下是不是關(guān)鍵比較怪呢，解決問(wèn)題的方法并沒(méi)有給出，這里創(chuàng)新互聯(lián)網(wǎng)站建設(shè)公司，小編就為大家補(bǔ)充一下思路

1、其實(shí)用vbs來(lái)關(guān)閉頁(yè)面真的沒(méi)必須用js一樣實(shí)現(xiàn)，頁(yè)面運(yùn)行完成以后自動(dòng)輸出關(guān)閉頁(yè)面的代碼

具體的可以參考這篇文章：www.jb51.net/article/44514.htm

2、vbs根據(jù)url關(guān)閉特定ie窗口

開(kāi)始的時(shí)候本想用bat來(lái)寫(xiě)~
taskkill /f /fi "windowtitle eq 小游戲*" /im iexplore.exe
taskkill /f /fi "windowtitle eq 西*" /im iexplore.exe
但是藐視這樣就把整個(gè)iexplorer.exe關(guān)閉了~~并不等達(dá)到過(guò)濾的問(wèn)題~
于是乎想到了微軟的親兒子~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 "關(guān)閉IE"
objIE.Quit
Set objIE = Nothing

vbs另類(lèi)關(guān)閉窗口方法

strWindowTitle="QQ2009;計(jì)算器;close.vbs - 記事本" '要關(guān)閉的窗口標(biāo)題多個(gè)用;分隔開(kāi)
Set bjWord = CreateObject("Word.Application")
Set colTasks = objWord.Tasks
strWindowTitles=Split(strWindowTitle,";")
For Each strTitle In strWindowTitles
 If colTasks.Exists(strTitle) Then
 strAnswer=MsgBox("發(fā)現(xiàn)指定窗口【"&strTitle&"】是否關(guān)閉？",vbYesNo+vbQuestion,"")
 If strAnswer=vbYes Then 
  colTasks(strTitle).Close
 End If
 End If 
Next 
objWord.Quit

其他的大家可以自行發(fā)揮，個(gè)人比較傾向使用第一種方法。

“怎么用vbs腳本來(lái)關(guān)閉HTML頁(yè)面”的內(nèi)容就介紹到這里了，感謝大家的閱讀。如果想了解更多行業(yè)相關(guān)的知識(shí)可以關(guān)注創(chuàng)新互聯(lián)網(wǎng)站，小編將為大家輸出更多高質(zhì)量的實(shí)用文章！

網(wǎng)站欄目：怎么用vbs腳本來(lái)關(guān)閉HTML頁(yè)面-創(chuàng)新互聯(lián)
文章位置：http://weahome.cn/article/dcgshs.html