[vb.net] 네트워크 어댑터(NetworkAdapter) 사용 안 함/사용함(끄기/켜기) > vb.net

본문 바로가기

vb.net

[Hardware] [vb.net] 네트워크 어댑터(NetworkAdapter) 사용 안 함/사용함(끄기/켜기)

회원사진
하나를하더라도최선을
2022-10-29 15:39 1,757 0

본문



        ComboBox2.Items.Clear()
        Dim wmiQuery = New SelectQuery("SELECT * FROM Win32_NetworkAdapter " & "WHERE NetConnectionId != null "'& "AND Manufacturer != 'Microsoft' "
        Using mosSearcher = New ManagementObjectSearcher(wmiQuery)
            For Each moItem As ManagementObject In mosSearcher.[Get]()
                ComboBox2.Items.Add(DirectCast(moItem("NetConnectionId"), [String]))
            Next
        End Using

    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.SelectedIndexChanged
        Dim wmiQuery = New SelectQuery("SELECT * FROM Win32_NetworkAdapter " & "WHERE NetConnectionId != null "'& "AND Manufacturer != 'Microsoft' "
        Using mosSearcher = New ManagementObjectSearcher(wmiQuery)
            For Each moItem As ManagementObject In mosSearcher.[Get]()
                Using moItem
                    If DirectCast(moItem("NetConnectionId"), [String]) = ComboBox2.SelectedItem Then
                        moItem.InvokeMethod("Enable"Nothing)
                    Else
                        moItem.InvokeMethod("Disable"Nothing)
                    End If
                End Using
            Next
        End Using
    End Sub


정말 간단하다.

댓글목록0

등록된 댓글이 없습니다.
게시판 전체검색