PriitK is too busy with Skype
VB6: Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Dim menuclass As Long
menuclass = FindWindow("menuclass", vbNullString)
If menuclass <> 0 Then
MsgBox "Continuum is Open!"
Else
MsgBox "Continuum is Closed!"
End If
VB6: Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Dim menuclass As Long
menuclass = FindWindow("menuclass", vbNullString)
If menuclass <> 0 Then
MsgBox "Continuum is Open!"
Else
MsgBox "Continuum is Closed!"
End If


Comment