真tm变态，这么简单的winsock连接都连不上！？

Question

server side:Private Sub Form_Load()
Winsock1.LocalPort = 8000
Winsock1.Listen
End SubPrivate Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID
End SubPrivate Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim dat As String
Winsock1.GetData dat
Text1.Text = dat
End Sub
client side:Private Sub Command1_Click()
Winsock1.Connect
End SubPrivate Sub Form_Load()
Winsock1.RemoteHost = "127.0.0.1"
Winsock1.RemotePort = 8000
End SubPrivate Sub Text1_Change()
Winsock1.SendData Text1.Text
End Sub客户端每次发送数据时都提示“错误地联结状态”之类。搞了好几个小时了，bt!

Answer 1

不是吧,你要通信至少也要2个winsock阿,一个作客户端,一个作服务端才行阿.
你用的都是一个....

Answer 2

to  danielpan(连):嗯，我用的当然是2个winsock，实际上，我建立了2个工程。

Answer 3

一点都不TMDBT呀
我这儿试的好好的！兄弟，你是否忘了Command1_Click就直接先去Text1_Change了？
没有连接，当然……      ----------------------------------------------- 
      我编了三年程序               只用过VB 
      我用了三年VB         只会WINSOCK和加密
       http://www.offca.com/gps/iphonebbs/
      **********中国网络程序开发联盟欢迎你**********
      -----------------------------------------------

Answer 4

不好意思,没有看到你代码中有服务端和客户端的标明.不过你的服务端有点问题,你在accept的时候按道理是应该用另外一个winsock去accept这个连接的,不知道和你的问题有没有关系.另外,8000端口好像是个比较常用的端口,当然如果你的服务端能够正常侦听的话就没问题.