how do i make something like this ?

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 :(

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_...)

Quote:

---

Originally Posted by 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_...)

---

omfg man , ur realy the best :)

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

Quote:

---

Originally Posted by carpanthers1

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

---

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

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

Quote:

---

Originally Posted by branso

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

---

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

I am not english i am dutch

This is easy , Thanks to ZeaS.

where do i put the code?

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.

Quote:

---

Private Sub Form_Load()

CurrentProcess = "WarRock"

End Sub

---

Quote:

---

Private Sub Timer1_Timer()

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

Label1.Caption = "Enabled!"

CurrentProcess = "WarRock"

Else

Label1.Caption = "Disabled!"

End If

End Sub

---

Quote:

---

Originally Posted by carpanthers1

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

---

like me? lol jking

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)