13518219792
发送接收的过程都放在Try...Catch里面，一旦连接中断，就会出错，此时可以关闭现有连接，重新连服务端
创新互联公司是一家集网站建设,兴山企业网站建设,兴山品牌网站建设,网站定制,兴山网站建设报价,网络营销,网络优化,兴山网站推广为一体的创新建站企业，帮助传统企业提升企业形象加强企业竞争力。可充分满足这一群体相比中小企业更为丰富、高端、多元的互联网需求。同时我们时刻保持专业、时尚、前沿，时刻以成就客户成长自我，坚持不断学习、思考、沉淀、净化自己，让我们为更多的企业打造出实用型网站。
原代码的问题： 1.计时器每过 [Interval] 毫秒就会自动触发 Timer() 事件，而你在其中又加了一个循环，让人不知所云 2.下面这段代码是始终无法执行到 Close 1 的，因为一旦跳到这段代码，首先执行的便是 Exit Sub ，于是程序就不会关闭这个文件。 E: Exit Sub Close 1 同时，正确的语法应是：Close #1 3.最好不要频繁的打开、关闭文件，这样会影响程序的性能 4.你的变量 i 与 NewFile 的声明有问题。如果在某一事件中使用 Dim ，在其所在的事件结束后，变量就会被销毁。于是 NewFile 便始终只有一个字符。应该使用 Static 创建静态变量，或将这两个变量用 Dim 在(通用)(声明)处将其声明。 你可以在(通用)(声明)处（所有代码的最上面）声明： Dim File As String '文件名 Dim Fid As Integer '文件号 把打开文件的代码放在窗体打开的事件里面： Private Sub Form_Load() Fid = FreeFile File = "F:\test1.txt" Open File For Input As #Fid End Sub 注：此处你最好用 FreeFile 生成一个空闲的文件号。万一 #1 这个文件号被占用，那程序还是会出错的。 然后在定时器里面添加代码： Private Sub Timer1_Timer() Static i '因为 i 是随着定时器的事件一一累加的，所以要声明为静态变量。 Static NewFile As String '因为 NewFile 里的字符是随着定时器的事件一一累加的，所以要声明为静态变量。 Dim Char As String '因为 Char 只是作为临时变量，所以声明为普通变量。 On Error GoTo E i = i + 1 Char = Input(i, #Fid) '你在这里写的代码是 Char = Input(1, #1) ，是不是写错了？我给你改成了 i NewFile = NewFile + Char Text1.Text = NewFile IF i = LOF(Fid) Then Timer1.Enable = Fals
这个很正常，因为服务器（对方）还没对客户端（本地）做Close动作。还有一个说法是本地端控件的缓存还存在着与服务器对应Handle，只是State属性状态不是sckConnected而已。继续进行测试，你也会发现只要超过60秒通信闲置，也会自动Not sckConnected。
TCP连线，可以使用Load 控件数组进行尝试连线，当控件Close后就Unload，这可以取代必须关闭窗体、重新打开连接的问题。
vb网络显示频繁怎么回事bi若使用数据流量，查看所在位置信号强度是否偏低，可尝试调整或移动到信号强度更高的位置；部分情况下可能由于信号环境较复杂未能切换到信号质量更好的基站，可以尝试开关手机飞行模式再试；
2、若使用WiFi，查看设备是否在所有WiFi环境下都有异常现象，若都有异常，建议删除网络或重启手机重连；不同运营商的网络若表现不同，基本可以判断是WiFi本身的异常；
3、如果所有网络环境、地区，手机网络异常问题都很严重，建议更换一下握持姿势；如果使用了含有金属或过厚的保护壳可能会影响信号接收能力，可摘除保护壳后尝试；
4、如单独是某个软件有此现象，可进入设置-更多设置-应用管理-相关软件-存储-清除数据缓存看下是否有改善。
