عندما لا أستطيع الوصول هذه الأيام ، راجعت الأشياء على القرص الصلب ووجدت هذا الشيء. نظرًا لمستولي المحدود وعدم وجود بحث على DHTML ، فقد فعلت ذلك تقريبًا. لصقها لجذب اليشم. آمل أن يتمكن بعض الخبراء من المساعدة في تعديل أو الخروج بأشياء أفضل.
بيئة الاختبار هي Windows XP Professional Edition SP2. لقد عثرت مؤقتًا على الأخطاء في تلوين الكود. على الرغم من وجود حلول ، نظرًا لكمية الكود (من المزعج حقًا كتابة التعليمات البرمجية في المفكرة) ، لم يتم تصحيحها في الوقت الحالي. بالإضافة إلى ذلك ، من المتوقع إضافة الانتهاء التلقائي والوظائف الأخرى في المستقبل.
PS: استخدم VBS Script + DHTML ، يتم الانتهاء من الوظيفة الرئيسية عن طريق التعبير العادي + WMIC ، يجب حفظ الكود كملف نوع HTA ، وبالطبع يمكن أيضًا تغييره إلى برنامج نصي VBS خالص ، ولكن هذا أقل كفاءة وأن الرمز أكثر تعقيدًا.
الرمز كما يلي:
<html>
<head>
<title> محرر الكود </title>
<hta: application select = "no" scroll = "no" contextMenu = "no" />
<script language = "vbscript">
'*********************************************************************
يبدأ السيناريو
'*********************************************************************
تعيين shell = createObject ("wscript.shell")
set fso = createObject ("scripting.filesystemObject")
'*********************************************************************
سافر عبر جميع أنواع الملفات المحلية
'*********************************************************************
Sub OptionAdd (Fext)
str = "<select size =" "1" "name =" "objoption" "onChange =" "TestSub" ">"
تعيين OBJDATAFILES = getObject ("winmgmts:" _
& "{incshershiplevel = incloyate}! //./ root/cimv2")
تعيين colfiles = objdatafiles. _
execquery ("SELECT * من cim_datafile حيث الامتداد = '" & fext & "' ')
لكل objfile في colfiles
str = str & "<option value =" "" "& objfile.name &" ""> "& _
objfile.name & "</point>"
التالي
str = "<label> ملف البرنامج النصي المحلي: </label>" & str & "</select>"
foroption.innerhtml = str
نهاية الفرعية
'*********************************************************************
"تحويل اللون
'*********************************************************************
Sub changeColor
إذا كان cxs.value = "vbs" ثم
winmain.innerhtml = changevbs (winMain.innertext)
آخر 'السيناريو CMD
winmain.innerhtml = changeCmd (winmain.innertext)
إنهاء إذا
نهاية الفرعية
'*********************************************************************
وحدة تحويل VBS
'*********************************************************************
وظيفة تغيير (stext)
تعيين re = جديد regexp
re.ignorecase = صحيح
re.global = صحيح
'تحويل التعليق
re.pattern = "(/'.*)/r/n"
stext = re.replace (stext ، "<font color =#339999> $ 1 </font> <p>")
'تحويل الرمز إلى [الأزرق]
re.pattern = "(/(|/)|/&| &+|/-| couted/٪|/::|/ ؛|/.|/" "&") "
stext = re.replace (stext ، "<font color =#993333> $ 1 </font>")
stext = "<table> <tr> <td width = '1024'" & _