Oculta Ventana Messenger

[Meg]

Bueno tengo una duda como puedo ocultar una ventana de una aplicacion cualkiera desde vsual basic

Supongo k abra k usar la API:

Declare Function FindWindow Lib "User" (ByVal lpClassName As Any,ByVal lpWindowName As Any) As Integer

Pero no se como ni de k forma mi objetivo es ocultar la ventana de conversacion del messenger durante unos segundos,si alguien lo sabe k me responda por favor y gracias


                       Salu2

[ジ]

Meg pues no tio no se como oucltar una ventana del messenger pero  de momento podrias buscar en esta pag: http://www.planet-source-code.com    una ves buscando no recuerdo el que sobre el messenger encontre , creo que estaba buscando ejemplos de messenger en vb, yhabian algunos con la opcion de esconder ventana ( hide window) , busca que seguro que encuentras y ya más que sea tendras un ejemplo, luego estudialo, comprendelo y aplicalo a tú aplicación. salu2. 

[Meg]

Aora k lo dices recuerdo yo tb k encontre esa aplicacion voy a buscar Gracias

[sch3m4]

usa la api anterior y "ShowWindow()", pasandole como ultimo parámetro "SW_HIDE".

[Meg]

Gracias xicos ya consegui k visual basic oculte una ventana externa pero para k me oculte la ventana del Messenger necesito el nick de la persona y luego termina en conversacion seria (nick - conversación) y no se como sacar ese nick

He puesto un nuevo post para esa duda de komo sacar el nombre de una ventana activa:

http://foro.elhacker.net/index.php/topic,125837.0.html

Aki dejo el codigo de komo ocultar una ventana por si a alguien le interesa con comentarios

añadir dos commandbutton y un textbox

Código [Seleccionar] Expandir

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
Private Const SW_HIDE = 0
Private Const SW_SHOW = 5
Dim Window As Long

Private Sub Command1_Click()
Window = FindWindow(vbNullString, Text1.Text) 'aki la API Findwindow detecta el titulo de la ventana k sera lo k tengamos puesto en el text1.text
If Window = 0 Then 'si no encuentra la ventana
  MsgBox "Ventana no encontrada", vbCritical + vbInformation, "Error" 'sale un mensaje de error
  Else
  ShowWindow Window, SW_HIDE 'showWindow ocultara la venta
  End If
 
End Sub

Private Sub Command2_Click()
ShowWindow Window, SW_SHOW 'esto es para mostrar la ventana oculta
End Sub

[sch3m4]

usa la api "GetWindowText" para capturar el titulo, y "GetWindowTextLength" para obtener la longitud.

[Meg]

usa la api "GetWindowText" para capturar el titulo, y "GetWindowTextLength" para obtener la longitud.

Ya averigue k tenia k usar esas APIS ahora toy en ello gracias de todos modos