برنامج سجل المستهلك كتبه HTA

انسخ والصق الرمز في مستند نصي ، وحفظه ، وقم بتغيير اسم لاحقة الملف إلى: HTA ، وانقر نقرًا مزدوجًا للتشغيل.

الرمز كما يلي:

<!-//////////////////////////=====

اسم البرنامج: سجل الاستهلاك Ver1.1 (20070808-20070811) .HTA

تعليمات الاستخدام: انسخ والصق الرمز في مستند نصي ، وحفظه ، وقم بتغيير اسم لاحقة الملف إلى: HTA ، وانقر نقرًا مزدوجًا للتشغيل.

وصف المؤلف: youxi01 ،،، لا حقوق الطبع والنشر ، مرحبًا بكم في الإصدار المقرصنة !! ///////////->

<!-////////////////////->

<title> برنامج تسجيل الاستهلاك </title>

<meta http-equiv = "content-type" content = "text/html ؛ charset = gb2312"/>

<!-////////////HTA LOGO /////->

<hta: التطبيق

Scroll = "لا"

Caption = "نعم"

sysmenu = "نعم"/>

<!-///////////////->

<script language = "vbscript">

TotalMoney = 0 'الاستهلاك الكلي

index = -1 'تهيئة رقم معرف التحكم في مربع الاختيار ؛

flag = 0 'العلامة التي تحدد ما إذا كان الملف قد تم تغييره

set fso = createObject ("scripting.filesystemObject")

'//////////////////////////// اقرأ ملف التكوين وحدد حجمه وموقعه ////////

sub window_onload

إذا لم يكن (fso.filexists ("الاستهلاك.

fso.createTextFile ("strupe.ini")

إنهاء إذا

Window.Resizeto 638،495 'حدد حجمها وموضعها ؛

Window.Moveto 200،100

Addrow 0 ، "Hoho" ، "2007-1-1" ، "الثلاثاء" "أضف صفًا أولاً. لا أستطيع حتى أن أفهم ذلك بنفسي ، لكنني أستخدمه للتعامل مع الأخطاء على أي حال ؛

document.all.namedItem ("mytable"). الصفوف (1) .style.display = "none" 'تعيين هذا السطر غير مرئي ؛

Addrow 0 ، "Hoho" ، "2007-1-1" ، "الثلاثاء" "أضف صفًا آخر. لا أستطيع حتى أن أفهم ذلك بنفسي ، لكنني أستخدمه للتعامل مع الأخطاء على أي حال ؛

document.all.namedItem ("mytable"). الصفوف (2) .style.display = "none" "تعيين هذا السطر غير مرئي ؛

ReadFile ("strue.ini")

نهاية الفرعية

'//////////////////////////////////////////////

وظيفة Readfile (اسم الملف)

تعيين ملف = fso.opentextFile (اسم الملف ، 1،1)

قم بـ file.atendofline <> true 'اقرأ الملف حتى نهاية الملف

str = split (file.readline ، " #") "تقسيم لا صفوف بواسطة # العلم (هناك ما مجموعه أربعة أعلام من هذا القبيل)

addrow str (1) ، str (2) ، str (3) ، str (4) 'إضافة خمس خلايا ، المحتويات ...

حلقة

وظيفة نهاية

'/////////////////////////////////

وظيفة AddRow (CNUM ، Ctype ، CDATE ، CDAY)

الفهرس = الفهرس+1 'يضيف الرقم التسلسلي 1

set objtable = document.all.namedItem ("mytable") الحصول على جدول كائن استنادًا إلى المعرف

تعيين newRow = objtable.insertrow () 'أدخل خط

newRow.ClassName = "row_add" "قم بتعيين نمط الخط ؛

newRow.onmouseover = getRef ("change_bgcolor")

newRow.onmouseout = getRef ("back_bgcolor")

newRow.onclick = getRef ("choiceObj")

var = "#" & cnum & "#" & ctype & "#" & cdate & "#" & cday

str = split (var ، "#")

str (0) = "<input type = checkbox id = 'delcheck' & index>"

لأني = 0 إلى 4

تعيين newcell = newRow.insertcell () 'أدخل الخلية وتعيين قيمة الخلية ؛

newcell.innerhtml = str (i)

التالي

TotalMoney = TotalMoney+CLNG (CNUM) "ضبط قيمة إجمالي الاستهلاك وتحديد الشاشة ؛

الاستهلاك.