代码如下:
<html>
<head>
<title>Tweakomatic1.0</title>
<HTA:APPLICATION
ID="objTweakomatic"
APPLICATIONNAME="Tweakomatic"
SCROLL="no"
SINGLEINSTANCE="yes"
WINDOWSTATE="maximize"
>
</head>
<style>
BODY
{
background-color:buttonface;
font-family:Helvetica;
font-size:8pt;
margin-top:10px;
margin-left:10px;
margin-right:10px;
margin-bottom:10px;
}
.button
{
font-family:Helvetica;
font-size:8pt;
}
textarea
{
font-family:arial;
font-size:8pt;
margin-left:3px;
}
select
{
font-family:arial;
font-size:8pt;
width:450px;
margin-left:0px;
}
td
{
font-family:arial;
font-size:10pt;
}
</style>
<SCRIPTLANGUAGE="VBScript">
ConstadOpenStatic=3
ConstadLockOptimistic=3
ConstadUseClient=3
DefaultComputer="."
MasterFile=""
RetrievalFile=""
StartHelp="Tobegin,selectamanageablecomponent,andthenselectacategoryoftasks.Whenyoudoso,asetoftaskswillbedisplayedintheTaskArea.Clickataskandtwoscriptswillautomaticallybecreated:oneforconfiguringinformation,theotherforretrievinginformation."
Help2="Selectacategoryfromthelistofcategories.Whenyoudoso,asetoftaskswillbedisplayedintheTaskArea.Clickataskandtwoscriptswillautomaticallybecreated:oneforconfiguringinformation,theotherforretrievinginformation."
Help3="Clickataskandtwoscriptswillautomaticallybecreated:oneforconfiguringinformation,theotherforretrievinginformation."