修改MAC，重启网卡，WMI属性读取

可以修改本地网卡的MAC地址并重启生效，查看WMI的属性字段。WIN7下测试通过，需要管理员权限运行。修改无线网卡时第二位必须是2，6，A，E要想改其他的得改驱动，具体可以百度下。

   Private Sub btnStop_Click(sender As Object, e As System.EventArgs) Handles btnStop.Click        If NetWorkState(Me.cmbNetWork.SelectedValue.ToString()) Then
            If Not DisableNetWork(NetWork(Me.cmbNetWork.SelectedValue.ToString())) Then
                MessageBox.Show("禁用网卡失败!")
            Else
                MessageBox.Show("禁用网卡成功!")
            End If
        Else
            MessageBox.Show("网卡己禁用!")
        End If        NetWorkList()
    End Sub
    Private Sub ReConnect(NetWorkName As String)
        If NetWorkState(NetWorkName) Then
            If Not DisableNetWork(NetWork(NetWorkName)) Then
                MessageBox.Show("禁用网卡失败!")
            Else
                MessageBox.Show("禁用网卡成功!")
            End If
        Else
            MessageBox.Show("网卡己禁用!")
        End If
        If NetWorkState(NetWorkName) Then
            If Not EnableNetWork(NetWork(NetWorkName)) Then
                MessageBox.Show("开启网卡失败!")
            Else
                MessageBox.Show("开启网卡成功!")
            End If
        Else
            MessageBox.Show("网卡己开启!")
        End If
    End Sub
    Private Sub cmbNetWork_SelectedIndexChanged(sender As Object, e As System.EventArgs) Handles cmbNetWork.SelectedIndexChanged    End Sub
    Public Sub New()        ' 此调用是设计器所必需的。
        InitializeComponent()        ' 在 InitializeComponent() 调用之后添加任何初始化。
        NetWorkList()
    End Sub    Private Sub 设置MAC_Click(sender As System.Object, e As System.EventArgs) Handles 设置MAC.Click
        Dim x As New DynamicMAC.MACHelper
        x.SetMACAddress(StrConv(SetMacAddessV.Text.Replace("-", ""), VbStrConv.Uppercase), Me.cmbNetWork.SelectedValue.ToString())
        ReConnect(Me.cmbNetWork.SelectedValue.ToString())    End Sub    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
        Dim x As New DynamicMAC.MACHelper
        Dim y As List(Of String)        y = x.GetAdapterPara(Me.cmbNetWork.SelectedValue.ToString())
        ParaList.DataSource = y
        MsgBox(x.GetAdapterIndex(Me.cmbNetWork.SelectedValue.ToString()))
        MsgBox(x.IPAddress x.MacAddress x.NetWorkName)    End Sub