本人想学习使用Winsock控件，照着书上的步骤作，但在学校的机房里无法运行，总会有“所需事物或请求的错误协议或连接状态”或是“本地IP地址不可用”的错误提示，怎么做呀？
我现在急需弄懂这个问题，就要在近期做个类似的程序！！！
请高手指点！！！

前提是学校的机房已经连网，另外，请你把代码写出来。出现“所需事物或请求的错误协议或连接状态”原因可能是你没有连接远端主机就已经使用 Send 或 Receive 以及一些需要连接后才能用的方法，例如以下代码会引起该错误:

WinSock1.Connect "202.38.155.144"
WinSock1.SendData "Hello" '使用 Connect 方法后不能立即使用 SendData、GetData 等方法，最好放在 WinSock 控件的 Connect 事件中

[此贴子已经被作者于2005-11-2 22:23:13编辑过]

这是服务器

Option Explicit

Private Sub Command1_Click()
Winsock.SendData Text1.Text
End Sub

Private Sub Form_Load()

Winsock.LocalPort = 1001
Winsock.Listen

End Sub

Private Sub Winsock_ConnectionRequest(ByVal requestID As Long)

If Winsock.State <> 0 Then
Winsock.Close
End If
Winsock.Accept requestID

End Sub

Private Sub Winsock_DataArrival(ByVal bytesTotal As Long)

Dim i As String

Winsock.GetData i, vbString

Text2.Text = i



End Sub




这是客户端

Private Sub Command1_Click()
Winsock.SendData Text1.Text

End Sub

Private Sub Form_Load()
Winsock.Protocol = sckTCPProtocol
Winsock.RemoteHost = "192.168.0.63"
Winsock.RemotePort = 1001
Winsock.LocalPort = 1000
Winsock.Connect

End Sub

Private Sub Winsock_DataArrival(ByVal bytesTotal As Long)
Dim i As String
Winsock.GetData i, vbString
Text2.Text = i

End Sub