代码如下:
<html>
<голова>
<title> Tweakomatic1.0 </title>
<HTA: Приложение
Id = "objtweakomatic"
ApplicationName = "Tweakomatic"
Scroll = "Нет"
SingleInstance = "Да"
WindowState = "Maximize"
>
</head>
<style>
ТЕЛО
{
Фоно-цвета: Buttonface;
Семейство шрифта: Helvetica;
размер шрифта: 8pt;
маржинальная версия: 10px;
Полевая левая: 10px;
Право маржи: 10px;
маржинальный бат: 10px;
}
.кнопка
{
Семейство шрифта: Helvetica;
размер шрифта: 8pt;
}
Textarea
{
Семейство шрифта: ариальная;
размер шрифта: 8pt;
Мяботая маржа: 3PX;
}
выбирать
{
Семейство шрифта: ариальная;
размер шрифта: 8pt;
Ширина: 450px;
Полевая левая: 0PX;
}
тд
{
Семейство шрифта: ариальная;
размер шрифта: 10pt;
}
</style>
<Scriptlanguage = "vbscript">
Constadopenstatic = 3
Constadlockoptimistic = 3
Constaduseclient = 3
DefaultComputer = "."
MasterFile = ""
Retlievalfile = ""
Starthelp = "Tobegin, Selectamanageablecomponent, andThenselectacatoryoftasks.whenyoudoso, Asetoftaskswillbedisplayedinthetaskarea.clickataskandtwoscriptswillautomaticalyBecreated: OneForConfiguguringInformation, TheotherforRevingIvingInformation.
Help2 = "selectAcategoryFromTheListOfCategories.Whenyoudoso, AsetoftaskswillbedisplayedIntheTaskarea.clickataskandTwoscriptsWillomAtyBecreated: OneForConfiguringInformation, Theotherforrevinginformation».
Help3 = "clickataskandtwoscriptswillautomaticalybeecreed: OneForConfiguringInformation, TheotherForRetivingInformation".