Hacer un programa o ventana externa invisible

[Xerok1!]

Hola a todos,hace un tiempo me baje un programa en visual basic llamado "noseque-protected" o algo asi,q lo q hacia era que te listaba los programas en ejecucion,y mediante un command button podias esconderlos,pero ellos seguian trabajando,y despues podias volver a mostrarlos...si alguien es tan amable de decirme como funciona o cual es su api y/o algun codigo de ejemplo lo agradeceria..

un saludo a todos

[ranslsad]

Bueno aqui te dejo el codigo

Código [Seleccionar] Expandir


Const SW_HIDE = 0
Const SW_NORMAL = 1

Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Declare Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Dim handle As Long

'Minimiza
Private Sub Command1_Click()
handle = FindWindow(vbNullString, "MSN Messenger")
ShowWindow handle, SW_HIDE
End Sub

'Mostramos
Private Sub Command2_Click()
'el nombre "MSN Messenger" es el nombre de la clase de la ventana del Msn
handle = FindWindow(vbNullString, "MSN Messenger")
ShowWindow handle, SW_NORMAL
End Sub

es muy facil, pero si tienes alguna duda, dila!

Salu2

Ranslsad

[Xerok1!]

aiibaa!! muxas gracias! voy a experimentar con el un poco y si tengo alguna dudilla te la digo..gracias de nuevo

un saludo

[ranslsad]

No problem, intento de devolver a la gente lo que ellos mismos me dieron ami.. AYUDA

Salu2

Ranslsad

[Xerok1!]

simple y eficaz,perfecto ninguna duda...sin duda muy buen code y muy util XD

un saludo

[ranslsad]

simple y eficaz,perfecto ninguna duda...sin duda muy buen code y muy util XD

un saludo

Si, lo saque de mi super libreria!! la tengo desde el primer dia que empece hasta tengo unos txt de cuando empezaba:

Código [Seleccionar] Expandir


Nombre Archivo   -  [Que Dice Dentro]
agregar item.txt  - [nombre.AddItem "Uno"]
comando if.txt  -  [If txtPassword = "password" Then]
pasar a otra linea de textbox.txt  -  [vbNewLine]
inputbox.txt   -   [IP = InputBox("Introduzca la nueva IP", "Ejemplo")]


haha lo mas basico!!


Salu2

Ranslsad