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

原创

于 2010-02-23 10:44:00 发布 · 1.2k 阅读

收录于

当前文章被以下社区和专栏收录：

这篇博客介绍了如何使用VB.NET来控制网络连接状态。通过创建Windows窗体项目，添加启用和暂停网络的按钮，利用Microsoft Shell Controls And Automation库，实现对‘本地连接’的启用和停用功能。代码中定义了SetNetworkAdapter函数，根据传入参数执行相应的网络操作。

首先，建立一个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