Jump to content

Aplicaçao para procurar redes wireless


xlo620
 Share

Recommended Posts

boas, qeria criar uma aplicaçao em q numa parte tencionava escolhe um rede wireless disponivel. tipo, fazia um scan e mostrava numa list as redes encontradas.. alguem me sabe ajudar?

ps: sera boa ideia fazer em vb? as unicas linguagens q sei é vb.net e delphi.  :bored:

Link to comment
Share on other sites

eu encontrei isto q mostra o endereço MAC:

sera algo tipo isto?

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

Dim mc As System.Management.ManagementClass
Dim mo As System.Management.ManagementBaseObject

mc = New Management.ManagementClass("Win32_NetworkAdapterConfiguration")
Dim moc As Management.ManagementObjectCollection = mc.GetInstances

For Each mo In moc
    If mo.Item("IPenabled") = True Then
    ListBox1.Items.Add("Endereço MAC " & mo.Item("MacAddress"))
End If

Next
End Sub
Link to comment
Share on other sites

encontrei o q eu qeria mas em c# q nao pecebo nada 😉 alguem me sabe dar uma ajuda?

http://www.codeproject.com/KB/gadgets/WifiScanner.aspx

parece q este comando "netsh wlan show networks mode=bssid" faz tudo, agora era mostrar o resultado numa tabela ? este comando tem tudo q eu qeria, sinal, nome da rede, encriptaçao e mac :S como mostro isso numa tabela?

Link to comment
Share on other sites

consegui  😉 os inconvenientes sao q aparecem mal alguns caracteres.. tipo "ligaçoes" aparece "liga+AEo"e ainda n sei como resover e nao aparece separado na tabela, tipo nome numa coluna, sinal noutra, e assim..

        ' ----- Carrega a saida do comando netsh.exe para o controle ListBox.
        Dim netsh As Process
        Dim umaLinha As String
        Dim linhaPartes() As String

        ' ----- Remove qualquer item existente na listbox
        lstwifi.Items.Clear()

        ' ----- Constroi e executa o comando
        netsh = New Process()
        netsh.StartInfo.FileName = "netsh"
        netsh.StartInfo.Arguments = "wlan show networks mode=bssid"
        'verifica se vai exibir todos os detalhes
        If (CheckBox1.Checked = True) Then netsh.StartInfo.Arguments = "/All"

        'inicia o processo
        netsh.StartInfo.UseShellExecute = False
        netsh.StartInfo.RedirectStandardOutput = True
        netsh.StartInfo.CreateNoWindow = True
        netsh.Start()

        ' ----- Processa cada linha de entrada
        Do While Not netsh.StandardOutput.EndOfStream
            ' ----- Ignora linhas em branco.
            umaLinha = netsh.StandardOutput.ReadLine()

            If (Trim(umaLinha) = "") Then Continue Do

            ' ----- Cabeçalho não possui espaços em branco
            If (umaLinha = umaLinha.TrimStart) Or (InStr(umaLinha, ":") = 0) Then
                lstwifi.Items.Add(umaLinha.Trim)
            Else
                ' ----- Uma linha de detalhe. O formato é:
                ' Titulo ... : Dados
                linhaPartes = umaLinha.Trim.Split(":"c)
                linhaPartes(0) = Replace(linhaPartes(0), ". ", "")
                linhaPartes(1) = linhaPartes(1).Trim
                lstwifi.Items.Add(vbTab & linhaPartes(0) & ":" & linhaPartes(1))
            End If
        Loop

        netsh.WaitForExit()
        netsh.Dispose()
Link to comment
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
 Share

×
×
  • Create New...

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.