Code:
If InStr(buffer, Chr(0) & Chr(1) & Chr(8) & Chr(0) & "ÿÿü") Then aaa = Split(buffer, "ÿÿü") For c = 1 To Len(aaa(1)) bbb = Mid(aaa(1), c, 1) bbb = Hex(Asc(bbb)) If Len(bbb) = "1" Then bbb = "0" & bbb End If rdata = rdata & bbb & "
If InStr(buffer, Chr(0) & Chr(1) & Chr(8) & Chr(0) & "ÿÿü") Then aaa = Split(buffer, "ÿÿü") For c = 1 To Len(aaa(1)) bbb = Mid(aaa(1), c, 1) bbb = Hex(Asc(bbb)) If Len(bbb) = "1" Then bbb = "0" & bbb End If rdata = rdata & bbb & "
00 01 08 00 FF FF FC 19 xx xx xx xx FF FF FC 19
00 01 08 00 FF FF FC 19 xx xx xx xx FF FF FC 19
If InStr(buffer, Chr(0) & Chr(1) & Chr(8) & Chr(0))
00 01 08 00 FF FF FC 19 xx xx xx xx FF FF FC 19
Private Sub Winsock1_DataArrival(ByVal
Leave a comment: