[Diskussionsthread] TrainerModul v2.0

[Xiantrius]

(20.04.2013, 12:51)DNA schrieb: Hey,

schau dir das mal an:

[code=VB]
Public Function GetModuleBase(ByVal ProcName As String, ByVal ModuleName As String)
Dim BaseAddress As Int32
For Each PM As ProcessModule In Process.GetProcessesByName(ProcName)(0).Modules
If ModuleName.ToLower = PM.ModuleName.ToLower Then
BaseAddress = PM.BaseAddress
End If
Next
Return BaseAddress
End Function[/code]

Diese Funktion musst du nur noch aufrufen und schon bekommst du die BaseAddi.

Ich hab den Code in Module eingefügt und rum probiert... Leider kein erfolg, Kannst du mir ein gutes beispiel geben wie ich das jetzt in der Form1 schreiben muss? Ich habe auch Teamviewer wenn du Zeit hast kannst du es ja direkt zeigen. Das hatten wir ja schon mal.
In der Zeit probier ich weiter, falls du kein Edit siehst, oder neue Antwort auf Erfolg, dann hab ich es nicht geschafft und wäre sehr dankbar wenn du es mir zeigen würdest.

So sieht mein Code in Form1 aus

[Code=VB]
Private Const ProcName = "Solitaire" 'Ohne Exe am ende!!!
Dim value0 As Int16, value1 As Int32, value2 As Int64

'Punkte manipulieren
Private Sub TextBox1_KeyUp(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles TextBox1.KeyUp
Try
If e.KeyCode = Keys.Enter Then
GetProcessId(ProcName)
'&HFF710000 <- Base Adresse kann sich ändern...
Write_Pointer(TextBox1.Text, &HFF710000 + &HBB0E8, &H48, &HB8, &H68, &H64)
End If
Catch ex As Exception
End Try
End Sub

[/Code]