==========================
Función de declaración privada RegCreateKey Lib "advapi32 .dll "Alias" RegCreateKeyA" (ByVal hKey es larga, ByVal lpSubKey es cadena, phkResult es larga) es larga
Función de declaración privada 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) Tenga en cuenta que si el parámetro lpData se declara como Cadena, debe pasarse por valor.
Función de declaración privada RegCloseKey Lib " advapi 32 . dll "(ByVal hKey As Long)As Long
Estas son declaraciones, no te preocupes por ellas.
Dim hKey es Long, SubKey es String, Exe es String
La variable Hkey almacena el identificador de la clave de registro abierta, Subkey almacena el nombre de la subclave de registro y la variable exe. almacena la ruta del programa.
Subcomando privado 1_Click()
Se activa al hacer clic en el botón.
SubKey=" Software\Microsoft\Windows\current version\Run "
Asigne un valor a la variable subclave, que es la subclave del registro que se va a editar.
exe = " D:\ Archivos de programa \ 360(ASD)\ 360 safe box \ 360 safe box . exe "
Asigne un valor a la variable exe, este valor es para boot La ruta completa del programa.
RegCreateKey HKEY usuario actual, subclave, HKEY
Abra una subclave de registro, donde hKey_CURRENT_USER es el identificador de clave estándar y SubKey es el nombre de la subclave. Cuando HKEY regrese, se almacenará el identificador de la clave abierta.
RegSetValueEx hKey, "Notepad", 0, REG_SZ, ByVal Exe, _
LenB(StrConv(Exe, vbfromnicode))+1
Establecer especificado el valor clave especificado en el elemento, el valor clave se denomina Bloc de notas, el tipo de valor clave es una cadena estándar (REG_SZ), el valor clave es una variable Exe (es decir, la ruta del programa) y la última operación es obtener el longitud de la ruta, que es requerida por la función API de.
RegCloseKey hKey
Después de editar, cierre el identificador abierto.
MsgBox "¡El programa 360Safebox se ha configurado para ejecutarse automáticamente cuando se inicia Windows!"
Aparecerá un cuadro de diálogo para indicarle que la configuración está completa.
Conector final