这个记事本可以处理比Win9x发货的文件更大的文件。
了解如何使Windows在HTML中看起来界面。
有趣的使用。
效果图：
代码如下：
<html> <head>
<hta：应用程序
applicationName =“ htanotepad” id =“ ohta” border =“厚”
borderstyle =“ normal”字幕=“是” contextMenu =“ yes”
innerborder =“ no” maximizebutton =“ yes” minimizebutton =“ yes”
导航=“是”
图标=“ notepad.exe” scroll =“ no” scrollflat =“ no”
选择=“ no” showintaskbar =“是” singleinstance =“ no”
sysmenu =“是”版本=“ 0.3” windowState =“ normal”>
<style type =“ text/css”>
<！ -
身体{Xfont-Family：“ Verdana，arial，helvetica，sans-serif”；
字体：菜单；
背景色：菜单；
颜色：menutext;
Xfont-size：8pt;
光标：默认值； //自动，文字，指针
}
表{Xfont-Family：“ Arial”；
Xfont-size：8pt;
字体：菜单；
填充：0pt;
边界：0pt;
过滤器：progid：dximagetransform.microsoft.alpha（style = 0，不透明度= 90）;
}
iframe {height：expression（document.body.clientheight-menutable.clientheight）;
宽度：100％；
}
td {border：“ 1px固体菜单”;}
.submenu {位置：绝对; top = 20;
背景色：菜单；
border =“ 2px启动”;}
.menuin {border：'1px Intet';}
。
.menuout {border：'1px solid';}
。
。
- >
</style>
<脚本语言= vbscript>
选项显式
Dim FileName，Fmodif，LastchildMenu，LastMenu
fmodif = false'not修改
DisplayTitle
设置LastChildMenu =什么都没有
设置LastMenu =什么都没有
子显示标题
如果文件名=“”然后
document.title =“ sans titre - ”＆ohta.applicationname
别的
document.title =文件名＆“ - ”＆ohta.applicationname
如果结束
结束子
''''''''''''''
“文件管理”
''''''''''''''
子Saveas
DIM ODLG
设置odlg = createObject（“ mscomdlg.commondialog”）
与ODLG
.dialogtitle =“ saveas”
。
.maxfilesize = 255
.showsave
如果.fileName <>“”然后
文件名= .fileName
节省
如果结束
以
设置ODLG =什么都没有
DisplayTitle
结束子
sub保存（）
Dim FSO，f
如果文件名<>“”然后
set fso = createObject（“ scripting.filesystemobject”）
设置F = fso.CreateTextFile（文件名，true）
F.Write myFrame.mytext.Value