4d座椅vb
先進入註冊表編輯器，把這個鍵值所在位置做導出操作，比如aa.reg，然後用記事本打開這個reg文件，把裏面的內容復制出來到VB裏，寫入壹個字符串變量，或者寫成多個字符串再合並也是壹樣的
然後在代碼中把這個字符串變量當做普通的文本文件寫出來，並命名為tmp.reg，然後調用壹行代碼將其導入到註冊表，最後再將這個臨時文件刪除
導入方法
shell "regedit /s tmp.reg",0
===================================
如果不願意這樣做，可以參照下面的問題答案
/question/44441540.html
===================================
Private Sub Command1_Click()
Dim regdata(25) As String
regdata(0) = "Windows Registry Editor Version 5.00"
regdata(2) = "[HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion\Image File Execution Options\cqw32.exe]"
regdata(3) = """ApplicationGoo""=hex:14,02,00,00,10,02,00,00,00,02,00,00,90,04,34,00,00,00,56,\"
regdata(4) = " 00,53,00,5f,00,56,00,45,00,52,00,53,00,49,00,4f,00,4e,00,5f,00,49,00,4e,00,\"
regdata(5) = " 46,00,4f,00,00,00,00,00,bd,04,ef,fe,00,00,01,00,00,00,07,00,0b,00,00,00,00,\"
regdata(6) = " 00,07,00,0b,00,00,00,3f,00,00,00,02,00,00,00,04,00,01,00,01,00,00,00,00,00,\"
regdata(7) = " 00,00,00,00,00,00,00,00,00,00,44,00,00,00,01,00,56,00,61,00,72,00,46,00,69,\"
regdata(8) = " 00,6c,00,65,00,49,00,6e,00,66,00,6f,00,00,00,00,00,24,00,04,00,00,00,54,00,\"
regdata(9) = " 72,00,61,00,6e,00,73,00,6c,00,61,00,74,00,69,00,6f,00,6e,00,00,00,00,00,09,\"
regdata(10) = " 04,e4,04,f0,03,00,00,01,00,53,00,74,00,72,00,69,00,6e,00,67,00,46,00,69,00,\"
regdata(11) = " 6c,00,65,00,49,00,6e,00,66,00,6f,00,00,00,cc,03,00,00,01,00,30,00,34,00,30,\"
regdata(12) = " 00,39,00,30,00,34,00,45,00,34,00,00,00,4a,00,19,00,01,00,43,00,6f,00,6d,00,\"
regdata(13) = " 6d,00,65,00,6e,00,74,00,73,00,00,00,43,00,72,00,79,00,73,00,74,00,61,00,6c,\"
regdata(14) = " 00,20,00,53,00,51,00,4c,00,20,00,44,00,65,00,73,00,69,00,67,00,6e,00,65,00,\"
regdata(15) = " 72,00,20,00,37,00,2e,00,30,00,00,00,00,00,88,00,34,00,01,00,43,00,6f,00,6d,\"
regdata(16) = " 00,70,00,61,00,6e,00,79,00,4e,00,61,00,6d,00,65,00,00,00,00,00,53,00,65,00,\"
regdata(17) = " 61,00,67,00,61,00,74,00,65,00,20,00,53,00,6f,00,66,00,74,00,77,00,61,00,72,\"
regdata(18) = " 00,65,00,20,00,49,00,6e,00,66,00,6f,00,72,00,6d,00,61,00,74,00,69,00,6f,00,\"
regdata(19) = " 6e,00,20,00,4d,00,61,00,6e,00,61,00,67,00,65,00,6d,00,65,00,6e,00,74,00,20,\"
regdata(20) = " 00,47,00,72,00,6f,00,75,00,70,00,2c,00,20,00,49,00,6e,00,63,00,2e,00,00,00,\"
regdata(21) = " ae,00,45,00,01,00,4c,00,65,00,67,00,61,00,6c,00,43,00,6f,00,70,00,79,00,72,\"
regdata(22) = " 00,69,00,67,00,68,00,74,00,00,00,43,00,6f,00,70,00,79,00,72,00,69,00,67,00,\"
regdata(23) = " 68,00,74,00,20,00,28,00,63,00,29,00,20,00,31,00,39,00,39,00,31,00,2d,00,31,\"
regdata(24) = " 00,39,00,39,00,10,00,00,00,00,00,00,00"
regdata(25) = vbCrLf
WriteTXT "c:\tmp.reg", Join(regdata, vbCrLf)
Shell "regedit /s c:\tmp.reg"
Kill "c:\tmp.reg"
End Sub
Sub WriteTXT(FileName As String, TXT As String)
Dim fn As Long: fn = FreeFile
Open FileName For Binary As #fn
Put #fn, , TXT
Close #fn
End Sub
測試通過
先用註冊表編輯器導出到a.reg，刪除該鍵值，執行以上代碼，再到註冊表編輯器中導出到b.reg，經過2進制比較，兩文件完全相同