Memory Reading

[Chuuy]

Ok, I figured this out with the BinaryMid function. But, I'm having trouble with the TCPSend command. I keep getting WSA Error 10054:

WSAECONNRESET

Error Number: 10054

Connection reset by peer.

A existing connection was forcibly closed by the remote host.

This normally results if the peer application on the remote

host is suddenly stopped, the host is rebooted, or the remote

host used a "hard close" .

But this entire time, the game is open and everything. I don't understand why I'm getting that error message.

Here's my code:

Dim $Startup, $Socket, $Send, $ItemPacket, $Item, $Price, $ItemIDforSend
$Startup = TCPStartup()
If $Startup = 0 Then MsgBox(0, "Error", "TCPStartup failed:" & @error)

HotKeySet("{ESC}", "Quit")

$Socket = TCPConnect("63.251.217.122", 8989)
If $Socket = -1 Then MsgBox(0, "Error", "TCPConnect failed:" & @error)
If @error = 1 Then MsgBox(0, "Error", "The IP Address is incorrect.")
If @error = 2 Then MsgBox(0, "Error", "The Port is incorrect.")

While 1
    $Send = TCPSend($Socket, 'F1 00 05 01 00 00 00 02 00 00 00 00 00 00 00 01 01 01 00 00 00 00 00')
    If $Send = 0 Then MsgBox(0, "Error", "TCPSend failed:" & @error)
    ;   $ItemPacket = TCPRecv($Socket, 2048)
    ;   $Item = BinaryMid ( $ItemPacket, 27, 3 )
    ;   $Price = BinaryMid ( $ItemPacket, 50, 3 )
    ;   $ItemIDforSend = BinaryMid ( $ItemPacket, start, 3 )
    ;   If $Item = 111001000010001100011111 And $Price < 100101100000101 Then
    ;   $Send = TCPSend($Socket, 'F1 00 10' $ItemIDforSend)
    ;   EndIf
WEnd

Func Quit()
    Exit 0
EndFunc   ;==>Quit

Edited June 14, 2009 by Chuuy