代码如下:
<html>
<adal>
<Title> Tweakomatic1.0 </Title>
<HTA: application
Id = "objtweakomatic"
ApplicationName = "tweakomatic"
Scroll = "non"
Singleinstance = "Oui"
Fenêtre = "maximiser"
>
</ head>
<style>
CORPS
{
Color d'arrière-plan: ButtonFace;
Font-Family: Helvetica;
taille de police: 8pt;
marge: 10px;
marge-gauche: 10px;
marge-droite: 10px;
marge-fond: 10px;
}
.bouton
{
Font-Family: Helvetica;
taille de police: 8pt;
}
textarea
{
Font-Family: Arial;
taille de police: 8pt;
marge-gauche: 3px;
}
sélectionner
{
Font-Family: Arial;
taille de police: 8pt;
Largeur: 450px;
marge-gauche: 0px;
}
TD
{
Font-Family: Arial;
taille de police: 10 pt;
}
</ style>
<criptLanguage = "vbscript">
Consadopenstatic = 3
Constadlockoptimistic = 3
Constaduseclient = 3
Defaultcomputer = "."
Masterfile = ""
RetrievalFile = ""
StarThelp = "Tobegin, SelectAmanageABLECOMPOINT, andTheNesectAcategoryoftasks.Whenyoudoso, asetoftaskswillbedisplayedInthetaskarea.clickataskandtwoscriptswillatomaticaticatered: OneforconfiguringInformation, theotheforreginformation."
Help2 = "SelectAcategoryfromtheListofcategories.Whenyoudoso, asetoftaskswillbedisplayenthetaskarea.clickataskandtwoscriptswilillaTOMAMATICAL-CREACED: OneForConfiguringInformation, TheotherForRetrievingInformation."
Help3 = "clickataskandtwoscriptswillaTOMAMATICAL CECÉRÉE: OneForConfiguringInformation, TheotherForRetrievingInformation."