这样一个极其简单,典型,普遍,而又具有重要意义的问题怎么会没有人回答呢????
It's terrible!!!!

解决方案 »

  1.   

    因为我不明白,你为什么要在close事件里初始化,这样做不会执行代码的,实际上你并没有断开连接
      

  2.   

    在form_load里初始化不是很好吗,在close里断开连接是多美妙的一件事呀!!!!
      

  3.   

    你的Client端的Port Number是否使用指定的端口,如果是则把它设为0。
    Client连接Server端时,只需指出Server端的IP Address和Port Number,而自己的Port Number应该设为0,让系统自己找一个合适的端口。
      

  4.   

    这个问题是由于你在Client端断开连接造成的,这样你必须退出你的应用重新进入才能连接。解决方法是不要在 Client 端使用 Close 方法, 而在服务端使用
    服务端的数据接受过程:
    Sub Server_DataArrival(ByVal bytesTotal as Long)
    Dim vbStr as String
    Server.GetData DataReceived, vbStr
    if Cstr(DataReceived)= "QUIT" then
    server.close
    server.LocalPort = 1111
    server.Listen
    end if
    。。
    End Sub客户端关闭时:
    Client.SendData "QUIT"
      

  5.   

    我自己知道答案了,不过还是要感谢大家对我的帮助,谢谢!!!!
    客户端不设localport,让电脑自己随机就好使了