经过这么多天的想办法，最终决定求组大家 vb与java进行通信，

代码如下：客户端代码
Private Sub Command1_Click()
End
End Sub
Private Sub Command2_Click()
Winsockclient.Connect
End Sub
Private Sub Command3_Click()
Winsockclient.SendData Textsend.Text
End Sub
Private Sub Form_Load()
Textsend.Visible = False
Textget.Visible = False
Text2.Visible = False
Text3.Visible = False
Winsockclient.RemotePort = 6001
End Sub
Private Sub Text1_Change()
Winsockclient.RemoteHost = Text1.Text
End Sub
Private Sub Winsockclient_Close()
Winsockclient.Close
End
End Sub
Private Sub winsockclient_Connect()
Textsend.Visible = True
Textget.Visible = True
Text2.Visible = True
Text3.Visible = True
Command2.Visible = False
End Sub
Private Sub winsockclient_DataArrival(ByVal bytesTotal As Long)
Dim tmpstr As String
Winsockclient.GetData tmpstr
Textget.Text = tmpst
End Sub