Private Sub Command2_Click()
On Error GoTo errproc
Dim sendstr(11) As Byte
sendstr(0) = &H0
sendstr(1) = &H0
sendstr(2) = &H0
sendstr(3) = &H0
sendstr(4) = &H0
sendstr(5) = &H6
sendstr(6) = &H1
sendstr(7) = &H3
sendstr(8) = &H0
sendstr(9) = &H0
sendstr(10) = &H0
sendstr(11) = &H1
Dim astr As String
Dim i As Integer
For i = 0 To 11
astr = astr & Chr(sendstr(i))
Next
Winsock1.SendData astr
Exit Sub
errproc:
MsgBox "传输数据失败", vbCritical, "网络传输"
End Sub
主要是byte在9下没有该类型,貌似可以用char替代,但怎么个替代法啊?谢谢各位大神!~
------解决方案--------------------
用byte是解决方案,char不支持ascii为0的,系统会认为是结束符