Code:
Public Function running(Warrock_fenster_4_ As String) As Boolean
Dim hWnd As Long
hWnd = FindWindow(vbNullString, Warrock_fenster_4_)
If (hWnd = 0) Then
running = False
Else
running = True
End If
End Function
Timer?: Interval - 100
Private Sub Timer?_Timer()
If running("Warrock") Then
Label1.Visible = True
Else:
Label2.Visible = True
End If
End Sub
use this this work your mistak
you wrote:
findawindowa
right one:
finawindow
2. mistake:
Warrock_fenster_4
right one:
Warrock_fenster_4_
ps: you use my module?^^ because i got these string names? XD