Los expertos de VB vienen y echan un vistazo a cómo escribir y eliminar el registro.

Le brindamos una solución simple y factible

Primero ingrese al editor de registro, exporte la ubicación del valor clave, como aa.reg, y luego use el Bloc de notas para abrir el archivo de registro. , copie el contenido en VB, escríbalo en una variable de cadena o escríbalo en varias cadenas y combínelas nuevamente.

Luego trate esta variable de cadena como texto normal en el código Escriba el archivo y asígnele un nombre tmp.reg, luego llame a una línea de código para importarlo al registro y finalmente elimine el archivo temporal

Método de importación

shell "regedit /s tmp.reg",0

====================================

Si no está dispuesto a hacer esto, puede consultar las respuestas a las siguientes preguntas

/question/44441540.html

============= == ======================

Subcomando privado1_Click()

Atenuar regdata(25) como cadena

regdata(0) = "Editor del Registro de Windows Versión 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, 3

9, 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"

Eliminar "c:\tmp.reg"

End Sub

Sub WriteTXT(Nombre de archivo como cadena, TXT como cadena)

Dim fn As Long: fn = FreeFile

Abrir nombre de archivo para binario como #fn

Poner #fn, , TXT

Cerrar #fn

End Sub

Prueba aprobada

Usar primero Exporte a a.reg en el Editor del Registro, elimine el valor clave, ejecute el código anterior y luego exporte a b.reg en el Editor del Registro. Después de la comparación binaria, los dos archivos son exactamente iguales