Copiez et collez le code dans un document texte, enregistrez-le et modifiez le nom du suffixe du fichier en: HTA et double-cliquez pour exécuter.
Le code est le suivant:
<! - /////////////////// =====
Nom du programme: Record de consommation VER1.1 (20070808-20070811) .hta
Instructions pour une utilisation: Copiez et collez le code dans un document texte, enregistrez-le et modifiez le nom du suffixe du fichier en: HTA et double-cliquez pour exécuter.
Description de l'auteur: youxi01 ,,, pas de copyright, bienvenue dans la version piratée !! //////////// ->
<! - ////////////////// ->
<Title> Programme d'enregistrement de la consommation </TITAL>
<meta http-equiv = "content-type" content = "text / html; charset = gb2312" />
<! - ////////// HTA LOGO ///// ->
<HTA: application
Scroll = "non"
Légende = "Oui"
Sysmenu = "oui" />
<! - /////////////// ->
<script linguisse = "vbscript">
Totalmoney = 0 'Consommation totale
index = -1 'Initialiser le numéro d'identification de contrôle de la boîte à cocher;
drapeau = 0 'L'indicateur qui définit si le fichier est modifié
set fso = createObject ("scripting.fileSystemObject")
'/////////////////////////// Lisez le fichier de configuration et définissez sa propre taille et son emplacement ///////
Sub window_onload
Sinon (fso.fileExists ("Consume.ini")) alors 'Créer s'il n'y a pas de fichier de configuration;
fso.CreateTextFile ("Consume.ini"). Close.
terminer si
Window.Resizeto 638 495 'régler sa propre taille et position;
window.moveto 200,100
Addrow 0, "Hoho", "2007-1-1", "mardi" "Add a une ligne en premier. Je ne peux même pas le comprendre moi-même, mais je l'utilise pour traiter les bugs de toute façon;
document.all.NameDItem ("myTable"). lignes (1) .style.display = "Aucun" 'Set Cette ligne est invisible;
Addrow 0, "Hoho", "2007-1-1", "mardi" "Ajouter une autre ligne. Je ne peux même pas le comprendre moi-même, mais je l'utilise pour traiter les bugs de toute façon;
document.all.NameDItem ("myTable"). lignes (2) .style.display = "Aucun" 'Set Cette ligne est invisible;
ReadFile ("Consume.ini")
Sub-Sub
'/////////////////////////////////////////////////////////////////// /
Fonction ReadFile (nom de fichier)
set file = fso.opentextfile (nom de fichier, 1,1)
faire while file.atendofline <> true 'Lisez le fichier jusqu'à la fin du fichier
str = Split (file.readline, "#") 'Split pas de lignes par # drapeau (il y a un total de quatre de ces drapeaux)
Addrow STR (1), STR (2), STR (3), STR (4) 'Ajouter cinq cellules, le contenu est ...
boucle
Fonction finale
'/////////////////////////////////
Fonction addrow (cnum, ctype, cdate, cday)
index = index + 1 'le numéro de série ajoute 1
définir objTable = Document.all.NameDItem ("myTable") 'Get Object Table basé sur ID
Définir Newrow = objTable.insertrow () 'Insérez une ligne
newrow.classname = "row_add" 'Définissez le style de la ligne;
newrow.onmouseOver = getRef ("change_bgcolor")
newrow.onmouseout = getRef ("back_bgcolor")
newrow.onclick = getRef ("ChoOsObj")
var = "#" & cnum & "#" & ctype & "#" & cdate & "#" & cday
str = split (var, "#")
str (0) = "<input type = checkbox id = 'Delcheck' & index>"
pour i = 0 à 4
Définissez newCell = newrow.insertCell () 'Insérez la cellule et définissez la valeur de la cellule;
newCell.innerhtml = str (i)
suivant
TotalMoney = TotalMoney + Clng (Cnum) 'définir la valeur de la consommation totale et définir l'affichage;
consommation.innerhtml = "Consommation totale:" & Totalmoney & "Yuan"