- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 求助，连接TCP (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=158408)
-- 发布时间：2020/11/19 9:27:00
-- 求助，连接TCP
老师，麻烦看一下，为什么这个登录按钮，点第二次，就会报错，代码该如何修改
此主题相关图片如下：1111111.jpg
此主题相关图片如下：222222.jpg
-- 发布时间：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
-- 发布时间：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
--
如果客户端已经启动要先关闭掉，避免占用端口
-- 发布时间：2020/11/20 17:54:00
--
vars("client1")= Nothing
老师，我在登录里加了这一句了，可还是会报错，
我要的效果是可以重复点击登录按钮，麻烦老师帮忙看一下
此主题相关图片如下：2222.png
[此贴子已经被作者于2020/11/20 17:56:31编辑过]
-- 发布时间：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)
-- 发布时间：2020/11/21 10:25:00
--
谢谢老师，您太棒了
