Question

VB.NET如何判断电脑是否已连接到网络？

在VB6中可以在Form_Load()下写：Move
请大家无视“问题补充”。。。只看大标题

Answer 1

Microsoft.VisualBasic.Devices.Network.IsAvailable As Boolean

生成实例后可以通过此属性来获取是否联网的值，True代表已联网，False代表没有联网

Microsoft.VisualBasic.Devices.Network.NetworkAvailabilityChanged(ByVal Object, ByVal Microsoft.VisualBasic.Devices.NetworkAvailableEventArgs)

该事件是在电脑断开/连上互联网是引发的

其中：

e.IsNetworkAvailable

的功能同Microsoft.VisualBasic.Devices.Network.IsAvailable

实例:

Dim netListener As New Microsoft.VisualBasic.Devices.Network '生成实例
If netListener.IsAvailable = True Then
    MsgBox("已联网")
Else
    MsgBox("未联网")
End If

NetworkAvailabilityChanged实例：

WithEvents netListener As New Microsoft.VisualBasic.Devices.Network '生成实例
Private Sub OnNetworkChanged(ByVal Object, ByVal Microsoft.VisualBasic.Devices.NetworkAvailableEventArgs)Handles netListener.NetworkAvailabilityChanged
    If e.IsNetworkAvailable = True Then
        MsgBox("已联网")
    Else
        MsgBox("未联网")
    End If
End Sub

Answer 2

If My.Computer.Network.IsAvailable Then
'如果可用
Else
'不可用
End If