String Auslesen?

[Bluespide]

Ok hab es nochmal bearbeite. Pack es einfach in die Form und ersetz "Module1" durch den namen deines Trainermoduls.

Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

. Private Function ReadStringUnicode(ByVal Adress As Integer) As String Dim enc As System.Text.Encoding = System.Text.Encoding.Unicode Dim str As String = "" Dim tByte As Integer = 0 Do tByte = Module1.ReadByte(Adress) If tByte = 0 Then str += enc.GetString({tByte, tByte}) Exit Do Else str += enc.GetString({tByte, Module1.ReadByte(Adress + 1)}) Adress += 2 End If Loop Return str End Function

---

du brauchst nur die Startadresse des String und die Funktion ließt ihn bis zum ende. z.B.

Code:

Label1.Text = ReadStringUnicode(&H5F7230)

---

[chesar]

Ok, jetzt sind es nur noch 4 Fehler. :blush:
Tut mir echt Leid das ich dir aufm Sack gehe :P

[Bluespide]

Mhhhh okay da bin ich mir grade nicht so sicher bei meiner 2010 Version geht das, versuch es mal so:

Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

. Private Function ReadStringUnicode(ByVal Adress As Integer) As String Dim enc As System.Text.Encoding = System.Text.Encoding.Unicode Dim str As String = "" Dim tByte As Integer = 0 Do tByte = Module1.ReadByte(Adress) If tByte = 0 Then str += enc.GetString(New Byte() {tByte, tByte}) Exit Do Else str += enc.GetString(New Byte() {tByte, Module1.ReadByte(Adress + 1)}) Adress += 2 End If Loop Return str End Function

---

[chesar]

Stimmt in 2010 geht es, aber auch mit deiner Zweiten Variante geht es auch in 2008.

Nur eine Frage noch geht das auch in Deutsch xD
Oder woran liegt das jetzt.

[Bluespide]

wow okay, entweder ist der String nicht im Unicode gespeichert oder du hast nicht die richtige Anfangsadresse angegeben. Sonst wüsste ich nicht waraum

[chesar]

Also die richtige Adresse ist das, in CE wird der Name richtig Angezeigt.
Wie meinst du dass. der String nicht im Unicode gespeichert?

EDIT:
Ich hab mal ReadByte mit Read_Long ausgetauscht.
Dann kommt jedoch dieser Fehler.

[Bluespide]

Ja es muss schon readbyte sein, aber ich weiß grade auch ned warum das ned geht, denn bei mir hat es so funktioniert .

[chesar]

Aber wenn ich z.b. mit ReadByte die Bytes in einer Textbox anzeigen, stelle ich fest das er nicht alles ausliest, bei Read_Long schon.







Könntest du mir mal dein Projekt Hochladen?
Ich bin jetzt auch ratlos...

[Bluespide]

Bei mir scheint es so zu funktionieren.

Code für das Test Projekt:

Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26

Public Class Form1 Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click If Not Module1.GetProcessId(TextBox1.Text) Then MsgBox("Process not found") Return End If TextBox3.Text = ReadStringUnicode(Convert.ToInt32(TextBox2.Text, 16)) End Sub Private Function ReadStringUnicode(ByVal Adress As Integer) As String Dim enc As System.Text.Encoding = System.Text.Encoding.Unicode Dim str As String = "" Dim tByte As Integer = 0 Do tByte = Module1.ReadByte(Adress) If tByte = 0 Then str += enc.GetString(New Byte() {tByte, tByte}) Exit Do Else str += enc.GetString(New Byte() {tByte, Module1.ReadByte(Adress + 1)}) Adress += 2 End If Loop Return str End Function End Class

---

[chesar]

Bei geht das nicht -.-
Könntest du mal bitte deine Projekt Mappe Hochladen?