| 网站首页 | 业界新闻 | 群组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 编程论坛
共有 183 人关注过本帖
标题:为什么winsock控件关不了?
只看楼主 加入收藏
做自己就好
Rank: 1
等 级:新手上路
帖 子:4
专家分:0
注 册:2018-3-23
  问题点数:0  回复次数:0   
为什么winsock控件关不了?
写了一个程序,是用GPRS向服务器传数据的,用的是VB中的Winsock控件,但是现在断开连接后发现GPRS模块仍然处于连接状态,这是为什么?代码如下
Private Sub Command1_Click()
Winsock1.Protocol = sckTCPProtocol
Winsock1.LocalPort = 8086
Winsock1.Listen
Me.Caption = "正在监听……"
End Sub
'点击“侦听端口”开始对通信端口进行监听
Private Sub Winsock1_Connectionrequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then Winsock1.Close
Winsock1.Accept requestID
Me.Caption = "连接成功!"
End Sub
'Winsock1_Connectionrequest事件——决定是否接受客户端发出的连接请求
Private Sub Command2_Click()
Winsock1.Close
Me.Caption = "连接已断开!"
End Sub
'断开Winsock控件的连接
2018-03-23 11:03







关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.019277 second(s), 8 queries.
Copyright©2004-2018, BCCN.NET, All Rights Reserved