Ich bin auf einige probleme gestossen.
Dein Code für Hexdezimal passt nicht.
Sry das ich mich nicht richtig ausgedrückt habe ein fehler in modul gehabt und behoben.
Das ist die richtige lösung jetzt bis auf ein kleines Problem.
[code=VB]
Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
Dim Name As String, out As Long, i As Integer
Name = TextBox1.Text
For i = 0 To Math.Min(Name.Length - 1, 14)
out += (Convert.ToInt64(Name(i)) << (i * 8))
Next
TextBox2.Text = out.ToString
End Sub
Private Sub TextBox8_KeyUp(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles TextBox8.KeyUp
Try
If MM6 Then
If e.KeyCode = Keys.Enter Then
GetProcessId(ProcName)
BaseAddi = GetModuleBase(ProcName, "mm6.exe")
Write_4_Bytes_Pointer0(TextBox8.Text, BaseAddi + &H544C64, &H1)
Label1.Visible = False
End If
Else
Label1.Visible = True
End If
Catch ex As Exception
End Try
End Sub
[/code]
Das problem list jetzt ich kann nur maximal 5 Zeichen versenden.
Beispiel:
ABCDEF = nur 4-5 zeichen = Wert: 301809746497
ABCDEFGHIJKLMNO = 15 Zeichen = Wert: 5230531374448807050
Das entspricht 12 Byte länge ... und das brauch ich mindestens.
Wie kann ich das bis zu 15 Zeichen umsetzen?
Dein Code für Hexdezimal passt nicht.
Sry das ich mich nicht richtig ausgedrückt habe ein fehler in modul gehabt und behoben.
Das ist die richtige lösung jetzt bis auf ein kleines Problem.
[code=VB]
Private Sub TextBox1_TextChanged(sender As System.Object, e As System.EventArgs) Handles TextBox1.TextChanged
Dim Name As String, out As Long, i As Integer
Name = TextBox1.Text
For i = 0 To Math.Min(Name.Length - 1, 14)
out += (Convert.ToInt64(Name(i)) << (i * 8))
Next
TextBox2.Text = out.ToString
End Sub
Private Sub TextBox8_KeyUp(sender As Object, e As System.Windows.Forms.KeyEventArgs) Handles TextBox8.KeyUp
Try
If MM6 Then
If e.KeyCode = Keys.Enter Then
GetProcessId(ProcName)
BaseAddi = GetModuleBase(ProcName, "mm6.exe")
Write_4_Bytes_Pointer0(TextBox8.Text, BaseAddi + &H544C64, &H1)
Label1.Visible = False
End If
Else
Label1.Visible = True
End If
Catch ex As Exception
End Try
End Sub
[/code]
Das problem list jetzt ich kann nur maximal 5 Zeichen versenden.
Beispiel:
ABCDEF = nur 4-5 zeichen = Wert: 301809746497
ABCDEFGHIJKLMNO = 15 Zeichen = Wert: 5230531374448807050
Das entspricht 12 Byte länge ... und das brauch ich mindestens.
Wie kann ich das bis zu 15 Zeichen umsetzen?