Uso de la programación VB para realizar la operación automática al inicio

En el módulo:

'============================= =============================================

Opción explícita

Función de declaración pública RegSetValueEx Lib "advapi32.dll" Alias ​​​​"RegSetValueExA" (ByVal hKey mientras, ByVal lpValueName como cadena, ByVal reservado mientras, ByVal dwType mientras, lpData como cualquiera , ByVal cbData As Long) As Long

Función de declaración pública RegCreateKey Lib "advapi32.dll" Alias ​​​​"RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long

Función de declaración pública RegCloseKey Lib "advapi32.dll " (ByVal hKey siempre) mientras

Función de declaración pública RegDeleteValue Lib "advapi32.dll" Alias ​​​​"RegDeleteValueA" (ByVal hKey como Largo, ByVal lpValueName As String ) As Long

Const pública REG_SZ = 1

Const pública HKEY_LOCAL_MACHINE = amp; ====== ====== ======================================= ====== ===================================

Sub SetAutoRun público (ByVal Autorun como booleano )

Atenuar KeyId mientras

Atenuar MyexePath como cadena

Atenuar regkey como cadena

MyexePath = App.Path amp "\ " amp; App.EXEName amp; ".exe" 'Obtener ubicación del programa

regkey = "Software\Microsoft\Windows\CurrentVersion\Run" 'Variable de ubicación de clave

Llamar a RegCreateKey( HKEY_LOCAL_MACHINE, clave de registro, KeyId) 'Crear <

Si se ejecuta automáticamente, entonces

RegSetValueEx KeyId, "MySoftw

are", 0amp;, REG_SZ, ByVal MyexePath, LenB(MyexePath)

Else

RegDeleteValue KeyId, "MySoftware"

End If

RegCloseKey KeyId

End Sub

'============================== = ============= =====================

Cuando se usa:

'================================================ = ==============

Si Check1(0).Value = 1 Entonces

Llame a SetAutoRun(True)''''Encendido automático inicio

Else

Llamar a SetAutoRun(False)''''Cancelar encendido inicio

Finalizar si