主题：项目保密及安全问题

Dim nics() As System.Net.NetworkInformation.NetworkInterface = System.Net.NetworkInformation.NetworkInterface.GetAllNetworkInterfaces

Dim find As Boolean

For Each nic As object In nics

    Dim fdr As DataRow = DataTables("表").Find("网卡 = '" & nic.GetPhysicalAddress.tostring & "'")

    If fdr IsNot Nothing Then

        find = True

        Exit For

    End If

Next

If find = False Then

    msgbox("没有权限")

    basemainform.Close

End If