เมื่อฉันไม่สามารถเข้าถึงได้ในวันนี้ฉันได้ตรวจสอบสิ่งต่าง ๆ ในฮาร์ดไดรฟ์และพบสิ่งนี้ เนื่องจากระดับที่ จำกัด ของฉันและไม่มีการวิจัยเกี่ยวกับ DHTML ฉันจึงทำอย่างคร่าวๆ ฉันวางมันเพื่อดึงดูดหยก ฉันหวังว่าผู้เชี่ยวชาญบางคนสามารถช่วยแก้ไขหรือสร้างสิ่งที่ดีกว่าได้
สภาพแวดล้อมการทดสอบคือ Windows XP Professional Edition SP2 ฉันพบข้อบกพร่องชั่วคราวในการระบายสีรหัส แม้ว่าจะมีวิธีแก้ปัญหาเนื่องจากจำนวนรหัส (มันน่ารำคาญจริงๆที่จะเขียนโค้ดใน Notepad) แต่ก็ไม่ได้รับการแก้ไขในขณะนี้ นอกจากนี้คาดว่าจะเพิ่มความสมบูรณ์โดยอัตโนมัติและฟังก์ชั่นอื่น ๆ ในอนาคต
PS: ใช้ VBS Script + DHTML, ฟังก์ชั่นหลักเสร็จสมบูรณ์โดย Expression + WMIC ปกติรหัสจะต้องถูกบันทึกเป็นไฟล์ประเภท HTA และแน่นอนว่ามันสามารถเปลี่ยนเป็นสคริปต์ VBS บริสุทธิ์ได้ แต่ก็มีประสิทธิภาพน้อยกว่ามาก
รหัสมีดังนี้:
<html>
<head>
<title> รหัสตัวแก้ไข </title>
<HTA: การเลือกแอปพลิเคชัน = "ไม่" scroll = "no" contextMenu = "no" />>>>
<ภาษาสคริปต์ = "vbscript">
-
'สคริปต์เริ่มต้นขึ้น
-
set shell = createObject ("wscript.shell")
ตั้งค่า fso = createObject ("Scripting.filesystemObject")
-
'เดินทางผ่านไฟล์ทุกประเภทท้องถิ่น
-
ตัวเลือกย่อย (FEXT)
str = "<select size =" "1" "name =" "objoption" "onchange =" "testsub" ">"
ตั้งค่า objdatafiles = getObject ("winmgmts:" _
& "{impersonationLevel = impersonate}! //./ root/cimv2")
ตั้งค่า colfiles = objdatafiles -
ExecQuery ("SELECT * จาก CIM_DATAFILE โดยที่ส่วนขยาย = '" & fext & "'")
สำหรับแต่ละ objfile ใน colfiles
str = str & "<ตัวเลือกค่า =" "" & objfile.name & "" ">" & _
objfile.name & "</petion>"
ต่อไป
str = "<label> ไฟล์สคริปต์ท้องถิ่น: </lable>" & str & "</select>"
forOption.innerhtml = str
สิ้นสุดย่อย
-
'การแปลงสี
-
การเปลี่ยนสีย่อย
ถ้า cxs.value = "vbs" แล้ว
winmain.innerhtml = angrevbs (winmain.innertext)
สคริปต์อื่น ๆ 'cmd
winmain.innerhtml = changecmd (winmain.innertext)
สิ้นสุดถ้า
สิ้นสุดย่อย
-
'โมดูลการแปลง VBS
-
Function Changesvbs (Stext)
ตั้งค่า re = ใหม่ regexp
re.ignorecase = true
re.global = true
'การแปลงความคิดเห็น
re.pattern = "(/'.*)/r/n"
stext = re.replace (stext, "<font color =#339999> $ 1 </font> <p>")
'แปลงสัญลักษณ์เป็น [สีน้ำเงิน]
re.pattern = "(/(|/)
stext = re.replace (stext, "<font color =#993333> $ 1 </font>")
stext = "<table> <tr> <td width = '1024'" & _