CoD7 Trainer Source

so, hier ein paar Source Codes von mir (teilweise auch von anderen, da ichs nicht alleine gemacht habe)
Mit den sourcecodes kann man unter anderem einen Jump Trainer und einen kleinen Teleporter machen.
(F�r Visual Basic)

Code:

Private Const ProcName = "BlackOps"

	Dim jumpbytes() As Byte
	Dim jumpfloat As Single
	Dim jump As Int32
	Dim hilfsvariable As Integer
	Dim hoehe As Int32

	Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    	Timer1.Enabled = True
	End Sub

	Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    	GetProcessId(ProcName)

    	jump = Read_Long(&H12345)
    	Dim jumpbytes() As Byte = BitConverter.GetBytes(jump)
    	Dim jumpfloat As Single = BitConverter.ToSingle(jumpbytes, 0)

    	If jumpfloat > 0 And hilfsvariable = 0 Then

        	Timer2.Enabled = True
        	hilfsvariable = 1
    	ElseIf jumpfloat = 0 Then
        	hilfsvariable = 0
    	End If

	End Sub

	Private Sub Timer2_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer2.Tick
    	GetProcessId(ProcName)

    	If hoehe <= TextBox1.Text Then
        	jumpfloat += 800
        	jumpbytes = BitConverter.GetBytes(jumpfloat)
        	jump = BitConverter.ToInt32(jumpbytes, 0)
        	Write_Long(&H12345, jump)
        	hoehe += 1
    	Else
        	Timer2.Enabled = False
        	hoehe = 0
    	End If
	End Sub

Die adressen habe ich rausgenommen und durch 12345 ersetzt, wie man die rausbekommt, m�sst ihr selbst mal sehen^^ das war der jump, hier der teleporter

Code:

Private Const ProcName = "BlackOps"
	Dim Teleporter As Int32
	Dim XKoordinate As Single
	Dim YKoordinate As Single
	Dim ZKoordinate As Single
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
    	If GetAsyncKeyState(VK_F1) Then
        	'Position speichern
        	GetProcessId(ProcName)

        	XKoordinate = Read_Long(&H12345)
        	YKoordinate = Read_Long(&H12345)
        	ZKoordinate = Read_Long(&H12345)

        	System.Threading.Thread.Sleep(500)

    	ElseIf GetAsyncKeyState(VK_F2) Then
        	'Position Laden

        	GetProcessId(ProcName)
        	If XKoordinate <> 0 Then
            	Write_Long(&H12345, XKoordinate)
            	Write_Long(&H12345, YKoordinate)
            	Write_Long(&H12345, ZKoordinate)

            	System.Threading.Thread.Sleep(500)
        	End If

    	End If

	End Sub

Hier die Hotkeys, die ihr daf�r einbauen k�nnt

Code:

#Region "Hotkeys"
	Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vkey As Long) As Integer

	Const VK_F1 = &H70
	Const VK_F2 = &H71

Viel Spa� damit. Wie ihr die Timer enablen m�sst, sage ich euch nicht, findet es raus ;)

EDIT:ICH HAFTE NICHT F�R SPIELFEHLER ODER F�R SPIELSCH�DEN
jeder, der diese codes verwendet ist f�r sich verantwortlich und ist selber schuld bei eventuellen sch�den