[Help] WriteString

[chumarer]

:huh:

    Public Function WriteString(ByVal address As Long, ByVal str As String) As Boolean
        Dim processHandle As IntPtr = OpenProcess(PROCESS_READ_WRITE_QUERY, 0, Tibia_Hwnd)
        For i As Integer = 0 To Len(str) - 1
            WriteProcessMemory(processHandle, address + i, Asc(Mid(str, i + 1, 1)), 1, 0)
        Next
        Return 0
    End Function

  Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
        Dim gotox = Memory_ReadLong(&H613BB4)
    

        WriteString(gotox, 3703)


    End Sub

[Czepek]

Try to write it as integer value instead of string (without increasing your address value). Also you have to set your battle list value "isWalking" to 1.

Regards, Czepek!

[klusbert]

try this for writing string
[code=vbnet]
Public Function WriteString(ByVal address As Long, ByVal value As String) As Boolean
Dim encoding As New System.Text.ASCIIEncoding()
Dim bytesWritten As IntPtr
Dim bytes As Byte() = encoding.GetBytes(value + Chr(0))
Return WriteProcessMemory(ProcessHandle, address, bytes, bytes.Length, bytesWritten)
End Function
[/code]

But gotoAddress is a 4bytes integer value so try

[code=vbnet]
Public Function WriteInt(ByVal address As Long, ByVal value As Integer) As Boolean
Dim bytesWritten As IntPtr
Dim bytes As Byte() = BitConverter.GetBytes(value)
Return WriteProcessMemory(ProcessHandle, address, bytes, bytes.Length, bytesWritten)
End Function
[/code]

[Dark Pallys]

Go to this thread: http://www.tpforums.org/forum/thread-9038-page-6.html

Download the attachment on my post, look at the WinAPI.vb file

[chumarer]

resolved :]