VB程序中的几句话？

Question

errinfo:
If Err.Number = 10065 Then Exit Sub

是什么意思呢？

还有一个TIMER的控件
Private Sub WskTimer_Timer()
On Error GoTo errinfo
''，每两秒检测 >3秒切换
If ServerSet = "False" Then ''当本机为从

If DateDiff("s", ServerAtime, Now) > 3 Then
ServerStartUp = True
Else ''当本机为主
ServerStartUp = False
End If
Else
If Wsk1.State = 1 Then
Wsk1.SendData "IamFine"
End If
End If
errinfo:
If Err.Number = 10065 Then Exit Sub
End Sub

这里面我就知道WSK那一句
其他的是什么意思呢？
请帮我解释下 谢谢！

Answer 1

errinfo: '应该是"错误信息"的意思
If Err.Number = 10065 Then Exit Sub '如果Err.Number = 10065 则结束函数

Private Sub WskTimer_Timer() '私有WskTimer_Timer()函数
On Error GoTo errinfo
''，每两秒检测 >3秒切换
If ServerSet = "False" Then ''如果ServerSet = "False"服务器设置为"False"则执行下面if语句

If DateDiff("s", ServerAtime, Now) > 3 Then '如果当前日期和ServerAtime日期DateDiff > 3,DateDiff为返回两个指定日期之间所跨的日期和时间边界的数目。
ServerStartUp = True '则执行bool变量ServerStartUp = True
Else ''当本机为主
ServerStartUp = False '否则令ServerStartUp = False服务器关闭
End If
Else '如果当前日期和ServerAtime日期DateDiff > 3不成立,则
If Wsk1.State = 1 Then '你懂
Wsk1.SendData "IamFine" '你懂
End If
End If '结束if语句
errinfo:
If Err.Number = 10065 Then Exit Sub '如果错误编号为Err.Number = 10065则直接结束sub
End Sub
够详细了吧...呵呵

Answer 2

Err.Number = 10065 //请检查下服务器地址是否有误
ServerSet 服务器设置
DateDiff 函数
返回 Variant (Long) 的值，表示两个指定日期间的时间间隔数目。
ServerStartUp 服务器开启时

Answer 3

If ServerSet = "False" Then
问一下你的ServerSet 定义为字符类型吗？