189 8069 5689
你可以在timer前用if判断网络状态，
创新互联公司从2013年成立，是专业互联网技术服务公司，拥有项目做网站、成都网站建设网站策划，项目实施与项目整合能力。我们以让每一个梦想脱颖而出为使命，1280元太仆寺做网站,已为上家服务,为太仆寺各地企业和个人服务,联系电话:18980820575
如断开，可用
threading.Thread.Sleep（10000） ‘当前线程挂起10秒
’可以开一个新线程去读取脱机数据。
如连接，则继续执行。
补充：
dim i as integer
'超过100次退出，避免死循环
for i=0 to 100
try
'ping你的端口
if ‘ok
exit for
else
threading.Thread.Sleep（10000） ‘当前线程挂起10秒
end
Catch ex As Exception
End Try
next
Private Sub Command1_Click()
Dim i As Integer
i = Text1.Text
If i Mod 2 = 0 Then
MsgBox "偶数"
Else
MsgBox "奇数"
End If
End Sub
都可以,可以用winsock,也可以自己重写SOCKET套接字.建议你如果工期紧,可以先用WINSOCK.当然最好是自己学用SOCKET套接字.这对未来开发网络通讯是很有帮助的.因为用WINSOCK有个毛病就是杀毒软件总会阻止
vb.net是完全面向对象的语言，支持面向对象的四个基本属性:抽象,继承，多态，封装，但vb是面向过程的语言，它只支持部分面向对象的内容像多态，接口等。从 VB 7.0 之后的版本俗称 VB.NET，来源于微软的.NET战略，到现在为止有三个版本
VB 7.0 即VB 2002，对应.NET Framework 1.0的版本
VB 7.1 即VB 2003，对应.NET Framework 1.1的版本
VB 8.0 即VB 2005，对应.NET Framework 2.0的版本
除了语法和使用习惯的继承，VB 6.0之前的版本和VB 7.0之后的版本完全没有联系，几乎没有相同之处，两种不同体系的语言