這個記事本可以處理比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