Tmnf hack help

[TMShufro 2]

hello

i know only a little bit about visual basic but i want to learn it.

One question:Whats wrong in this code?Problaly a lot mistakes

 

hi leute,

ich weiß nur ein bisschen was über programmieren möchte es aber bald lernen.

ich habe nen bisschen angefangen.was ist falsch in dem code da unten.

bitte um hilfe.

 

Public Class Form1
   Public Function NOP(ByVal Address As Integer, ByVal value As Integer)
       Dim TmForeverLookUp As Process("tmforever") = Process.GetProcessesByName("TmForever")
   End Function
   Private Sub
       Timer1(
       WriteLongPointer(&HABE2D0 + &H400000, &H32C, -100, 4)
       WriteLongPointer(&HAC1908 + &H400000, &H31C, -100, 4)
       WriteLongPointer(&HABE2D0 + &H400000, &H328, -100, 4)
WriteLongPointer(&HAC1908 + &H400000, &H318, -100, 4))

       Button("Checkpointhackon")
       Timer1.enabled = True
       Button("checkpointhackoff")
       Timer1.enabled = False
   End Sub
End Class

[Lashma2HaRdstYle 2]

wie was ist falsch? kriegste error oder passiert nichts?

[M0RPH 197]

~moved

[TMShufro 2]

wie was ist falsch? kriegste error oder passiert nichts?

error ich klick auf strarten aber der sagt da ist ein Fehler drin.

[NeoIII 5137]

details sind wichtig.

 

beschreibe dein problem genauer, wir wissen nicht wer "der" ist der sagt da ist ein fehler drinn und auch nicht die genaue fehlermeldung die helfen würde.

 

ich denke mal der fehler kommt vom compiler ^^ fragt sich nur noch wo und in welcher zeile, oder eben vom spiel beim patchen weil etwas falsch gemacht wird.

 

weiter kann ich nicht helfen, ich habe keine ahnung von visual basic.

[TMShufro 2]

@neo er sagt immer bezeichner erwartet.da wo private sub steht

[Black Jack 7]

which tm version you using?

[TMShufro 2]

@blackjack

no there is an error in my code. And Isearch the error.

tmuf version=2.11.26

[Black Jack 7]

@blackjack

no there is an error in my code. And Isearch the error.

tmuf version=2.11.26

 

try this: CP Hack address

Public Class Form1

Public Declare Function OpenProcess Lib "kernel32" (ByVal dwDesiredAccess As Integer, ByVal bInheritHandle As Integer, ByVal dwProcessId As Integer) As Integer    
Public Declare Function WriteProcessMemory Lib "kernel32" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
Public Declare Function ReadProcessMemory Lib "kernel32" Alias "ReadProcessMemory" (ByVal hProcess As Integer, ByVal lpBaseAddress As Integer, ByRef lpBuffer As Integer, ByVal nSize As Integer, ByRef lpNumberOfBytesWritten As Integer) As Integer
Public Declare Function CloseHandle Lib "kernel32" (ByVal hObject As Integer) As Integer

   Public Function Writememory(ByVal Address As Integer, ByVal Value As Long, ByVal Bytes As Integer)
       Dim TmForeverLookUp As Process() = Process.GetProcessesByName("TmForever")
       If TmForeverLookUp.Length = 0 Then
           End
       End If

       Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, TmForeverLookUp(0).Id)
       WriteProcessMemory(processHandle, Address, Value, Bytes, Nothing)
       CloseHandle(processHandle)
       Return True
   End Function

   Public Function ReadMemory(ByVal Address As Integer, ByVal Bytes As Integer)
       Dim TmForeverLookUp As Process() = Process.GetProcessesByName("TmForever")
       If TmForeverLookUp.Length = 0 Then
           End
       End If

       Dim processHandle As IntPtr = OpenProcess(&H1F0FFF, 0, TmForeverLookUp(0).Id)
       ReadProcessMemory(processHandle, Address, RBuffer, Bytes, Nothing)
       CloseHandle(processHandle)
       Return RBuffer
   End Function



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

       Dim Base As Long = ReadMemory(&H400000 + &H95772C, 4)
       Dim p As Long = ReadMemory(Base, 4)
       Dim p2 As Long = ReadMemory(p + 28, 4)
       Dim p3 As Long = ReadMemory(p3 + 28, 4)

       Writememory(p2 + 816, -100, 4)
       Writememory(p3 + 820, -100, 4)

End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

     Timer1.Enabled = True

   End Sub

   Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

     Timer1.Enabled = False

   End Sub


End Class

[TMShufro 2]

@blackjack

can you give me the adresses for the hacks in tmreactor

I mean teleporter, cpflash and the others.

 

thank you

[Black Jack 7]

@blackjack

can you give me the adresses for the hacks in tmreactor

I mean teleporter, cpflash and the others.

 

thank you

 

I'll post complete tutorial for it later im too busy right now

there will be how to search addresses then write them into your own hack.

[Kvn'X 222]

Teleporter etc you only can code with C++ not with vb2008

[TMShufro 2]

@kvnx

hast du die adressen(nur die adressen nichtden code für c++)

du hattest sie mal gepostet aber die sind alt

[Black Jack 7]

Teleporter etc you only can code with C++ not with vb2008

 

c++ is just easiest way it can be done also vb.net