代码如下：
<html>
<头>
<title> tweakomatic1.0 </title>
<hta：应用程序
id =“ objtweakomatic”
ApplicationName =“ Tweakomatic”
滚动=“否”
singleSinstance =“是”
WindowState =“最大化”
>
</head>
<样式>
身体
{
背景色：buttonface;
字体家庭：Helvetica;
字体大小：8pt;
保证金顶：10px;
左键：10px;
边缘右：10px;
边缘底：10px;
}
。按钮
{
字体家庭：Helvetica;
字体大小：8pt;
}
Textarea
{
字体家庭：Arial；
字体大小：8pt;
左键：3px;
}
选择
{
字体家庭：Arial；
字体大小：8pt;
宽度：450px;
左键：0px;
}
TD
{
字体家庭：Arial；
字体大小：10pt;
}
</style>
<ScriptLanguage =“ VBScript”>
constadopenstatic = 3
constadlockoptimistic = 3
constaduseclient = 3
DefaultComputer =“。”
masterfile =“”
检索=“”
starthelp =“
help2 =“ selectAcategoryfromthelistofCategories.whenyoudoso，asetoftaskswillbedisplayedinthetaskarea.clickataskAskAskAstaskandTwoScriptswillautaperybybreated：OneforConfiguringInformation，The HotherfortreTrieTrieTrieNivingInformation。”
help3 =“ ClickAtaskandTwoScriptswillAutomationallovelybecreated：OneforConfiguringInformation，theotherfortreTrievingInformation。”