[CPAManager]

Hi there! Not sure if anyone is interested in this, but this code gets all the available wifi networks on your computer. This is using netsh but it is not showing the prompt.

Here is picture:


And here is the code:

You need 1 button, listbox and richtextbox, 1 label.

Code

Dim proc As New System.Diagnostics.Process()
        proc.StartInfo.FileName = "netsh"
        proc.StartInfo.Arguments = "wlan show networks mode=bssid"
        proc.StartInfo.RedirectStandardOutput = True
        proc.StartInfo.UseShellExecute = False
        proc.StartInfo.CreateNoWindow = True
        proc.Start()

        Dim output As String = proc.StandardOutput.ReadToEnd
        RichTextBox1.Text = output

        For Each line As String In RichTextBox1.Lines
            If line.Contains("BSSID") Then
            ElseIf line.Contains("SSID") Then
                Dim wifinetwork As String = line.Split(":")(1)
                ListBox1.Items.Add(wifinetwork)

            End If
        Next

        Label2.Text = ListBox1.Items.Count

Enjoy :)

[codehpro]

This is nice, thanks bro. I'm sure I'll use it one of theses days.

[He B TeMy]

Can it show the wifi-saved passwords?

[Madara-Uchiha]

Awesome snippet dude :)
I think I will make a Video Tutorial for this. (Of course giving credits :) )

[SIM-297877]

Hmm, I could see some good and evil uses for this... Thanks for posting.

[CPAManager]

Hmm, I could see some good and evil uses for this... Thanks for posting.

Your welcome man! :)

The message is . Please enter a message longer than 35 characters.

[Roflmaoh4x0r]

A great post. Keep it up.

-Roflmaoh4x0r

[SIM-1456245]

Ohhh, nice man. Thanks, I'll use this in my RAT.

[SIM-62706]

man you are amazing!!! :D
i was wanted to make the same but i didn't have the knowledge...
anyway thanks a lot for sharing! :)

[SIM-1456245]

Well it look's like this doesn't work for me :(

[Madara-Uchiha]

Hey, how could I add that the listview Entry oft the WLAN point I am connected to gets red colored?

[CPAManager]

Well it look's like this doesn't work for me :(

It wont show any wifi networks if your computer dosnt have wifi connection..

[SIM-1456245]

No, I get this error: The following command was not found: wlan show networks mode=bssid

BTW I'm on XP.

[He B TeMy]

No, I get this error: The following command was not found: wlan show networks mode=bssid

BTW I'm on XP.

Prolly that's the problem, i'm on win7 and it works.

[SIM-1456245]

Prolly that's the problem, i'm on win7 and it works.

Well, thank you. It look's like I can't test it.