首先,建立一个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()