Netstumber U D F

[ConsultingJoe]

If you don't have Netsumbler and have a wireless network card download it here: http://www.netstumbler.com/downloads/

Please make sure you did not rearrange the columns as this will mix up your output, if you did please uninstall and reinstall.

if you have any questions let me know, THANKS

Netstumbler.au3

expandcollapse popup

;$return = the type of data to return (0 index)
;MAC        = 0
;SSID       = 1
;NAME       = 2
;Chan       = 3
;Speed      = 4
;Vendor     = 5
;Type       = 6
;Encryption = 7
;SNR        = 8
;Signal+    = 9
;Noice      = 10
;SNR+       = 11
;IP Address = 12
;Subnet     = 13
;Lat        = 14
;Long       = 15
;First Seen = 16
;Last Seen  = 17
;Signal     = 18
;Noice      = 19
;Flags      = 21
;Beacon     = 22
;Distance   = 23

;$row = Which AP to look at (0 index)

;$writeini = write an ini with all data. (writeini=1, otherwise default=1)

;$time = time in milliseconds to wait before gathering data. (some APs have longer times between beacons)

;$close = weather to close netstumbler when done. (close=1, otherwise default=0)

;NOTE: if $return=0 And $row = 0 the return will be the UBound of the rows

;Example
ConsoleWrite( Get_AP_data(1, 0, 0, 3000, 1))
Func Get_AP_data($return, $row, $writeini = 0, $time = 2000, $close = 0)
    Opt( "WinTitleMatchMode", 2)
    $title = "Network Stumbler"
    ;run
    If ProcessExists("NetStumbler.exe") = 0 Then Run(@ProgramFilesDir & "\Network Stumbler\NetStumbler.exe", "", @SW_HIDE)
    While WinExists($title) = 0
        Sleep(10)
    WEnd
    Sleep($time)
    ;Return
    Select
        Case $return = 0 And $row = 0
            $return = ControlListView($title, "", "SysListView321", "GetItemCount")
        Case $return > 0
            $return = ControlListView($title, "", "SysListView321", "GetText", $return, $row)
    EndSelect
    ;/Return
    $item = ControlListView($title, "", "SysListView321", "GetItemCount")
    $subitem = ControlListView($title, "", "SysListView321", "GetSubItemCount", 0, 5)
    ;writeini
    If $writeini = 1 Then
        For $a = 0 To $item
            IniWrite( "Netstumbler_out.ini", ControlListView($title, "", "SysListView321", "GetText", $a, 0), "SSID", ControlListView($title, "", "SysListView321", "GetText", $a, 1))
            IniWrite( "Netstumbler_out.ini", ControlListView($title, "", "SysListView321", "GetText", $a, 0), "Name", ControlListView($title, "", "SysListView321", "GetText", $a, 2))
            IniWrite( "Netstumbler_out.ini", ControlListView($title, "", "SysListView321", "GetText", $a, 0), "Channel", ControlListView($title, "", "SysListView321", "GetText", $a, 3))
            IniWrite( "Netstumbler_out.ini", ControlListView($title, "", "SysListView321", "GetText", $a, 0), "Speed", ControlListView($title, "", "SysListView321", "GetText", $a, 4))
            IniWrite( "Netstumbler_out.ini", ControlListView($title, "", "SysListView321", "GetText", $a, 0), "Vendor", ControlListView($title, "", "SysListView321", "GetText", $a, 5))
            IniWrite( "Netstumbler_out.ini", ControlListView($title, "", "SysListView321", "GetText", $a, 0), "type", ControlListView($title, "", "SysListView321", "GetText", $a, 6))
            IniWrite( "Netstumbler_out.ini", ControlListView($title, "", "SysListView321", "GetText", $a, 0), "encryption", ControlListView($title, "", "SysListView321", "GetText", $a, 7))
            IniWrite( "Netstumbler_out.ini", ControlListView($title, "", "SysListView321", "GetText", $a, 0), "SNR", ControlListView($title, "", "SysListView321", "GetText", $a, 8))
            IniWrite( "Netstumbler_out.ini", ControlListView($title, "", "SysListView321", "GetText", $a, 0), "signal+", ControlListView($title, "", "SysListView321", "GetText", $a, 9))
            IniWrite( "Netstumbler_out.ini", ControlListView($title, "", "SysListView321", "GetText", $a, 0), "IP", ControlListView($title, "", "SysListView321", "GetText", $a, 10))
            IniWrite( "Netstumbler_out.ini", ControlListView($title, "", "SysListView321", "GetText", $a, 0), "Subnet", ControlListView($title, "", "SysListView321", "GetText", $a, 11))
            IniWrite( "Netstumbler_out.ini", ControlListView($title, "", "SysListView321", "GetText", $a, 0), "Lat", ControlListView($title, "", "SysListView321", "GetText", $a, 12))
            IniWrite( "Netstumbler_out.ini", ControlListView($title, "", "SysListView321", "GetText", $a, 0), "long", ControlListView($title, "", "SysListView321", "GetText", $a, 13))
            IniWrite( "Netstumbler_out.ini", ControlListView($title, "", "SysListView321", "GetText", $a, 0), "first seen", ControlListView($title, "", "SysListView321", "GetText", $a, 14))
            IniWrite( "Netstumbler_out.ini", ControlListView($title, "", "SysListView321", "GetText", $a, 0), "last seen", ControlListView($title, "", "SysListView321", "GetText", $a, 15))
            IniWrite( "Netstumbler_out.ini", ControlListView($title, "", "SysListView321", "GetText", $a, 0), "signal", ControlListView($title, "", "SysListView321", "GetText", $a, 16))
            IniWrite( "Netstumbler_out.ini", ControlListView($title, "", "SysListView321", "GetText", $a, 0), "noice", ControlListView($title, "", "SysListView321", "GetText", $a, 17))
            IniWrite( "Netstumbler_out.ini", ControlListView($title, "", "SysListView321", "GetText", $a, 0), "flags", ControlListView($title, "", "SysListView321", "GetText", $a, 18))
            IniWrite( "Netstumbler_out.ini", ControlListView($title, "", "SysListView321", "GetText", $a, 0), "beacon", ControlListView($title, "", "SysListView321", "GetText", $a, 19))
            IniWrite( "Netstumbler_out.ini", ControlListView($title, "", "SysListView321", "GetText", $a, 0), "distance", ControlListView($title, "", "SysListView321", "GetText", $a, 20))
        Next
    EndIf
    ;exitwhendone
    If $close = 1 Then ProcessClose( "Netstumbler.exe")
    Return $return
EndFunc   ;==>Get_AP_data

[ConsultingJoe]

Has anyone tryed this yet. I wanted to know if there was any bug or if it needed some new stuff. Please let me know

[YoseMite]

Looks very useful!

If I back from school I test it!

Thanks

YoseMite

[ConsultingJoe]

Thanks a lot. I will be adding this to my robot so it can tell me what APs are avaliable opon request, (SAPI, TTS)

Edited May 23, 2006 by zerocool60544

[YoseMite]

Alright, I'm back from school and I test it...

It works great, keep it up the good work!

[ConsultingJoe]

Alright, I'm back from school and I test it...

It works great, keep it up the good work!

Awsome, that is good to here.

[jftuga]

What is the purpose of this script? What does it do?

-John

[ConsultingJoe]

What is the purpose of this script? What does it do?

-John

it will tell you

• the number of APs
• All the stats about the APs such as:
• MAC
• SSID
• NAME
• Chan
• Speed
• Vendor
• Type
• Encryption
• SNR
• Signal+
• Noice
• SNR+
• IP Address
• Subnet
• Lat
• Long
• First Seen
• Last Seen
• Signal
• Noice
• Flags
• Beacon
• Distance

Edited May 24, 2006 by zerocool60544