[TuT] How to make a Hack

[Kvn'X 222]

- Info before...

This Tutorial is not for newcomer, this tutorial is for people who know a little bit about vb2008.

So if you dont know how to create a new project or something else use google, dont post here.

Other questions are welcome.

 

 

- Step 1

Hello all welcome to my Tutorial.

Ok at first you need to create a new Projekt.

After you done add a new Module with this content .

( Link : http://f2k.d4rc.net/kvnx/module.txt )

This module is the brain of the functions of hacks

 

 

 

- Step 2

Create 2 buttons, 1 timer.

Name the first button : "Checkpointhack On"

Name the second button : "Checkpointhack Off"

 

 

 

- Step 3

Write in the On-Button this code :

Timer1.enabled = true

 

Write in the Off-Button this code :

Timer1.enabled = false

This means that the Hack-Timer will turn on if you click the on-button and off if you click the off-button, logical, arent it?

 

Write in the Timer :

WriteLongPointer(&HABE2D0 + &H400000, &H32C, -100, 4)
WriteLongPointer(&HAC1908 + &H400000, &H31C, -100, 4)
WriteLongPointer(&HABE2D0 + &H400000, &H328, -100, 4)
WriteLongPointer(&HAC1908 + &H400000, &H318, -100, 4)

This is the hack function!

 

 

 

- Step 4

Set the Timer interval to "1000" and make sure you start the TmForever.exe before you activate the Function.

 

 

 

 

- Step 5

Say thanks and i hope you learnd something.

With other hacks it is near the same

Credits : Bigxxx

Edited June 27, 2011 by Kvn'X

[CruZotH 1]

Thank you, i was waiting so long for this!

 

but, i get in the module, endfunction error?

maby something wrong in the module

Edited June 20, 2009 by daandaan50

[Kvn'X 222]

the module is 100% correct.

Be sure that your module is 100% empty

[CruZotH 1]

no, there where 2 line's.

 

thank you for your fast replay

[CruZotH 1]

 

that is the error, can't fix it!

Edited June 21, 2009 by daandaan50

[Kvn'X 222]

these green errors are not important

Just ignore

[aleeraser 0]

Really thanks, (you) made my first hack

However, to resolve the errors that daandaan50 has (even if they are not important, are only notices that say that the function is not run if the return value is zero), only write, at the end of the function, right before the command "End Function", Return (name of the variable called in the function). Example:

 

 

Code:

 

 

Public Function NOP(ByVal Address As Integer, ByVal value As Integer)

 

Dim TmForeverLookUp As Process() = Process.GetProcessesByName("TmForever") <--- The varaible is the text write between "Dim" and "As". You must write it right down

 

If TmForeverLookUp.Length = 0 Then

 

End

 

End If

 

Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, TmForeverLookUp(0).Id)

 

WriteProcessMemory(processHandle, Address, value, 1, Nothing)

 

CloseHandle(processHandle)

 

Return TmForeverLookUp <---- Write the command "Return" and the name of the variable that you seen before!!

 

End Function

 

 

 

 

 

This should not be wrong Bigxxx

Sorry for bad english, I'm italian.

Hope to be helpful

[Kvn'X 222]

aleeraser nice information

No problem

[CruZotH 1]

Wow, thank you!

[paranoid_ 16]

Thanks, but c&p is easy!

I won't learn something if i copy the module and the timer code

[Kvn'X 222]

This Tutorial is not for newcomer, this tutorial is for people who know a little bit about vb2008.

I allready said it

Learn vb2008 anywhere else

[DjPoisoned 0]

Hi, Nice tutorial but how to put this in a hack...:

 

Timefreeze Hack :

 

Address(1) ::: Pointer : &H400000 + &HABE2D0 || Offset : &H334 || Value : 1

[wanted59 0]

try this i'm not sure but normaly its right ^^

 

WriteLongPointer(&H400000 + &HABE2D0, &H334, 1, 1)

 

say thx ^^

[Kvn'X 222]

WriteLongPointer(&H400000 + &HABE2D0, &H334, 1) think so i drunk swo i am not shrue

[daandaan51 0]

could you say how to change the rankhack number with a texbox?

like this: WriteLongPointer(&H400000 + &HABE2D0, &H334, "textbox1.text")

 

pleas post a code how i can change it? like you in your tmsucker V2

Edited July 6, 2009 by daandaan51

[chill0r 0]

geht das auch auf deutsch?^^

[sniperwar 0]

could you say how to change the rankhack number with a texbox?

like this: WriteLongPointer(&H400000 + &HABE2D0, &H334, "textbox1.text")

 

pleas post a code how i can change it? like you in your tmsucker V2

 

Enter number in your textbox1

[Kvn'X 222]

WriteLongPointer(&H400000 + &HABE2D0, &H334, textbox1.text)

 

without " before textbox1.text

[e-warior 0]

and how to make a thing status like:

Waiting for TmForever.exe!

 

if TmForever.exe is found that the hacks can be enabled?

 

sorry for bad english, i'm dutch!

[Kvn'X 222]

If you look in the module you know how to

[e-warior 0]

is it something with the Process.GetProcessesByName("TmForever")???????

 

pleas tell me how i can do it! i realy don't know.

 

thank you!

[Kvn'X 222]

I done it like this :

 

  If TmForeverLookUp.Length = 0 Then
		Label8.ForeColor = Color.Red
		Label8.Text = "Please Start " & Label44.Text & "!"
		Timer6.Enabled = False
	Else
		Label8.ForeColor = Color.LimeGreen
		Label8.Text = Label44.Text & "Found :)"
		Timer6.Enabled = True
	End If

[e-warior 0]

Thank you!

is it in the module or on a timer?

but what is this?

-----------------------------------------------------------------------------

If TmForeverLookUp.Length = 0 Then

Label8.ForeColor = Color.Red

Label8.Text = "Please Start " & Label44.Text & "!"

Timer6.Enabled = False

Else

Label8.ForeColor = Color.LimeGreen

Label8.Text = Label44.Text & "Found "

Timer6.Enabled = True

End If

-----------------------------------------------------------------------------

Edited July 20, 2009 by e-warior

[Kvn'X 222]

put it into a timer

[e-warior 0]

i've got this: