Ajuda eu ai
Public Function WriteString(ByVal address As Long, ByVal str As String) As Boolean
Dim processHandle As IntPtr = OpenProcess(PROCESS_READ_WRITE_QUERY, 4, Tibia_Hwnd)
For i As Integer = 0 To Len(str) - 1
WriteProcessMemory(processHandle, address + i, Asc(Mid(str, i + 1, 1)), 1, 0)
Next
End Function
e Agora
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
WriteString(&H613B6C, TextBox2.Text)
End Sub
intao &H613B6C e address do Nome DO CHAR e eu quero que mude para o textbox2.text
so que muda so que nao muda o valor certo muda pra uma porrada de coisas