TUT look warrock is work

[kanata93]

This is not my TUT .this TUT created my ZeaS
First add this to your Module

Public Function Running(window As String) As Boolean
Dim hwnd As Long

hwnd = FindWindow(vbNullString, window)

If (hwnd = 0) Then
Running = False
Else
Running = True
End If
End Function
Then put this into Timer (Timerinterval = 100)

If Running("WarRock") Then
Else
End If

If you wan`t to see a label, if warrock is running, do this:

(Timerinterval = 100) (label1 and 2 go to properties and set Visible = False)

Private Sub Timer1_Timer()
If Running("warrock") Then
Label1.Visible = True
Else: Label2.Visible = True
End If
End Sub
all done

[personperson]

You don't have to create a completely different function to check if the program is running... Use your imagination and use the current ones ;)

[unseen12]

rofl thats my code

and this is part of the mem editing code...just stripped down to only check if the game is running...because if you use the current functions it wastes alot more memory than this

[[ - CD - ]]

Private Sub Timer1_Timer()
If Running("warrock") Then
Label1.Visible = True
Else: Label2.Visible = True
End If
End Sub

Why not just do this?:


If Running("WarRock") Then
Label1.Caption = "WarRock is running..."
Else
Label1.Caption = "WarRock is not running"
End If

[SH15TER]

well for me it works :)
But already know this -__-