how do i make something like this ?

[Gold Stone]

how can i make something like this?

* look attachment *

i will like that the hack will be started up when warrock.exe is loaded.
some one can help me

[ZeaS]

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

hWnd = FindWindow(vbNullString, Warrock_fenster_4_)

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

don't forgett too change the strings into your's (hwnd, warrock_fenster_4_...)

[Gold Stone]

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

hWnd = FindWindow(vbNullString, Warrock_fenster_4_)

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

don't forgett too change the strings into your's (hwnd, warrock_fenster_4_...)

omfg man , ur realy the best

[carpanthers1]

is that ur real username? u might wanna take it down cuz k2 has spys in this forum

[Gold Stone]

is that ur real username? u might wanna take it down cuz k2 has spys in this forum

nah its not my username
its just fake , you cant enter a space btw

[branso]

Oke but where must the code or anithing how do i make it?

[mpghhackersrock123]

Oke but where must the code or anithing how do i make it?

Please speak E.N.G.L.I.S.H. normally

[branso]

I am not english i am dutch

[Teh Sasuke]

This is easy , Thanks to ZeaS.

[THE PWNER]

where do i put the code?

[-TM-]

This is similar, and seems a little better way to code it.
I have my own custom module, so this might be a little off.
I can post a public version of my module if needed. It has more then that other module that everyone gets.

Private Sub Form_Load()

CurrentProcess = "WarRock"

End Sub

Private Sub Timer1_Timer()

If (FindWindow(vbNullString, CurrentProcess) <> 0) Then

Label1.Caption = "Enabled!"

CurrentProcess = "WarRock"

Else

Label1.Caption = "Disabled!"

End If

End Sub

[K2 Nemico]

is that ur real username? u might wanna take it down cuz k2 has spys in this forum

like me? lol jking

[branso]

I have found a other code here its is
Put this in a 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

And this in a timer

If Running("warrock") Then
Unload Form?
Form?.Show
End If

and this in form load

CurrentProcess = "WarRock"

I dont know its have effect but so is its be my works

(sorry for me bad english i am dutch)