Jump to content
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

Sign in to follow this  
cagueca

Duvida vb.net

Recommended Posts

cagueca

Boas :

Tenho o seguinte código para buscar o meu MacAdress.

 

Private Sub macbtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles macbtn.Click
        'Buscar MacAdress
        Dim mc As System.Management.ManagementClass
        Dim mo As ManagementObject
        mc = New ManagementClass("Win32_NetworkAdapterConfiguration")
        Dim moc As ManagementObjectCollection = mc.GetInstances()
        For Each mo In moc
            If mo.Item("IPEnabled") = True Then
                ListBox1.Items.Add("MAC address " & mo.Item("MacAddress").ToString())
            End If
        Next
    End Sub

Agora dois problemas .. como e que posso ter o nome das placas wireless juntamente com o mac ???

E se eu carregar mais que uma vez no botão para buscar mac adress ele adiciona mais e mais sempre os mesmos e eu queria só que actualizasse tipo não adicionasse ..

Obrigado se puderem dar uma ajuda ...

Share this post


Link to post
Share on other sites
Gooden

Faz o seguinte.... quanto ao erro de adicionar sempre e sempre mais mac adress e simples.

No inicio do Codigo do botão

ListBox1.Items.Clear()

Quando ao outro tenta fazer:

ListBox1.Items.Add("Descrição " & mo.Item("Description").ToString() & "MAC address " & mo.Item("MacAddress").ToString())

Abraços

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.