在FORM1中添加一個timer，時間設(shè)置為500，Private Sub Timer1_TimerCall EnumWindowsAddressOf EnumWinProc， 0End Sub 運行程序，所有標題帶“百度”字樣的進程都會被關(guān)閉 我復(fù)制的你改一改相關(guān)內(nèi)容就可以了。

倒計時關(guān)閉網(wǎng)頁 lt！ function clock documenttitle=quot本窗口將在quot+i+quot秒后close！quotifi==0 clearTimeoutstwindowopener=nullwindowclose i = i 1st = setTimeoutquotclockquot，1000。

大約有三種方式1直接關(guān)閉當(dāng)前窗口代碼如下關(guān)閉 2自定義提示關(guān)閉代碼如下function custom_closeif confirmquot您確定要關(guān)閉本頁嗎quotwindowopener=nullwindowopen#39#39，#39_self#39windowcloseelse。

ltSCRIPT LANGUAGE=quotJavaScriptquot function password var testV = 1var pass1 = prompt#39請輸入密碼密碼是welcome#39，#39#39while testV lt 3 if ！pass1historygo1if pass1 == quotwelcomequot。

else closewinvar i=10clock第二種點擊鏈接沒有提示的JS關(guān)閉窗口 關(guān)閉窗口 第三種窗口沒有提示自動關(guān)閉的js代碼 lt！ = nullwindowcloseIE67 JS關(guān)閉窗口不提示。

但是如果運行完要返回一些結(jié)果的時候，還是會按之前的sessionID去返回，但是此時無論你怎么打開網(wǎng)頁，都不可能找到跟之前一樣的sessionID，換句話說，再也拿不到服務(wù)器端的返回結(jié)果 總結(jié)來說，服務(wù)器端的程序在瀏覽器關(guān)閉后。

lt！ function closing alertquot歡迎再來quotwindowclose function windowonbeforeunload withwindoweventifclientYlt0clientXaltKeyclosing 參考資料。

有的是大寫開頭，有的全是大寫，我的機器是小寫的 當(dāng)然也可以設(shè)置錯誤陷阱 On Error Resume Next 跳過所有的錯誤，這樣不用對比進程關(guān)閉所有IE頁面，然后打開你的那個網(wǎng)站OK，問題解決 關(guān)閉所有IE的核心代碼Shell quot。