I still cant make warrock status code .

Can someone help me with my WarRock Status code :

Module:
Public Function running(Warrock_fenster_4_ As String) As Boolean
Dim hWnd As Long

hWnd = FindWindowA(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

But i have problem with Module Code . I allways get error : Findwindow

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

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

This is not working.

lol am i use this

Public Function lauf_4(Warrock_fenster_4_ As String) As Boolean
Dim hWnd As Long

hWnd = FindWindow(vbNullString, Warrock_fenster_4_)

If (hWnd = 0) Then
lauf_4 = False
Else
lauf_4 = True
End If
End Function

'lauf_4 = running

timer1 --> interval = 100
If lauf_4("warrock") Then
Label1.Visible = True
Else: Label2.Visible = True
End If

set all 2 labels "visible = false" in properties

If the programm gets closed again, don't you need something like:

If lauf_4("warrock") Then
{
Label1.Visible = True
Label2.Visible = False
}

I still cant make warrock status code .

Similar Threads

Tags for this Thread