FindWindow Use [VB6]
Publicado: 18 Nov 2009, 00:05
Código: Seleccionar todo
'Declare FindWindow
Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Sub Timer1_Timer()
If FindWindow(vbNullString, "Windows Live Messenger'use windows name") Then
Label1.Caption = "MSN Open"
Else
Label1.Caption = "MSN Closed"
End If
End Sub