poner un programa en el startup de windows con bv 6

[sorcerer]

bueno estoy aprendiendo vb6 e hice un programa con winsock que el cliente le cuelga la compu por 10 segs al server (muy inocente) lo que necesito es un codigo pa poner el server en el startup de win y ya no me importa ni como ni donde aparezca todo lo que encuentro en la red es pura ***** que no anda si alguien puede ayudarme se lo agradeceria.

[Crack_X]

Agregalo al registro: hkey_current_user/software/microsoft/windwos/currentversion/run/

[sorcerer]

se ya se que lo tengo que agregar al registro la pregunta es como

[Crack_X]

Código [Seleccionar] Expandir

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"

Hay otra manera que es con el windowsApi pero no me acuerdo pero lo puedes googlear.

[sorcerer]

gracia loko me diste una rreemano igual se me inicia maximizado y si lo sierro se sierra el winsock y todo asi que voy a seguir investogando tambien voy a buscar como hacerlo con api porque es lo que estoy intentando estudiar bue salu2 y gracias por la pasiensia.

[Slasher-K]

Primero agrega en tu proyecto la referencia a win.tlb. Este archivo lo podés bajar del siguiente link:

http://www.themandelbrotset.com/Files/tlbansi.zip

Ahora pega el siguiente código en un módulo estándar:

Código [Seleccionar] Expandir


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


El código anterior registra la aplicación para que se inicie como servicio del sistema.

Para ocultar la ventana poné como objeto inicial Sub Main y en el módulo escribis el siguiente código:

Código [Seleccionar] Expandir


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


[vedevian]

monstruo
estoy anonadado de los metodos de programacion, es increible como saben aplicar todo... 

[programatrix]

También se puede usar el módulo api que existe para el registro...

[3nr1qu3]

Y cual es el módulo API que existe para el registro?
Me lo podrías decir? xD...
Gracias

[Slasher-K]

Mira la recopilación de post interesantes, hay uno que dice Funciones para manipular el registro utilizando la API.

Vamos que los temas pegados están ahi por algo...

Saludos.