創(chuàng)建一個(gè)在標(biāo)題欄中沒有“關(guān)閉”按鈕的 HTA

2020-01-25 19:40:39

字體：大中小

供稿：網(wǎng)友

問：
您好，腳本專家！如何創(chuàng)建一個(gè)在標(biāo)題欄中沒有“關(guān)閉”按鈕的 HTA？
-- AK
答：
您好，AK。您知道，您的問題讓我們陷入了道德和倫理的窘境。畢竟，假如我們給出此問題的答案：這個(gè)世界就有可能突然被大量無法關(guān)閉的 HTA 所淹沒。在我們的眼前會(huì)出現(xiàn)這樣一幅畫面：無法關(guān)閉又不能停止的 HTA 瘋狂地橫掃整個(gè)陸地，并吞食沿途的所有系統(tǒng)資源。而我們腳本專家，將要對(duì)此負(fù)責(zé)。我們只是覺得無法在良心上背負(fù)這樣一條的罪責(zé)。
但是，在我們的的良心上再多加一條罪責(zé)又會(huì)有什么不同呢？明確這一點(diǎn)后，我們給出了下面這個(gè)無法關(guān)閉的 HTA；關(guān)掉它的唯一方法就是終止 Mshta.exe 進(jìn)程（或者讓陸軍航空兵從帝國大廈頂部將其擊落）：
<html>
<head>
    <title>Test</title>
</head>
<HTA:APPLICATION
    SysMenu="no"
>
<body>
    <p>This HTA has no Close button.</p>
</body>
</html>
當(dāng)您運(yùn)行它的時(shí)候，看到的結(jié)果應(yīng)該同下圖相似：

那么我們是如何去掉“關(guān)閉”按鈕（更不用說“最大化”和“最小化”按鈕了）而仍然保留窗口標(biāo)題欄的呢？很簡(jiǎn)單：只需將 SysMenu 屬性值設(shè)置為 no 即可：
<HTA:APPLICATION
    SysMenu="no"
>
就是這樣：將 SysMenu 的值設(shè)置為 no（這必須在 HTA:APPLICATION 標(biāo)記內(nèi)部完成）將去掉“關(guān)閉”按鈕、“最大化”和“最小化”按鈕以及系統(tǒng)菜單。仍然可以四下移動(dòng)窗口（單擊標(biāo)題欄并拖動(dòng)即可），但是沒有辦法關(guān)閉窗口。
是的，我們的良心此刻有些不安。（盡管這很可能是因?yàn)槲覀兒韧炅俗詈笠槐Х鹊捎谔珣卸辉钢仄阋粔亍＃┫旅媸且粋€(gè)經(jīng)過修訂的在標(biāo)題欄中沒有“關(guān)閉”按鈕的 HTA；不過，在它的主體之中卻的確有一個(gè)標(biāo)有 Exit 的按鈕。單擊此按鈕，一個(gè)名為 ExitProgram 的子例程將關(guān)閉 HTA 窗口：
<html>
<head>
    <title>Test</title>
</head>
<HTA:APPLICATION
    SysMenu="no"
>
<SCRIPT LANGUAGE="VBScript">
    Sub ExitProgram
        window.close()
    End Sub
</SCRIPT>
<body>
    <input id=runbutton type="button" value="Exit" onClick="ExitProgram">
</body>
</html>
在這種情況下，我們會(huì)得到一個(gè)類似下圖的 HTA：