Foro de elhacker.net

Function RegEscribir (ByVal Path As String, ByVal Value As String)
Dim ws As Object
Set ws = CreateObject("Wscript.Shell")
ws.RegWrite Path, Value, "REG_SZ"
End Function

RegWrite "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Run", "C:\Programa.exe"

Function SetAtStartup() As Boolean
        Dim hKey&, r&
        Dim sData$

  'Abre la clave del registro y pone el identificador
  'en la variable hKey.
  '
  r = RegCreateKeyEx(HKEY_LOCAL_MACHINE, STARTUP_KEY, 0&, vbNullString, 0&, _
                     KEY_ALL_ACCESS, ByVal 0&, hKey, REG_OPENED_EXISTING_KEY)

  'Obtiene la ruta de acceso y el nombre del ejecutable del programa.
  '
  sData = App.Path
  If Not Right$(sData, 1) Like "\" Then sData = sData & "\"
  
  sData = sData & App.EXEName & ".EXE"
  
  'Escribe el valor en la clave del registro que
  'abrimos anteriormente.
  '
  r = RegSetValueExStr(hKey, "MyApp", 0&, REG_SZ, ByVal sData, LenB(sData))
  
  SetAtStartup = (r = 0)  'La operación se completó correctamente.
  
  r = RegCloseKey(hKey)
End Function

Sub Main()
  Call Load(frmMain)  'Carga el formulario principal
                      'pero sin mostrarlo.

  'Para mostrar el formulario tenés que llamar al método
  'Show del formulario:
  '
  'Call frmMain.Show
  
End Sub