是在建立连接成功后才触发connect事件,还是有连接请求就会触发?
Private Sub Winsock1_Connect()
form1.Label1.Caption = "连接成功!"
dcButton1.Enabled = True
dcButton7.Enabled = True
dcButton4.Enabled = False
dcButton5.Enabled = False
End Sub我在服务端选择拒绝后,还是显示 连接成功
Private Sub Winsock1_Connect()
form1.Label1.Caption = "连接成功!"
dcButton1.Enabled = True
dcButton7.Enabled = True
dcButton4.Enabled = False
dcButton5.Enabled = False
End Sub我在服务端选择拒绝后,还是显示 连接成功
解决方案 »
- VB中使用“form1.show”显示401错误:当打开有模式窗体时不能打开无模式窗体
- 程序如何模拟操作系统带的虚拟专用网络连接?
- 关于Tabstrip的一个问题!
- 调用什么函数可以知道一个文件夹里面含有几个子文件(假设文件夹里面的自文件后缀名全相同且不含其他类型的文件名)
- 有关半角、全角转化问题,40分给第一个可以解决问题的人!
- inputbox怎么用!?
- 立等给分 关于“撤消”问题
- doevents()函数?
- 怎么样用winsock(tcp/ip)实现一对多或是多对多的聊天方式
- 请问:CommandButton如何设置才能使图片与文字并排?
- 新手分不多,请各位大侠帮忙~
- 网页图片的显示问题
if Winsock1.state<> sckclose then
form1.Label1.Caption = "连接成功!"
dcButton1.Enabled = True
dcButton7.Enabled = True
dcButton4.Enabled = False
dcButton5.Enabled = False
end if
End Sub
Private Sub Timer1_Timer() If time > 15 Then
Timer1.Enabled = False Label1.Caption = "连接超时,请重试。。"
Winsock1.Close
time = 0
Exit Sub End If
time = time + 1 If Winsock1.State = sckConnected Then
form1.Label1.Caption = "连接成功!"
Timer1.Enabled = False
dcButton1.Enabled = True
dcButton7.Enabled = True
dcButton4.Enabled = False
dcButton5.Enabled = False
Timer1.Enabled = False
Exit Sub
但是我在服务端选择拒绝,客户端一样显示连接成功?