Sign in to follow this  
Followers 0
kevev

Ping-Sweep-Win (PSW)

3 posts in this topic

#1 ·  Posted (edited)

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

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 by kevev

Share this post


Link to post
Share on other sites



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

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?

[size="10"]Pure Au3 crypt funcs(I'm currently also working on making a dll from this)[/size][Y] Be more active in the community[Y] Get 200 posts[N] Get 300 posts[N] Make a Topic in the example scripts forum with at least 50 replies.People who currently hate me:ValikSmOke_N

Share this post


Link to post
Share on other sites

Are you going to post the source?

lol that was quick.

Here ya go-->

Source

#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

Share this post


Link to post
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
Sign in to follow this  
Followers 0