OldSchoolHack

Register / Login English

external triggerbot hilfe!

icon Thread: external triggerbot hilfe!

Join Date: Nov 2011

Posts: 24

Quote from Mantarochen
Mach daraus pointerone = ReadLong("hl2", GetModuleBase("hl2", "client.dll") + &H703A0C)
           pointertwo = ReadLong("hl2", pointerone + &H1470)
           player = ReadInteger("hl2", pointertwo)
mal folgendes:
              pointerone = ReadLong("hl2", GetModuleBase("hl2", "client.dll") + &H703A0C)
              player = ReadLong("hl2", pointerone + &H1470)
und lass dir dann player ausgeben.


also dass macht keinen unterschied. weil auch wenn ich die anderen player anschaue & ausgebe ändert es sich nicht, was es  eigentlich solll.


könnte es möglicherweise an meiner getbassadr funktion liegen?  

TEXT Code:
  1. Public Function GetModuleBase(ByVal Procname As String, ByVal ModuleName As String)
  2. Dim BaseAdress As Int32
  3. For Each PM As ProcessModule In Process.GetProcessesByName(Procname)(0).Modules
  4. If ModuleName.ToLower = PM.ModuleName.ToLower Then
  5. BaseAdress = ->>>da gehört PM.BaseAdress <<<--- (aber ich bekommen einen fehler wenn ich pm. davor lasse)
  6.  
  7. End If
  8. Next
  9. Return BaseAdress
  10. End Function