VB 6 and Warrock Hack Help

I am programming a new hack and need help. I posted once with what i needed but no one could help. Here it is again but with another thing added.

1. I need a VB 6 code for showing a image in the center of a screen. I need this because i will be using this for a public release to have custom crosshairs.

2. A VB 6 code for telling weather the game is enabled or disabled

3. A VB 6 code for opening a file

4. A VB 6 and INET i think it is called help

If any body can help after i program this hack i will allow them to have it first.

Thanks Condor01

i think jesee made the new croshair hack but he cant release because he has the same problem as you, doesnt know vb6, mabey you guys can talk and work soemthing out to help eachother????just a thought

Originally Posted by purenoob134

Ok its hard to work out but i have seen it done lol ill PM him later.

iight good luk

1. idk whats ur point
2.

Code:

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long

-> Into module

Code:

'WarRock detector
Dim fw As Long
Dim running As Long

fw = FindWindow(vbNullString, "WarRock")
running = Val(fw)

If running = 0 Then 'if warrock off then
MsgBox "WarRock not running!", vbCritical, "Check failed"
End
Else 'else, here - if warrock on then
MsgBox "WarRock running!", , "Check ok"
End
End If

<- Into timer, interval 100 would be ok
3. depends on what file
4. u need to explain what u want to do with INET...

the code from 2. obviously has to be modified to use it for what u want to use it. Now it will just check for warrock and close itself... so if u just copy it, it will check for warrock and close your hack

Originally Posted by dezer

1. idk whats ur point
2.

Code:

Public Declare Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal Classname As String, ByVal WindowName As String) As Long

-> Into module

Code:

'WarRock detector
Dim fw As Long
Dim running As Long

fw = FindWindow(vbNullString, "WarRock")
running = Val(fw)

If running = 0 Then 'if warrock off then
MsgBox "WarRock not running!", vbCritical, "Check failed"
End
Else 'else, here - if warrock on then
MsgBox "WarRock running!", , "Check ok"
End
End If

1. So i can use a custom image in the center of the screen to run as a crosshair

2. Thanks

3. warrock.exe

4. so i can display recent news about the hack and updates etc

u want a lot condor lol

must have lots of time on ur hands

VB 6 and Warrock Hack Help

Post a Reply

Similar Threads

Tags for this Thread