how do i make something like this ?
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
* 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_...)
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_...)
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_...)
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_...)
is that ur real username? u might wanna take it down cuz k2 has spys in this forum
Originally Posted by carpanthers1
is that ur real username? u might wanna take it down cuz k2 has spys in this forum
its just fake , you cant enter a space btw
Oke but where must the code or anithing how do i make it?
Originally Posted by branso
Oke but where must the code or anithing how do i make it?
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.
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
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
If (FindWindow(vbNullString, CurrentProcess) <> 0) Then
Label1.Caption = "Enabled!"
CurrentProcess = "WarRock"
Else
Label1.Caption = "Disabled!"
End If
End Sub
Originally Posted by carpanthers1
is that ur real username? u might wanna take it down cuz k2 has spys in this forum
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)
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)
This thread is closed for replies.
