VB高手求救！winsock UDP发送给JAVA服务端16进制怎么发，我写的发不了。郁闷！

Question

Private Sub Command1_Click()
Dim arrbyt(2) As Byte
'arrbyt = Array(00, 27, 02, 01, "35", "24", "20", "02", "39", "89", "27", "00", "02", "00", "20", "01", "02", "01", "E9", "03", "0D", "07", "14", "5B", "87", "00", "00", "00", "68", "08", "07", "17", "13", "3B", "19", "00", "00", "00", "07")
arrbyt = Array("00", "27")
'MsgBox arrbyt(1)Winsock1.Protocol = sckUDPProtocol
Winsock1.LocalPort = 3221Winsock1.RemoteHost = "192.168.0.22"
Winsock1.RemotePort = 7896
Winsock1.SendData arrbytEnd Sub
就是发送不了！

Answer 1

注意,以下代码分别在不同的程序中'给你一个示例.这是一个程序中的, 增加一个按扭,一个WinsockPrivate Sub Command1_Click()
  Winsock1.SendData "OK1"
End SubPrivate Sub Form_Load()
  Winsock1.Protocol = sckUDPProtocol
  Winsock1.RemoteHost = Winsock1.LocalIP
  Winsock1.RemotePort = 5000
  Winsock1.LocalPort = 5001
  Winsock1.Bind
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
   Dim str As String
   Winsock1.GetData str
   MsgBox str
End Sub'这是另一个程序中的,也是一样增加一按扭一WinsockPrivate Sub Command1_Click()
  Winsock1.SendData "OK2"
End SubPrivate Sub Form_Load()
   Winsock1.Protocol = sckUDPProtocol
  Winsock1.RemoteHost = Winsock1.LocalIP
  Winsock1.RemotePort = 5001
  Winsock1.LocalPort = 5000
  Winsock1.Bind
End SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
   Dim str As String
   Winsock1.GetData str
   MsgBox str
End Sub

Answer 2

谢谢你fvflove ！感谢你解答我的问题！