1樓：孤星
vbs指令碼寫入登錄檔:
----------
set ws=createobject("wscript.shell")
ws.regwrite "項路徑\子鍵名\鍵值","鍵值資料" ,"鍵值型別"
----------
例:ws.regwrite "hkey_classes_root\hkcr.ensp\enspfile","123.exe" ,"reg_sz"
在hkcr項下建立子項hkcr.ensp,右側建立reg_sz型別的鍵值enspfile,賦資料為123.exe
2樓：匿名使用者
1.建立一個按鈕，名稱為“寫入登錄檔”。
2.宣告部分：
option explicit
public const reg_none = 0
public const reg_sz = 1
public const reg_expand_sz = 2
public const reg_binary = 3
public const reg_dword = 4
public const reg_dword_big_endian = 5
public const reg_multi_sz = 7
declare function regopenkey lib "advapi32.dll" alias "regopenkeya"
(byval hkey as long, byval lpsubkey as string, phkresult as long) as long
declare function regclosekey lib "advapi32.dll" (byval hkey as long) as long
declare function regsetvalueex lib "advapi32.dll" alias "regsetvalueexa" (byval hkey as long, byval lpvaluename as string, byval reserved as long, byval dwtype as long, lpdata as any, byval cbdata as long) as long
3.再就是名稱為“寫入註冊”按鈕的click事件：
private sub 寫入登錄檔_click()
dim ret as long, hkey as long,rvalue as string
rvalue="value名稱為enspfile的鍵值"
ret = regcreatekey(hkey_classes_root,"ensp",hkey)
if ret=0 then
ret=regsetvalueex(hkey,"enspfile",0,reg_sz,byval rvalue,lenb(rvalue)+1)
if ret<>0 then
msgbox "寫入鍵值失敗！"
end if
else
msgbox "建立子鍵hkey_classes_root\ensp失敗！"
end if
regclosekey hkey
end sub
我還不太瞭解你的具體意思，以上是我根據自己的判斷回答的，不知道對不對的你意思。應該很好看懂，你稍微改點就ok了。
VB裡如何寫關閉計算機的程式，VB裡如何寫一個關閉計算機的程式
shell shutdown s f 60 呼叫windows的關機命令shutdown，60代表60秒，可以自己改 直接用 shell shutdown s f 那個寫了一大篇的傢伙.你太專業了,為什麼有簡單的東西非要做成那樣呢,副總裁就做的很好嘛.直接呼叫外部程式 shutdown.exe wi...
簡單的VB程式設計用while和if寫程式
這個程式效率很高，給幾個結果 k n1 22 43 11。10 12367 20 272400600private sub form load end sub private sub command1 click sn 0 k val text1.text j 1 while sn k sn sn ...
cvs2019或者2019寫的程式一定要在安裝
1 一定要。2 不會有相容性問題 3 vs2010去年6月才剛出來，現在用的最多的是2008版本，關鍵是你的能力，不在於你用的版本多新 第一個問題，是的，因為編譯出來的是架構在.net上的，但是補充一點，如果要跨平臺的話，除了.net還有mono之類其它的替代產品 第二個問題。要看是什麼程式。比如你...