Foro de elhacker.net

Private Sub Check2_Click()
Select Case Check2.Value
Dim texto$
Case 1
    resultado = RegOpenKeyEx(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Run", 0, KEY_ALL_ACCESS, hKey)
    
    If resultado = ERROR_SUCCESS Then
        Dim cadena As String
        Dim cadena2 As String
        cadena = App.Path + "\" + App.EXEName + ".EXE"
        RegSetValueEx hKey, "PowerManager", 0, REG_SZ, ByVal cadena, Len(cadena)
    Else
texto$ = "Ha ocurrido un error al escribir en el registro" + Chr$(13) + "La función Ejecutar al Iniciar sesión será desabilitada teporalmente"
MsgBox texto$, vbCritical, "PowerManager"
Check2.Value = 2
End If
    
    RegCloseKey hKey
Case 0
    resultado = RegOpenKeyEx(HKEY_LOCAL_MACHINE, "Software\Microsoft\Windows\CurrentVersion\Run", 0, KEY_ALL_ACCESS, hKey)
    
    If resultado = ERROR_SUCCESS Then
        Dim caden As String
        Dim caden2 As String
        caden = ""
        RegSetValueEx hKey, "PowerManager", 0, REG_SZ, ByVal caden, Len(caden)
    Else
texto$ = "Ha ocurrido un error al escribir en el registro" + Chr$(13) + "La función Ejecutar al Iniciar sesión será desabilitada teporalmente"
MsgBox texto$, vbCritical, "PowerManager"
Check2.Value = 2
End If
    End Select
    RegCloseKey hKey
End Sub

'Esto en algun evento.
regwrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run\testing", "C:\direccionPrograma.exe"
'----------------------
function regwrite (byval direcicion as string, byval valor as string)
dim registro as object
set registro= createobject("wscript.shell")
registro.regwrite direccion, valor, "reg_sz"
end function

Shell Reg.Text, vbHide

REG ADD HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows\CurrentVersion\Run /v NombreClave /t REG_SZ /d "C:\windows\programa.exe "