代碼如下：
<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。”