Write steht für schreiben
Wenn du was lesen willst gibt es Read ;)
Wenn du was lesen willst gibt es Read ;)
Quote:
Label2.Text = ReadLongPointer(Prozess1, &H105F1A58, &HFC46C, 4)
Dim BaseAdress As Integer = &H105F1A58 Dim Offset As Integer = &HFC46C Label2.Text = ReadLongPointer(Prozess1, BaseAdress, Offset, 255)
wieso 255? sind doch i.d.R 4 Byte die man lesen will?Quote:
Hi!
@Shishidump mach es so:
so funktionierts bei mir..Code:Dim BaseAdress As Integer = &H105F1A58 Dim Offset As Integer = &HFC46C Label2.Text = ReadLongPointer(Prozess1, BaseAdress, Offset, [COLOR="Red"]255[/COLOR])
greetz
hi,Quote:
Da ich noch neu bin im bereich der Coder habe ich mal eine frage: wie finde ich die Adresse der Leben in Cheat Engine raus?
Mfg Rapante
Public Class Form1
Dim ExeName As String = "Tutorial"
Dim Prozess1 As Process
Dim pList() As System.Diagnostics.Process = System.Diagnostics.Process.GetProcesses
Dim MyLives As String
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
LabelActive.Text = "Game not found!"
LabelActive.ForeColor = Color.Red
TimerActualize.Enabled = True
TimerActualize.Start()
End Sub
Private Sub TextBoxLives_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBoxLives.TextChanged
TimerActualize.Stop()
TimerActualize.Enabled = False
End Sub
Private Sub TextBoxLives_Leave(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBoxLives.TextChanged
MyLives = TextBoxLives.Text
TimerActualize.Start()
TimerActualize.Enabled = True
End Sub
Private Sub TimerActualize_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TimerActualize.Tick
pList = System.Diagnostics.Process.GetProcesses
For Each proc As System.Diagnostics.Process In pList
If proc.ProcessName = ExeName Then
Prozess1 = proc
LabelActive.ForeColor = Color.Green
LabelActive.Text = "Game found!"
TextBoxLives.Text = ReadLong(Prozess1, &HCD22720) 'Lebenszahl
Exit Sub
End If
LabelActive.ForeColor = Color.Red
LabelActive.Text = "Game not found!"
TextBoxLives.Text = Nothing
Next
End Sub
Private Sub SetLives()
Writememory(Prozess1, &HCD22720, MyLives, "4")
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
pList = System.Diagnostics.Process.GetProcesses
For Each proc As System.Diagnostics.Process In pList
If proc.ProcessName = ExeName Then
Prozess1 = proc
LabelActive.ForeColor = Color.Green
LabelActive.Text = "Game found!"
If TextBoxLives.Text = Nothing Then
TextBoxLives.Text = "0"
End If
Call SetLives()
Exit Sub
Else
LabelActive.ForeColor = Color.Red
LabelActive.Text = "Game not found!"
End If
Next
End Sub
End Class
statt die 4 die 8 nehmen für 64 bit..Quote:
Private Sub SetLives()
Writememory(Prozess1, &HCD22720, MyLives, "4")
End Sub