una ayuda con las ventanas!

[Sai-To]

Bueno esta es mi pregunta, es una duda mas bien, ustedes habran escuchado del virus que se propaga por msn bueno ustedes saben que si lo ejecutan y eso este empiesa a enviarse por todos tus contactos, pero hay algo que me llama la atencion y es que cuando se envia este NO nos permite cerrar las conversaciones o mas bien las tranca o no se que hace que para poder quitarlo hay que cerrar el MSN osea la conversacion la ventana de conversacion no se cierra...pues mi pregunta es:

¿Como puedo hacer para que pase eso, que no pueda cerrar las conversaciones del MSN si no lo cierro?

Bueno espero que me puedan ayudar y mucahs gracias! ...

Salu2's! 8)

[naderST]

No las peudes cerrar con el virus ese porque esta haciendo un envio masivo del mismo a los contactos de tu msn y se tranca el MSN esa es la razon por la cual no las puedes cerrar.

[Sai-To]

mm interesante.. y no hay ninnguna manera para poder hacer esto osea trancar o volver invisible a una ventana del msn especifica (Como lo aria con el FindWindow y esas APISs?)..
Por ejemplo si quiero enviar imagenes por secreto y no quiero que cierren la conversacion?.. no hay manera!..

[naderST]

Mira aca te dejo un ejemplo de como mostrar/ocultar una ventana, en este caso la calculadora de windows.

Código [Seleccionar] Expandir


Option Explicit

Private Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Const SW_HIDE As Long = 0
Private Const SW_NORMAL As Long = 1

Dim lRet As Long

'Ocultar calculadora
Private Sub Command1_Click()
lRet = FindWindow(vbNullString, "Calculadora")

If lRet <> 0 Then
    Call ShowWindow(lRet, SW_HIDE)
End If
End Sub

'Mostrar calculadora
Private Sub Command2_Click()
    Call ShowWindow(lRet, SW_NORMAL)
End Sub



[Sai-To]

jaja gracias man ya eso lo sabiap pero con la conversacion de el msn este metodo no me sirvi trate de hacerlo mediante el nombre de la ventana pero no lo desaparecia, y luego por el class pero tampoco, sabes como solucionarlo?:S..

[Freeze.]

Código (vb) [Seleccionar] Expandir

Option Explicit

Private Declare Function ShowWindow Lib "user32.dll" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long
Private Declare Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long

Private Const SW_HIDE As Long = 0
Private Const SW_NORMAL As Long = 1

Dim lRet As Long
Private Sub Form_Load()
ShowWindow FindWindow("ImWindowClass", vbNullString), SW_NORMAL
End Sub

Lo acabo de hacer, a mi me funcionó