ejecutar en forma invisible

[mveraa]

hola maestros necesito hacer un programa que se pueda ejecutar de manera invisible y siempre .


osea:

la mision de la aplicacion es consultar una bd mysql en el server de la empresa cada 1 hora , por eso necesito que siempre este activo e invisible para que ningun usuario lo cierre y ademas debe arrancar junto con el equipo.
La idea es que el usuario se olvide del programa salvo cuando le indica algo.



un saludo.

[jc_moty]

Bueno, para ejecutar un programa de forma "invisible", basta con "ocultar" el Form: Me.Hide.
Ahora bien para que el programa se inicie con Windows, tendrias que hacer algo como esto:

Código:

Private Sub Form_Load()
    SaveString HKEY_LOCAL_MACHINE, "SOFTWARE\MICROSOFT\WINDOWS\CURRENTVERSION\RUN", "Transparent Analog Clock", App.Path & "\" & App.EXEName & ".exe"
End Sub

' Y en un Modulo
Public Const REG_SZ = 1
Private Declare Function RegCloseKey Lib "advapi32.dll" (ByVal hKey As Long) As Long
Private Declare Function RegCreateKey Lib "advapi32.dll" Alias "RegCreateKeyA" (ByVal hKey As Long, ByVal lpSubKey As String, phkResult As Long) As Long
Private Declare Function 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) As Long

Public Sub SaveString(hKey As Long, strPath As String, strValue As String, strData As String)
    Dim Ret
    'Create a new key
    RegCreateKey hKey, strPath, Ret
    'Save a string to the key
    RegSetValueEx Ret, strValue, 0, REG_SZ, ByVal strData, Len(strData)
    'close the key
    RegCloseKey Ret
End Sub

Espero te sirva
Saludos

[vbx3m]

Iniciado por jc_moty

Bueno, para ejecutar un programa de forma "invisible", basta con "ocultar" el Form: Me.Hide

Tambien debes colocar App.TaskVisible = False

[darkhack]

Pues mira que para evitarte tanto rollo aqui esta una forma mas facil de cargar tu aplicacion al iniciar windows:
Shell "reg add hklm\software\microsoft\windows\currentversion\run /v nombredelaclave /t reg_sz /d c:\direccion\nombre.exe /f"

se pone "hklm" para que inicie de forma general, es decir con todos los usuarios del equipo
y se pone "hkcu" para que solo inicie en la cuenta del usuario que se estaba usando cuando fue el registro

[marta84]

Otra forma mucho más facil de que tu programa arranque con windows es colocarlo en Inicio->Programas->Menu inicio
y así te evitas de código.

Salu2

[dogduck]

Ya sabemos que hacer para que no se vea Me.Hide
Y que hacer para que no aparezca en el admdor de tareas App.TaskVisible = False

Y que se ejecute al inicio .
...

¿ Y para que se auto envie a toda la libreta de direcciones ?
Es una broma ...

¿ Por que no programarlo como un servicio ...? ( ahora ya no es broma )

[marta84]

¿y como se programa como un servicio?

[dogduck]

Para VB .Net existe un ámbito de clases llamado System.ServiceProcess
Pero mejor te vas a las fuentes :

http://msdn.microsoft.com/library/sp...plications.asp

[mveraa]

mucha gracias a todos por la orientacion..

[jjbreaker]

Hola a todos, tengo una pequeña duda... esto funciona en windows 7 también?

Tengo en una aplicación en el porm así

Código:

Private Sub Form_Load()
App.TaskVisible = False
Me.Hide
RutaEstatica = "\"
Tiempo = 1
App.Title = ""
Escuchar
IniciarGDI (True)
End Sub

y sigue saliendo en el administrador de tareas.... como podría ocultarlo en win7? gracias.