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 :P
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. :)
Aora k lo dices recuerdo yo tb k encontre esa aplicacion voy a buscar Gracias :P
usa la api anterior y "ShowWindow()", pasandole como ultimo parámetro "SW_HIDE".
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
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
usa la api "GetWindowText" para capturar el titulo, y "GetWindowTextLength" para obtener la longitud.
Citarusa 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 ;)