问:
您好,脚本专家!如何创建一个在标题栏中没有“关闭”按钮的 HTA?
-- AK
答:
您好,AK。您知道,您的问题让我们陷入了道德和伦理的窘境。毕竟,假如我们给出此问题的答案:这个世界就有可能突然被大量无法关闭的 HTA 所淹没。在我们的眼前会出现这样一幅画面:无法关闭又不能停止的 HTA 疯狂地横扫整个陆地,并吞食沿途的所有系统资源。而我们脚本专家,将要对此负责。我们只是觉得无法在良心上背负这样一条的罪责。
但是,在我们的的良心上再多加一条罪责又会有什么不同呢?明确这一点后,我们给出了下面这个无法关闭的 HTA;关掉它的唯一方法就是终止 Mshta.exe 进程(或者让陆军航空兵从帝国大厦顶部将其击落):
<html>
<head>
<title>Test</title>
</head>
<HTA:APPLICATION
SysMenu="no"
>
<body>
<p>This HTA has no Close button.</p>
</body>
</html>
当您运行它的时候,看到的结果应该同下图相似:
![创建一个在标题栏中没有“关闭”按钮的 HTA](/UploadFiles/2021-04-08/200732720441795.jpg)
那么我们是如何去掉“关闭”按钮(更不用说“最大化”和“最小化”按钮了)而仍然保留窗口标题栏的呢?很简单:只需将 SysMenu 属性值设置为 no 即可:
<HTA:APPLICATION
SysMenu="no"
>
就是这样:将 SysMenu 的值设置为 no(这必须在 HTA:APPLICATION 标记内部完成)将去掉“关闭”按钮、“最大化”和“最小化”按钮以及系统菜单。仍然可以四下移动窗口(单击标题栏并拖动即可),但是没有办法关闭窗口。
是的,我们的良心此刻有些不安。(尽管这很可能是因为我们喝完了最后一杯咖啡但由于太懒而不愿重沏一壶。)下面是一个经过修订的在标题栏中没有“关闭”按钮的 HTA;不过,在它的主体之中却的确有一个标有 Exit 的按钮。单击此按钮,一个名为 ExitProgram 的子例程将关闭 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>
在这种情况下,我们会得到一个类似下图的 HTA:
![创建一个在标题栏中没有“关闭”按钮的 HTA](/UploadFiles/2021-04-08/200732720444597.jpg)
出于全方面考虑,可能最好还是找到某种办法以将 HTA 正常地关闭。但这将由您来决定。还有您的良心
您好,脚本专家!如何创建一个在标题栏中没有“关闭”按钮的 HTA?
-- AK
答:
您好,AK。您知道,您的问题让我们陷入了道德和伦理的窘境。毕竟,假如我们给出此问题的答案:这个世界就有可能突然被大量无法关闭的 HTA 所淹没。在我们的眼前会出现这样一幅画面:无法关闭又不能停止的 HTA 疯狂地横扫整个陆地,并吞食沿途的所有系统资源。而我们脚本专家,将要对此负责。我们只是觉得无法在良心上背负这样一条的罪责。
但是,在我们的的良心上再多加一条罪责又会有什么不同呢?明确这一点后,我们给出了下面这个无法关闭的 HTA;关掉它的唯一方法就是终止 Mshta.exe 进程(或者让陆军航空兵从帝国大厦顶部将其击落):
<html>
<head>
<title>Test</title>
</head>
<HTA:APPLICATION
SysMenu="no"
>
<body>
<p>This HTA has no Close button.</p>
</body>
</html>
当您运行它的时候,看到的结果应该同下图相似:
![创建一个在标题栏中没有“关闭”按钮的 HTA](/UploadFiles/2021-04-08/200732720441795.jpg)
那么我们是如何去掉“关闭”按钮(更不用说“最大化”和“最小化”按钮了)而仍然保留窗口标题栏的呢?很简单:只需将 SysMenu 属性值设置为 no 即可:
<HTA:APPLICATION
SysMenu="no"
>
就是这样:将 SysMenu 的值设置为 no(这必须在 HTA:APPLICATION 标记内部完成)将去掉“关闭”按钮、“最大化”和“最小化”按钮以及系统菜单。仍然可以四下移动窗口(单击标题栏并拖动即可),但是没有办法关闭窗口。
是的,我们的良心此刻有些不安。(尽管这很可能是因为我们喝完了最后一杯咖啡但由于太懒而不愿重沏一壶。)下面是一个经过修订的在标题栏中没有“关闭”按钮的 HTA;不过,在它的主体之中却的确有一个标有 Exit 的按钮。单击此按钮,一个名为 ExitProgram 的子例程将关闭 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>
在这种情况下,我们会得到一个类似下图的 HTA:
![创建一个在标题栏中没有“关闭”按钮的 HTA](/UploadFiles/2021-04-08/200732720444597.jpg)
出于全方面考虑,可能最好还是找到某种办法以将 HTA 正常地关闭。但这将由您来决定。还有您的良心
免责声明:本站文章均来自网站采集或用户投稿,网站不提供任何软件下载或自行开发的软件!
如有用户或公司发现本站内容信息存在侵权行为,请邮件告知! 858582#qq.com
白云城资源网 Copyright www.dyhadc.com
暂无“创建一个在标题栏中没有“关闭”按钮的 HTA”评论...
更新日志
2024年07月01日
2024年07月01日
- 《陈百强28CD合集》1979-1993 低速原抓[CUE+WAV][8.3G]
- 【蓝调摇滚】JohnHaydock-2024-StraightLineOnACurvedRoad(FLAC)
- 感受独特魅力《百万双钢琴演奏曲》5CD[WAV+CUE]
- 【古典音乐】安娜·莫福《咏叹调》美国版SACD[WAV+CUE]
- 《法拉利·汽车专用试音碟》名贵音响顶级黑胶金碟[CUE+WAV][478M]
- 群星《惠威试音碟5CD》顶级音质[CUE+APE][1.7G]
- 《101系列:百分百3CD 100首百分百经典金曲》[WAV+CUE][2.9GB]
- 群星.2004-《第八届广州国际高级音响展》HIFI珍藏版[APE+CUE]
- 红音堂《蔡琴往事系列》SQCD紫银合金5CD[wav]
- 张小英1978-可爱的人[新加坡黑胶版][WAV+CUE]
- 张小英1978-心有千千结[新加坡黑胶版][WAV+CUE]
- 谭晶《祖国万岁·作品全集》(8CD)[WAV+CUE]
- 群星.2010-《第13届汕头音响展纪念CD》非卖品[FLAC+CUE]
- 群星.2010-《第13届汕头音响展纪念CD》非卖品[FLAC+CUE]
- 吉尔·沙汉姆-《梁祝柴科夫斯基小提琴协奏曲(GilShaham)》[WAV分轨]