读书人

vb.net sockets 发送数据的有关问题

发布时间: 2012-03-19 22:03:05 作者: rapoo

vb.net sockets 发送数据的问题
用 vb.net(2005)的sockets做的一个客户端程序
前边略
Dim bx As String
bx = "0300001611E00000000100C1024D57C20"
Dim msg As Byte() = Encoding.ASCII.GetBytes(bx)
Dim bytesSent As String = cliSocket.Send(msg)

略。。。
这段程序怎么改,才能使对方收到的是16进制代码0300001611E00000000100C1024D57C20,而不是30 33 30 30 30 30 31 36 31 31 45 30 30 30 30 30 30 30。。。
谢谢各位老师。

[解决办法]
Dim msg As string="0300001611E00000000100C1024D57C20"
cliSocket.Send(Encoding.Default.GetBytes(MSG))
[解决办法]
参考如下:

VB.NET code
        Dim msg As String = "0300001611E00000000100C1024D57C20"        Dim intCount As Integer        Dim intI As Integer        If msg.Length > 0 Then            intCount = msg.Length \ 2 + IIf(msg.Length Mod 2 = 0, 1, 0)            Dim bytTemp(intCount - 1) As Byte            For intI = 0 To intCount - 1                bytTemp(intI) = Val("&H" & msg.Substring(intI * 2, 2))            Next            cliSocket.Send(bytTemp)        End If 

读书人网 >VB Dotnet

热点推荐