kevev Posted August 14, 2008 Share Posted August 14, 2008 (edited) 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 Link to comment Share on other sites More sharing options...
mmavipc Posted August 14, 2008 Share Posted August 14, 2008 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.DownloadAre 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 Link to comment Share on other sites More sharing options...
kevev Posted August 14, 2008 Author Share Posted August 14, 2008 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 Link to comment Share on other sites More sharing options...
Recommended Posts
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 accountSign in
Already have an account? Sign in here.
Sign In Now