WinPcap AutoIt _FindDevice()

[Splash]

expandcollapse popup

;Author: Splash
;Web: http://meadiciona.com.br/cemim

;Required:
;#include <Process.au3>
;#include "Winpcap.au3"

;Description
;Try to find a device with internet connection avaliable.

;Parameters
;None.

;Return Value
;Sucess: Device number.
;Error: False.

Func _FindDevice()
    $device_number = 0
    $connection = False
    $pcap = _PcapSetup()
    $devices = _PcapGetDeviceList()

    While $connection == False and $device_number < Ubound($devices)
        $capture = _PcapStartCapture($devices[$device_number][0], "icmp and dst host google.com", 1, 65536, 524288, 0)
        _RunDos("ping google.com")
        $packet = _PcapGetPacket($capture)

        If IsArray($packet) Then
            If ($packet[2] > 0) Then
                $connection = True
                _PcapStopCapture($capture)
                _PcapFree()
                Return $device_number
            EndIf
        EndIF

        _PcapStopCapture($capture)
        $device_number = $device_number + 1
    WEnd

    Return False
EndFunc

You can get WinPcap Autoit UDF here:

http://opensource.grisambre.net/pcapau3/

Edited May 9, 2010 by Splash

[logmein]

Thanks for translate it to AutoIt! WinPCap is a very helpful tool.

Edited May 9, 2010 by logmein

[Yorn]

I don't think he made the UDF, he just came up with a neat way of finding an active network device using the WinPcap UDF. This could come in handy if you wanted your program to wait till an Internet connection was available, for example.

[SeF]

Nossa! Estava realmente precisando disto Splash!

Depois testarei. Por enquanto, muito obrigado!

-----

Thanks!

[phr3n1c]

I think this is my first post but it's worth it:

Thanks!