SHOW:
|
|
- or go back to the newest paste.
| 1 | #include <string.au3> | |
| 2 | Global $sBuffer, $rBuffer | |
| 3 | Global $iSize, $iIndex | |
| 4 | ||
| 5 | $IP = "127.0.0.1" | |
| 6 | TCPStartUp() | |
| 7 | $socket = TCPConnect( $IP, 16000) | |
| 8 | If $socket = -1 Then MsgBox (0,"TCP","Can't make a connection") | |
| 9 | ||
| 10 | NewPacket(0x704F,1) | |
| 11 | AppendByte(4) | |
| 12 | TCPSend($socket,GetPacket()) | |
| 13 | ||
| 14 | Func NewPacket($sValue, $iValue) | |
| 15 | Local $sTemp = Hex($sValue) | |
| 16 | $sBuffer = "" | |
| 17 | $iSize = 0 | |
| 18 | $sBuffer &= StringLeft(ReverseHex(Hex($sValue)), 4) | |
| 19 | $sBuffer &= StringLeft(ReverseHex(Hex($iValue)), 4) | |
| 20 | EndFunc ;==>NewPacket | |
| 21 | ||
| 22 | Func ReverseHex($sString) | |
| 23 | Local $sTemp, $len | |
| 24 | For $i = StringLen($sString) + 1 To 1 Step -2 | |
| 25 | $sTemp &= StringMid($sString, $i, 2) | |
| 26 | Next | |
| 27 | Return $sTemp | |
| 28 | EndFunc ;==>ReverseHex | |
| 29 | ||
| 30 | Func AppendByte($sValue) | |
| 31 | $sBuffer &= StringRight(Hex($sValue), 2) | |
| 32 | $iSize += 1 | |
| 33 | EndFunc ;==>AppendByte | |
| 34 | ||
| 35 | Func GetPacket() | |
| 36 | Local $sTemp = "0x" | |
| 37 | $sTemp &= StringLeft(ReverseHex(Hex($iSize)), 4) | |
| 38 | $sTemp &= $sBuffer | |
| 39 | Return $sTemp | |
| 40 | EndFunc ;==>GetPacket |
