以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求助,连接TCP  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=158408)

--  作者:tianhao0817
--  发布时间:2020/11/19 9:27:00
--  求助,连接TCP
老师,麻烦看一下,为什么这个登录按钮,点第二次,就会报错,代码该如何修改


图片点击可在新窗口打开查看此主题相关图片如下:1111111.jpg
图片点击可在新窗口打开查看


图片点击可在新窗口打开查看此主题相关图片如下:222222.jpg
图片点击可在新窗口打开查看

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:tcp客户端.table






--  作者:有点蓝
--  发布时间:2020/11/19 9:36:00
--  
退出按钮

Dim client = vars("client1")
If client IsNot Nothing Then
    client.receiveThread.Abort()
    client.nStream.Close()
End If
vars("client1")= Nothing

--  作者:tianhao0817
--  发布时间:2020/11/19 17:31:00
--  
登陆里的代码

Dim client = vars("client1")
If client IsNot Nothing Then
    client.receiveThread.Abort()
    client.nStream.Close()
End If

vars("client1") = new MyClient(e.Form.Controls("txtip").text, e.Form.Controls("txtport").text)

老师请问一下,为什么最后一句不写在第一行呢?

--  作者:有点蓝
--  发布时间:2020/11/19 20:10:00
--  
如果客户端已经启动要先关闭掉,避免占用端口
--  作者:tianhao0817
--  发布时间:2020/11/20 17:54:00
--  
vars("client1")= Nothing
老师,我在登录里加了这一句了,可还是会报错,
我要的效果是可以重复点击登录按钮,麻烦老师帮忙看一下


图片点击可在新窗口打开查看此主题相关图片如下:2222.png
图片点击可在新窗口打开查看



[此贴子已经被作者于2020/11/20 17:56:31编辑过]

--  作者:tianhao0817
--  发布时间:2020/11/21 8:01:00
--  
麻烦老师帮我看一下,如何连续点击登陆,去判断TCP能否连上
--  作者:有点蓝
--  发布时间:2020/11/21 10:04:00
--  
登录按钮

Dim client = vars("client1")
If client IsNot Nothing Then
    If client.receiveThread IsNot Nothing Then
        client.receiveThread.Abort()
    End If
    If client.nStream IsNot Nothing Then
        client.nStream.Close()
    End If
End If


vars("client1") = new MyClient(e.Form.Controls("txtip").text, e.Form.Controls("txtport").text)

--  作者:tianhao0817
--  发布时间:2020/11/21 10:25:00
--  
谢谢老师,您太棒了图片点击可在新窗口打开查看