Ping-Sweep-Win (PSW)

[kevev]

Hello All! This is my first windows app. AutoIT is simply Awsome! Super easy to learn. Thank You Developers.

I mostly do Linux work. I have created a ping-sweep Bash script first if anyone is interested.

This is my windows version of the app.

For anyone who is not allowed to use Angry IP Scanner at work. This tool will help(a little).

What the app does is ask for a network(ex. 192.168.100) and a ping timeout (default: 250).

It will ping the network looking for IPs that do not respond and fill a list with these IPs.

The program is not much, but I know IT ppl will enjoy the tool. I plan on more features.

Input is requested. Also if anyone wants the source let me know. It is GPL.

Download

Edited August 14, 2008 by kevev

[mmavipc]

Hello All! This is my first windows app. AutoIT is simply Awsome! Super easy to learn. Thank You Developers.

I mostly do Linux work. I have created a ping-sweep Bash script first if anyone is interested.

This is my windows version of the app.

For anyone who is not allowed to use Angry IP Scanner at work. This tool will help(a little).

What the app does is ask for a network(ex. 192.168.100) and a ping timeout (default: 250).

It will ping the network looking for IPs that do not respond and fill a list with these IPs.

The program is not much, but I know IT ppl will enjoy the tool. I plan on more features.

Input is requested. Also if anyone wants the source let me know. It is GPL.

Download

Are you going to post the source?

[kevev]

Are you going to post the source?

lol that was quick.

Here ya go-->

Source

expandcollapse popup

#Region;**** Directives created by AutoIt3Wrapper_GUI ****
#AutoIt3Wrapper_Icon=Broom_icon.ico
#AutoIt3Wrapper_Compression=4
#AutoIt3Wrapper_Res_Description=Ping-Sweep-Win can find unused IP addresses on a network
#AutoIt3Wrapper_Res_Fileversion=1.0.0.0
#AutoIt3Wrapper_Res_LegalCopyright=GPL 1, 2, 3, etc..
#AutoIt3Wrapper_Res_SaveSource=y
#AutoIt3Wrapper_Res_Language=1033
#AutoIt3Wrapper_Run_Tidy=y
#EndRegion;**** Directives created by AutoIt3Wrapper_GUI ****

; Ping-Sweep-Win v 1.0
; Aug 8 2008 - Kevev: http://www.kevev.net
; This script pings a Network;
; then shows a list of free IP addresses;

#include <GuiConstantsEx.au3>
#include <ButtonConstants.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <Array.au3>
#include <GUIListBox.au3>
#include <GuiToolTip.au3>

_Main()

Func _Main()
    Local $List, $msg, $var, $Data, $Count, $iFormat, $Timeout
    Local $ListArray[254]
    Local $iFormat = 1
    Local $Timeout = 250
    
; SOFTWARE VERSION
    GUICtrlCreateLabel("v 1.0", 180, 120, 30, 15)
    
    TraySetIcon(".\Broom_icon.ico")

; GUI
    GUICreate("Ping-Sweep-Win", 170, 340)
    GUISetIcon(".\Broom_icon.ico")

; LABEL
    GUICtrlCreateLabel("Network", 28, 40, 40, 15)

; LABEL
    GUICtrlCreateLabel("Timeout", 105, 40, 40, 15)

; LABEL
    GUICtrlCreateLabel(".ms", 140, 60, 20, 15)

; LABEL
    $font = "Comic Sans MS"
    GUISetFont(7, 400, 0, $font)
    GUICtrlCreateLabel("ex." & "192.168.100", 30, 75, 75, 15)

; INPUT FIELD
    $Network = GUICtrlCreateInput("", 27, 55, 70, 20)
    
; INPUT FIELD
    $Timeout_Field = GUICtrlCreateInput($Timeout, 107, 55, 35, 20)

; BUTTONS
    $Start = GUICtrlCreateButton("Start", 40, 95, 40, 40, $BS_ICON)
    GUICtrlSetImage(-1, ".\broom_icon.ico", 5)
    GUICtrlSetTip(-1, "Start")

    $Info = GUICtrlCreateButton("Info", 0, 0, 30, 30, $BS_ICON)
    GUICtrlSetImage(-1, ".\info.ico", 5)
    GUICtrlSetTip(-1, "Info")

    $Copy = GUICtrlCreateButton("Copy", 90, 95, 40, 40, $BS_ICON)
    GUICtrlSetImage(-1, ".\copy.ico", 5)
    GUICtrlSetTip(-1, "Copy")

    $Exit = GUICtrlCreateButton("Exit", 140, 0, 30, 30, $BS_ICON)
    GUICtrlSetImage(-1, ".\exit.ico", 5)
    GUICtrlSetTip(-1, "Exit")

    GUICtrlCreateGroup("", 15, 130, 140, 205)

; OUTPUT FIELD
    $font = "Comic Sans MS"
    GUISetFont(12, 400, 4, $font)
    $List = GUICtrlCreateList("", 20, 140, 130, 210)
    GUICtrlSetData(-1, "")

; LETS DO SOMETHING
    GUISetState()
    
    While 1
        $msg = GUIGetMsg()
        Select
            Case $msg = $GUI_EVENT_CLOSE Or $msg = $Exit
                ExitLoop
            Case $msg = $Start
                TrayTip("please wait", "scanning...", 5, 2)
                GUICtrlSetData($List, "")
                $Timeout = GUICtrlRead($Timeout_Field)
                $Count = 1
                While $Count <= 254
                    $Data = (GUICtrlRead($Network) & "." & $Count)
                    $Ping = Ping($Data, $Timeout)
                    If $Ping = 0 Then
                        $ListArray[($Count - 1)] = $Data
                    EndIf
                    If $Ping = "" Then
                        _GUICtrlListBox_InsertString($List, $Data, -1)
                        GUICtrlSetData($List, $Data, -1)
                    EndIf
                    $Count = $Count + 1
                WEnd
                TrayTip("Done", " ", 5, 1)
            Case $msg = $Copy
                _ArrayToClip($ListArray)
            Case $msg = $Info
                MsgBox(0, "Info", "Created by: Kevev" & @CRLF & @CRLF & "http://www.kevev.net" & @CRLF & @CRLF & "GPL 1, 2, 3, etc..")
        EndSelect
    WEnd
    Exit
EndFunc  ;==>_Main