各位大虾,俺想不用timer能否实现:
1,网络连接上或者网络异常时能马上监控到;
2.监控到网络连接变动后在系统托盘区出现类似"本地连接"那样自动弹出文本提示框"网络连接已中断"这样的提示?
1,网络连接上或者网络异常时能马上监控到;
2.监控到网络连接变动后在系统托盘区出现类似"本地连接"那样自动弹出文本提示框"网络连接已中断"这样的提示?
解决方案 »
- 急,关于XML序列化的问题
- 为什么点击有些网页上内容的时候不会在webbrowser中显示出来……
- 为什么“转到汇编”出现的是x86汇编,而不是中间语言
- 引用动态添加的控件
- C#中listView无法显示正常
- DataGridView打印精灵组件 ,欢迎大家使用!+ 并代做.NET程序
- 为什么我打开的oracle连接关闭需要大约1分钟??
- 真的没有人有办法解决dataGrid的打印问题吗?
- 如何高效的开发控件?
- WebService的问题,用C#可以实现传出参数(类型为普通类型,不是对象类型)。
- TreeView如果在点击加号的时候取得该节点的值
- C#如何创建一个可以让应用程序读写的配置文件?
Namespace My ' 以下事件可用于 MyApplication:
'
' Startup: 应用程序启动时在创建启动窗体之前引发。
' Shutdown: 在关闭所有应用程序窗体后引发。如果应用程序异常终止,则不会引发此事件。
' UnhandledException: 在应用程序遇到未处理的异常时引发。
' StartupNextInstance: 在启动单实例应用程序且应用程序已处于活动状态时引发。
' NetworkAvailabilityChanged: 在连接或断开网络连接时引发。
Partial Friend Class MyApplication Private Sub MyApplication_NetworkAvailabilityChanged(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.Devices.NetworkAvailableEventArgs) Handles Me.NetworkAvailabilityChanged
If e.IsNetworkAvailable Then
My.Forms.frmMain.Text = "网络暂时不可用"
Else
My.Forms.frmMain.Text = "Explorer(试用版)"
End If
End Sub Private Sub MyApplication_UnhandledException(ByVal sender As Object, ByVal e As Microsoft.VisualBasic.ApplicationServices.UnhandledExceptionEventArgs) Handles Me.UnhandledException
MsgBox(e.Exception.Message , MsgBoxStyle.Critical, "未知错误")
End Sub
End ClassEnd Namespace
Ping 服务器并指定超时
确定 Ping 方法是否返回 True,同时指定超时间隔(以毫秒为单位)。如果未指定超时,则使用 500 作为默认值。此示例确定 Ping 方法是否返回了 True,由此来报告是否能够 ping 至该服务器,此示例还指定 1000 毫秒的超时间隔。将 www.cohowinery.com 替换为要 ping 的服务器的 IP 地址、URL 或计算机名称。Visual Basic 复制代码
If My.Computer.Network.Ping("www.cohowinery.com", 1000) Then
MsgBox("Server pinged successfully.")
Else
MsgBox("Ping request timed out.")
End If