String Auslesen?

[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

---