收录日期:2019/02/17 00:08:32 时间:2016/05/30 10:06:19 标签:VB基础类
服务端代码如下:
ServerSocket.Protocol = 0
ServerSocket.LocalPort = 4000
ServerSocket.Bind 4000, "192.100.100.222"
ServerSocket.Listen

客户端代码如下(是一个按纽的click事件):

If ClientSock.State = sckConnecting Then'先检查是否连接,如果连接就关闭
  ClientSock.close
end if
ClientSock.Protocol = sckTCPProtocol
ClientSock.RemotePort = 4000
ClientSock.LocalPort = 1000
ClientSock.RemoteHost = "192.100.100.222"
ClientSock.Connect

当客户端两次按下按纽的时候 第一次是正常的
第二次就报错了 说什么连接错误之类的
求达人给出个具体的解决方法
谢谢了 

但是客户端
"但是客户端"那句不要  写错了
顶一下额
两个sock,一个按钮   一个定时器检测 clientwsock的状态 一个label1显示clientwsock的状态
Private Sub Command1_Click()
If ClientSock.State <> sckConnected Then '先检查是否连接,如果连接就关闭
  ClientSock.Close
  ClientSock.Connect
Else
    MsgBox "has connected"
End If
End Sub

Private Sub Form_Load()
ServerSocket.Protocol = 0
ServerSocket.LocalPort = 4000
ServerSocket.Bind 4000, "127.0.0.1"
ServerSocket.Listen

ClientSock.Protocol = sckTCPProtocol
ClientSock.RemotePort = 4000
ClientSock.LocalPort = 1000
ClientSock.RemoteHost = "127.0.0.1"
End Sub

Private Sub ServerSocket_ConnectionRequest(ByVal requestID As Long)
ServerSocket.Close
ServerSocket.Accept requestID
End Sub

Private Sub Timer1_Timer()
Label1.Caption = ClientSock.State
End Sub
楼上的大哥 谢谢
不过你好象是单机版的哦
sckConnecting并不是表示“已经连接”,而是表示“正在连接”。就是这里。
把127.0.0.1(本机地址)换成你的IP地址就可以了
写好错误处理代码
//楼上的大哥 谢谢
不过你好象是单机版的哦
我就一台电脑没有联网  不在局域网内 只能有 127.0.0.1的ip

如何实现查找EXCEL表格中的数据,并根据该数据对另外一张表进行修改? 怎么样往记录里插一个空字段呢?简单问题sql 数据库产品 MM今晚喝醉了,怎么办? =======致斑竹及管理员:为什么很久以前发的贴子我的问题中看不到了======= ASP高手请进!!!! 高手帮忙:关于combobox中禁止选择某些选项的问题? 关于中英文的字符串长度 我的linux下的网站,怎么让外网访问 struts中自定义标签使用的问题 数据库产品售价 如何用Delphi编写程序连接手机进行信息读取? 如何返回VBSCRIPT里面的的值? 北京公司招聘,求求各位大哥帮帮忙,等几天就揭帖了 笔记本电脑内存升级加哪种内存好? .................就像一场梦.................. 看下这段代码(gobal.asa文件)????(一直在线.快....) rockyuan接分! rockyuan接分! rockyuan接分! rockyuan接分! rockyuan接分! rockyuan接分! 特别怪的问题! 关于核心对象计数? rockyuan接分! rockyuan接分! 谁有Ehlib3.0注册版! “Error opening registry key \'Software\\JavaSoft\\Java Runtime Environment\'”是什么错误? temp=2.390689E-02 请问