//vbs
'配置檔名
filename="fullscan.txt"
'輸入鍵名
writename="xiaoqiang"
'輸入鍵值
writevalue="test"
'************************指令碼執行區間********************************
'根據配置檔案獲取登錄檔路徑陣列
regloaction=getregpatharray(getfiletext(filename))
'寫入登錄檔
write regloaction,writename,writevalue
'讀取寫入的鍵值 生成並生成結果檔案
read regloaction,writename
'輸出結果檔案
sub writeresult(contentarray)
const forreading = 1, forwriting = 2
dim fso,f,returnstrarray(),i
set fso = createobject("scripting.filesystemobject")
set f = fso.opentextfile("result.txt", 2,true)
for i=0 to ubound(contentarray)
f.writeline(contentarray(i))
next
f.close()
end sub
'得到登錄檔路徑陣列
function getregpatharray(sourcearray)
dim head,returnstrarray(),j
j=0for i=0 to ubound(sourcearray)
if sourcearray(i)="[hkey_local_machine]" then
head="hklm"
elseif sourcearray(i)="[hkey_users]" then
head="hkey_users\.default"
elseif sourcearray(i)="[hkey_current_user]" then
head="hkcu"
elseif sourcearray(i)="[hkey_classes_root]" then
head="hkcr"
elseif sourcearray(i)="[hkey_current_config]" then
head="hkey_current_config"
else
redim preserve returnstrarray(j)
str=head&split(sourcearray(i),"=")(1)
returnstrarray(j)=str
j=j+1
end if
next
getregpatharray=returnstrarray
end function
'得到檔案內容存入陣列
function getfiletext(filename)
const forreading = 1, forwriting = 2
dim fso,f,returnstrarray(),i
set fso = createobject("scripting.filesystemobject")
set f = fso.opentextfile(filename, 1)
i=0do while f.atendofstream<>true
redim preserve returnstrarray(i)
returnstrarray(i)=f.readline()
i=i+1
loop
f.close()
getfiletext=returnstrarray
end function
//配置檔案
quickscan.txt
[hkey_local_machine]
1=\software\microsoft\windows\currentversion\run
2=\software\microsoft\windows\currentversion\policies\explorer\run\
3=\software\microsoft\windows\currentversion\runonce\
4=\software\microsoft\windows\currentversion\runservicesonce\
5=\software\microsoft\windows\currentversion\runonceex
6=\software\microsoft\windows\currentversion\policies\system\shell\
7=\software\microsoft\windows\currentversion\shellserviceobjectdelayload\
8=\software\policies\microsoft\windows\system\scripts\
[hkey_current_user]
1=\software\microsoft\windows\currentversion\run
2=\software\microsoft\windows\currentversion\policies\explorer\run\
3=\software\microsoft\windows\currentversion\runonce\
4=\software\microsoft\windows\currentversion\runservicesonce\
5=\software\microsoft\windows\currentversion\runonceex
6=\software\microsoft\windows\currentversion\policies\system\shell\
7=\software\microsoft\windows\currentversion\shellserviceobjectdelayload\
8=\software\policies\microsoft\windows\system\scripts\
讀寫登錄檔
ie 是現在windows 平台下用的最多的瀏覽器，那麼如何用程式來修改 ie,打造有自己的特色的 ie呢？我在這裡向介紹怎麼 c 用通過登錄檔來修改ie。首先我們來熟悉一下 c 中修改登錄檔的方法與函式。在 vc 中提供了 registry 類 registrykey 類來實現對登錄檔的操作。其中...
讀寫登錄檔
寫登錄檔 registrykey regwrite 往hkey current user主鍵裡的software子鍵下寫乙個名為 test 的子鍵 如果test子鍵已經存在系統會自動覆蓋它 regwrite registry.currentuser.createsubkey software tes...
VC讀寫登錄檔
讀登錄檔 void cregeditdlg onquery 查詢有關的資料 lpbyte owner get new byte 80 dword type 1 reg sz dword cbdata 1 80 long ret1 regqueryvalueex hkey,registeredowne...