يمكن لهذا المفكرة التعامل مع الملفات الأكبر من تلك التي شحنها مع Win9x.
تعلم كيفية جعل Windows واجهات تبحث في HTML.
استخدام مثير للاهتمام من commondialogs.
： ：
代码如下:
<html> <head>
<hta: التطبيق
ApplicationName = "htanotepad" id = "Ohta" border = "shicay"
BorderStyle = "Normal" Caption = "Yes" ContextMenu = "Yes"
innerborder = "no" maximizedbutton = "yes" mailurebutton = "yes"
sevigable = "نعم"
icon = "notepad.exe" scroll = "no" scrollflat = "no"
Selection = "no" showIntaskBar = "Yes" SingleInstance = "no"
sysmenu = "yes" version = "0.3" windowState = "Normal">
<type type = "text/css">
<!-
body {xfont-family: "Verdana ، arial ، helvetica ، sans-serif" ؛
الخط: القائمة ؛
خلفية اللون: القائمة ؛
اللون: Menutext ؛
Xfont-Size: 8pt ؛
المؤشر: الافتراضي ؛ // auto ، النص ، مؤشر
}
الجدول {xfont-family: "arial" ؛
Xfont-Size: 8pt ؛
الخط: القائمة ؛
الحشو: 0pt ؛
الحدود: 0pt ؛
Filter: progid: dximagetransform.microsoft.alpha (النمط = 0 ، عتامة = 90) ؛
}
iframe {height: expression (document.body.clientheight-menoutable.clientheight) ؛
العرض: 100 ٪ ؛
}
td {الحدود: "1 بكسل صلب القائمة" ؛}
.submenu {position: absolute ؛ top = 20 ؛
خلفية اللون: القائمة ؛
Border = "2px utmet" ؛}
.Menuin {الحدود: '1px Inset' ؛}
.menuover {الحدود: '1px estet' ؛}
.menuout {الحدود: '1px solid' ؛}
.submenuover {background-color: Aightlization ؛ color: assocletext ؛}
.submenuout {background-color: menu ؛ color: menutext ؛}
->
</style>
<لغة البرنامج النصي = vbscript>
الخيار صريح
اسم الملف الخافت ، fmodif ، lastchildmenu ، lastmenu
fmodif = false'not moded
DisplayTitle
تعيين LastChildMenu = لا شيء
تعيين MastMenu = لا شيء
sub displaytitle
إذا كان اسم الملف = "" ثم
document.title = "sans titre -" & ohta.applicationName
آخر
document.title = filename & " -" & ohta.applicationName
إنهاء إذا
نهاية الفرعية
'' '' '' '' '' '' '' '
"إدارة الملفات"
'' '' '' '' '' '' '' '
SUB SAVEAS
قاتمة ODLG
SET ODLG = createObject ("mscomdlg.commondialog")
مع ODLG
.dialogtitle = "seveas"
.filter = "Scripts |*.vbs ؛*.
.MaxFilesize = 255
.ShowSave
إذا .filename <> "" ثم
اسم الملف = .filename
يحفظ
إنهاء إذا
تنتهي
تعيين ODLG = لا شيء
DisplayTitle
نهاية الفرعية
Sub Save ()
قاتمة FSO ، و
إذا كان اسم الملف <> "" ثم
set fso = createObject ("scripting.filesystemObject")
تعيين f = fso.createTextFile (اسم الملف ، صحيح)
F.write myframe.mytext.value