收录日期:2019/08/19 20:45:52 时间: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

GDI+ TextureBrush 怎么使纹理的背景透明? LINUX排队递交任务问题 有人做过淘宝应用软件吗? 求助,windows下访问路径\\ .\\ 怎样实现OrCAD16.2 PSpice完全破解 与归档文件有关的问题 【今天就散到这里,休息休息一会】 SOCKET SELECT 关于java中Session的过期问题 如何对变量进行模糊查询 股票正负面消息库——关键字 vc编译错误 Laber控件对已连接数据表的DropDownList控件同行不同列的数据实时显示问题 .net 打包时怎么获取用户界面checkbox的值 小弟初学C++请教个虚基问题 CSS问题 两张图片并列显示问题 SOS,FORM開發,請各位幫忙 U盘病毒免疫器功能征集 奇怪问题 检查存储过程和数据表是否存在并创建 行锁的问题 login控件不能登录 求一实现在线支付功能及邮件群发的代码 JXL导出报表出现了java.lang.NoClassDefFoundError: jxl/format/CellFormat怎么解决 备份问题; javascript如何判断选项是否已经选上? 为什么WebBrowser的DocumentCompleted事件不起作用呢? 重写Setup.dll文件去掉提示的问题 asp.net2005设计视图与运行后的效果不一致?非常感谢大家呀! 谁能指导一下delphi开发VPN客户端,或有没有相关资料