在使用这个空间编写简单的发送和接受程序时。。客户机上设置protocol的属性设置为sc
kTCp的时候运行点击发送的时候怎么老是提示wrong protocol or connection state for
the requested state
PS:在VB中间能够设置 unsigned short类型的变量吗？还有union的变量能设置吗？
winsock的程序如下：编译的时候主要是senddata的时候出错
客户机
Private Sub Command1_Click()

Winsock1.Connect "yuan", 6598
Winsock1.SendData Text1.Text
Winsock1.Close
End Sub


Private Sub Form_Load()

Winsock1.RemoteHost = "yuan"

'获取远程计算机名

Winsock1.RemotePort = 6598 '获取远程计算机通信程序的端口

End Sub



Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)

Dim aa As String

Winsock1.GetData aa '接收服务器传输入过来的数据

Text2.Text = aa '将接收的数据在Text2中显示出来

End Sub
主机
Private Sub Form_Load()
tcpServer.LocalPort = 6598
tcpServer.Listen
End Sub

Private Sub tcpServer_ConnectionRequest(ByVal requestID As Long)
If tcpServer.State <> sckClosed Then tcpServer.Close
End If
tcpServer.Accept requestID
End Sub

Private Sub tcpServer_DataArrival(ByVal bytesTotal As Long)
Dim aa As String
Winsock1.GetData aa
txt_x.Text = aa
End Sub
急啊！！！！！！！！！！！！！！！！