【VB.NET】网络断线与连接代码

首先，建立一个Windows窗体专案，在窗体上增加两个按钮，启用网络按钮和暂停网络按钮，并且如下操作: 项目-->添加引用-->com-->Microsoft Shell Controls And Automation。

完整代码：

Imports Shell32

Public Class Form1

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim flag As Boolean = My.Computer.Network.IsAvailable
Me.Text = flag
End Sub


''' <summary>
''' 设置网络断开和连接
''' </summary>
''' <param name="StrNetWorkConnection"></param>
''' <param name="StrVerb"></param>
''' <returns></returns>
''' <remarks></remarks>
Private Function SetNetworkAdapter(ByVal StrNetWorkConnection As String, ByVal StrVerb As String) As Boolean
Dim Shell As Shell32.Shell = New Shell32.Shell()
Dim folder As Shell32.Folder

folder = Shell.NameSpace(49)

Try
For Each myItem As Shell32.FolderItem In folder.Items()
If myItem.Name = StrNetWorkConnection Then
For Each Fib As Shell32.FolderItemVerb In myItem.Verbs()
If Fib.Name = StrVerb Then
Fib.DoIt()
Return True
End If
Next
End If
Next

Catch ex As Exception
MessageBox.Show(ex.Message)
Return False
End Try
Return True
End Function


Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
SetNetworkAdapter("本地连接", "启用(&A)")
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
SetNetworkAdapter("本地连接", "停用(&B)")
End Sub
End Class