Mờ nhạt
writeName,writeValue,fileName,regLoaction,regApp
Bộ
regApp=WScript.CreateObject(
"WScript.Shell"
)
Tên tệp=
"FullScan.txt"
viếtTên=
"xiaoqiang"
ghiGiá Trị=
"Bài kiểm tra"
regLoaction=getRegPathArray(getFileText(tên tệp))
viết regLoaction,writeName,writeValue
đọc regLoaction,writeName
Chức năng
đọc(regLoaction,writeName)
Mờ nhạt
trả vềStrArray(),j
j=0
Nếu như
viếtTên=
""
hoặc writeValue=
""
sau đó
hộp tin nhắn
"Lỗi!! Vui lòng nhập tên và giá trị khóa"
khác
cho i=0 đến ubound(regLoaction)
ReDim
Bảo tồn
trả vềStrArray(j)
regPath=regLoaction(i)&"\"&writeName
trả vềStrArray(j)=regPath&
"? "
®App.RegRead(regPath)
j=j+1
Kế tiếp
Kết thúc
nếu như
writeResult trả vềStrArray
Kết thúc
Chức năng
Chức năng
viết(regLoaction,writeName,writeValue)
Nếu như
viếtTên=
""
hoặc writeValue=
""
sau đó
hộp tin nhắn
"Lỗi!! Vui lòng nhập tên và giá trị khóa"
khác
cho i=0 đến ubound(regLoaction)
regApp.RegWrite regLoaction(i)&"\"&writeName,writeValue
Kế tiếp
Kết thúc
nếu như
Kết thúc
Chức năng
phụ writeResult(contentArray)
Hằng số
Đối với Đọc = 1, Đối với Viết = 2
Mờ nhạt
fso,f,returnStrArray(),i
Bộ
fso = Tạo đối tượng(
"Scripting.FileSystemObject"
)
Bộ
f = fso.OpenTextFile(
"kết quả.txt"
, 2,đúng)
cho i=0 đến ubound(contentArray)
f.writeline(contentArray(i))
Kế tiếp
f. đóng()
Kết thúc
Phụ
Chức năng
lấyRegPathArray(mảng nguồn)
Mờ nhạt
đầu, returnStrArray(),j
j=0
cho i=0 đến ubound(sourceArray)
Nếu như
nguồnMảng(i)=
"[HKEY_LOCAL_MACHINE]"
sau đó
đầu=
"HKLM"
nếu không thì sourceArray(i)=
"[HKEY_USERS]"
sau đó
đầu=
"HKEY_USERS\.MẶC ĐỊNH"
nếu không thì sourceArray(i)=
"[HKEY_CURRENT_USER]"
sau đó
đầu=
"Đại học Hồng Kông"
nếu không thì sourceArray(i)=
"[HKEY_CLASSES_ROOT]"
sau đó
đầu=
"HKCR"
nếu không thì sourceArray(i)=
"[HKEY_CURRENT_CONFIG]"
sau đó
đầu=
"HKEY_CURRENT_CONFIG"
khác
ReDim
Bảo tồn
trả vềStrArray(j)
str=đầu&chia(mảng nguồn(i),
"="
)(1)
trả vềStrArray(j)=str
j=j+1
Kết thúc
Nếu như
Kế tiếp
getRegPathArray=trả vềStrArray
Kết thúc
Chức năng
Chức năng
getFileText(têntệp)
Hằng số
Đối với Đọc = 1, Đối với Viết = 2
Mờ nhạt
fso,f,returnStrArray(),i
Bộ
fso = Tạo đối tượng(
"Scripting.FileSystemObject"
)
Bộ
f = fso.OpenTextFile(têntệp, 1)
tôi = 0
làm trong khi f.atendofstream<>true
ReDim
Bảo tồn
trả vềStrArray(i)
trả vềStrArray(i)=f.readline()
tôi=tôi+1
vòng lặp
f. đóng()
getFileText=trả vềStrArray
Kết thúc
Chức năng
Tôi là một lập trình viên xuất sắc, rất giỏi!