صناديق الأدوات الشائعة التي كتبها HTA (اختصارات الأدوات المشتركة ، وما إلى ذلك)

1. مقدمة لوظائف البرنامج:

يتم كتابة البرنامج على أساس VBS+HTA. تم تمرير الاختبار تحت نظام XP (شاشات العرض المختلفة ، قرارات).

1. يستخدم هذا البرنامج بشكل أساسي وظيفة إزالة السمات المخفية لمجلدات قرص U: يمكنك أولاً إنهاء عملية المستخدم (بما في ذلك عمليات الفيروس) ، ثم إزالة المجلد المخفي بواسطة الفيروس ، وحذف نسخة ملف فيروس Exe بنفس اسم المجلد.

2. الوظائف المساعدة:

① إضافة الأوامر الشائعة ، مثل: فتح إعدادات طريقة الإدخال ، وإعدادات الصوت ، وبرامج تكوين النظام ، وما إلى ذلك ؛ بالإضافة إلى ذلك ، تمت إضافة وظيفة "إنشاء سطح مكتب العرض" خصيصًا لمساعدة الأصدقاء الذين قاموا بحذف سطح مكتب عرض الاختصار عن طريق الخطأ لاسترداد وظيفة "عرض سطح المكتب".

② إضافة وظائف إعداد التسجيل شائعة الاستخدام ، مثل: فتح السجل ، وعرض "خيارات المجلد" ، وعرض الملفات المخفية بالكامل (يجب أن يكون إعداد "إظهار الملفات المخفية" في خيارات المجلد غير صالح).

لقطة شاشة

الكود الأساسي:

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

<script language = "vbscript">

عند استئناف الخطأ التالي

قاتمة FSO ، WSH

set fso = createObject ("scripting.filesystemObject")

تعيين wsh = createObject ("wscript.shell")

Dim Regpath (8)

بيانات قاتمة (8)

regp = "HKCU/Software/Microsoft/Windows/CurrentVersion/Policies/"

Regpath (1) = regp & "system/disableregistrytools"

البيانات (1) = "00000000"

RegPath (2) = regp & "system/disableTaskMg"

البيانات (2) = "00000000"

RegPath (3) = regp & "explorer/nofolderoptions"

البيانات (3) = "00000000" "يعرض" خيارات المجلد "

RegPath (4) = "HKLM/Software/Microsoft/Windows/CurrentVersion/Explorer/"

RegPath (4) = RegPath (4) و "Advanced/Folder/Showall/Tyre"

Data (4) = "Radio" 'Show'Show Hidden File "

RegPath (5) = regp & "explorer/nodrivetypeautorun" "تعطيل التشغيل التلقائي لمحرك أقراص فلاش USB

البيانات (5) = "000000B5"

regpath (6) = "HKCU/Software/Microsoft/Windows/CurrentVersion/Explorer/Advanced/GendFileSte"

البيانات (6) = "00000000"

RegPath (7) = regp & "explorer/rectrictrun" "سياسة مجموعة فتح

البيانات (7) = "00000000"

RegPath (8) = "HKLM/Software/Microsoft/Windows/CurrentVersion/Explorer/"

RegPath (8) = RegPath (4) و "Advanced/Folder/Showall/CheckedValue"

البيانات (8) = "00000001" "دع تعديل مجلد العرض يسري ساري المفعول

addp = "control appwiz.cpl" 'إضافة/إزالة البرنامج

sound = "rundll32.exe shell32.dll ، control_rundll mmsys.cpl @1"

language = "rundll32.exe shell32.dll ، control_rundll intl.cpl ،، 1" '"

خيارات = "Rundll32.exe shell32.dll ، خيارات خيارات 0"

System = "Control Sysdm.Cpl" خصائص النظام

المهام = "مهام التحكم في الجداول"

sub window_onload

Window.Resizeto 500،350

ileft = (window.screen.width-500)/2

ITOP = (window.screen.height-350)/2

window.moveto ileft ، Itop

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

وظيفة Secboard (N)

ل I = 0 إلى Sectable.cells.length-1

collsable.cells (i) .className = "Sec1"

التالي

Concable.cells (n) .className = "Sec2"

ل I = 0 إلى mtable.tbodies.length-1

mtable.tbodies (i) .style.display = "none"