通过计划的确可以解决这个问题，但带来了更大的问题，就是屏幕极明显的闪烁，且有那么一刹那，显示主系统界面,感觉非常LOW老师的计划管理提醒了我，让我不再寄希望于NetworkAvailabilityChanged事件了，只用计划管理，配合TryConnectHost()函数，完美解决了这个问题
计划默认可执行，间隔5秒。当网络通断时，都有及时的显示正常且正确的提示信息，这正是我想要的结果
'wzlt 是一个全局变量，默认值为 false
If Forms("main").Opened = True Then
Dim ztl As WinForm.Strip = Forms("main").Strips("状态栏")
ztl.Items("用户").Text = "当前用户:" & User.Name
ztl.Items("时间").Text = Date.now
Dim wz As String = "www.baidu.com" '自己服务器域名
Dim wl As Boolean = TryConnectHost(wz)
If wl = True Then
If wlzt = False Then ‘避免反复提示
PopMessage("网络链接已恢复", "提示", PopiconEnum.OK, 5)
End If
ztl.Items("网络").Text = "网络状态：[正常]"
wlzt = True
Else
If wlzt = True Then
PopMessage("失去网络链接，请检查", "提示", PopiconEnum.OK, 5)
End If
ztl.Items("网络").Text = "网络状态：[不正常]"
wlzt = False
End If
End If
[此贴子已经被作者于2023/4/20 21:10:47编辑过]
加好友 
发短信
Post By：2023/4/20 21:10:00 [只看该作者]
