代码如下：
<html>
<head>
<title> tweakomatic1.0 </title>
<HTA：アプリケーション
id = "objtweakomatic"
ApplicationName = "Tweakomatic"
scroll = "no"
singleInstance = "はい"
Window -state = "Maximize"
>
</head>
<style>
体
{
バックグラウンドカラー：ボタンフェイス。
フォントファミリー：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 = ""
retrievalfile = ""
Starthelp = "Tobegin、SelectAmanageablecomponent、およびThrenselectacategoryoftasks.whenyoudoso、asetoftaskskswillbedisplayedintaskarea.clickataskandtwoscriptscriptwillautomalated：onforconfiguringin -for -for -for -retrieventionmation。
help2 = "selectageToryfromthelistofcategories.whenyoudoso、asetoftaskskswillbedisplayedthetaskarea.clickataskandtwoscriptswillautomatelybecreated：onforconfiguringinformation、theotherforretrivevinginvingation。
help3 = "ClickAtaskandTwoScriptSwillAutomatelyBecreated：OneForConfiguringInformation、theotherforretrievingInformation。"