IP Scan

Partagez vos scripts, et vos applications AutoIt.
Règles du forum
.
Répondre
THORSION
Niveau 1
Niveau 1
Messages : 2
Enregistré le : jeu. 03 juin 2021 14:58
Localisation : Haute-Savoie
Status : Hors ligne

IP Scan

#1

Message par THORSION »

Bonjour à tous,

Voilà trois mois que j'ai découvert AutoIt et je regrette de ne pas l'avoir fait avant.
Mon premier message pour partager un script de scan IP réseau.
Toute remarque, observation sera la bienvenue.

Merci.

A bientôt pour de nouveaux scripts. 8)
#include <Array.au3>
#include <AutoItConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <Inet.au3>
#include <StaticConstants.au3>
#include <Multiping.au3>

;================================================
;==  Déclaration variables
;================================================
Local $aCtl[260]
$PublicIP = _GetIP()

Global $aScanLan = _nPing()
$aIPList = _ArrayExtract($aScanLan, 1, -1, 0, 0)

Local $hauteur_cellule = 30
Local $largeur_cellule = 60

Local $nb_ligne = 26
Local $nb_colonne = 10

Local $gauche = 0
Local $haut = 0
Local $index_tab = 1
Local $aIPAdr = StringSplit(@IPAddress1, ".")
Local $RacineIP = string($aIPAdr[1] & "." & $aIPAdr[2] & "." & $aIPAdr[3])
;================================================

$gui010 = GUICreate('Recensement adresses IP actives à l''instant t', $largeur_cellule * $nb_colonne + 95 , $hauteur_cellule * $nb_ligne + 105)
$Exit_btn = GUICtrlCreateButton("&Quitter", 450, 840, 140, 30)
GUICtrlCreateLabel ( $aScanLan[0][0] & " Adresses IP actives", 50, 840 , 180, 30)
GUICtrlSetFont(-1, 11, 30, 2, "Arial")
GUICtrlCreateLabel ( $RacineIP & ".XXX", 10, 10 , 120 , 30, BitOR($SS_CENTER, $SS_CENTERIMAGE), BitOR($SS_BLACKFRAME, $SS_CENTERIMAGE) )
GUICtrlSetFont(-1, 11, 30, 2, "Arial")
GUICtrlSetBkColor(-1, 0x6eff0e)
GUICtrlCreateLabel ( "Adresse Publique : " & $PublicIP, 400, 15 , 280 , 15, BitOR($SS_CENTER, $SS_CENTERIMAGE) )
GUICtrlSetFont(-1, 11, 30, 0, "Arial Black")
GUICtrlSetBkColor(-1, 0xFFFF00)


For $1 = 1 To $nb_ligne
    For $2 = 1 To $nb_colonne
                  For $m = 0 to UBound( $aIPList, $UBOUND_ROWS)-1
                  $IPLastDigit = StringRight($aIPList[$m],StringLen($aIPList[$m])-StringInStr($aIPList[$m], ".",0,-1))
                  $aCtl[$index_tab] = GUICtrlCreateInput('', $gauche + 50, $haut + 50, $largeur_cellule, $hauteur_cellule,BitOR($ES_CENTER,$ES_READONLY))
                  If $IPLastDigit = $index_tab Then
                        GUICtrlSetData($aCtl[$index_tab], "XXX = " & $IPLastDigit)
                        GUICtrlSetBkColor($aCtl[$index_tab], 0x6eff0e) ; couleur verte
                        ExitLoop
                  Else
                  GUICtrlSetBkColor($aCtl[$index_tab], 0xE06666) ; couleur rouge clair
                  EndIf
                  Next
   $gauche += $largeur_cellule
   $index_tab += 1
   if $index_tab =254 Then
   ExitLoop
   EndIf
   Next
    $gauche = 0
    $haut += $hauteur_cellule
Next

GUISetState(@SW_SHOW)

Local $msg

While 1
    $msg = GUIGetMsg()
Select
   Case $msg = $Exit_btn Or $msg = $GUI_EVENT_CLOSE
             $FormClose = MsgBox(36, "", "Voulez-vous vraiment quitter le programme?")
            If $FormClose = 6 Then
                GUIDelete()
                Exit
            EndIf
EndSelect
WEnd
Avatar du membre
walkson
Modérateur
Modérateur
Messages : 1020
Enregistré le : ven. 12 août 2011 19:49
Localisation : Hurepoix
Status : Hors ligne

Re: IP Scan

#2

Message par walkson »

Bonjour,
#include <Multiping.au3>
Il serait bien de joindre cet UDF ou de mettre un lien pour le trouver
Cordialement,
Walkson
"Horas non numero nisi serenas " Le canon de midi
(Je ne compte que les heures heureuses)
THORSION
Niveau 1
Niveau 1
Messages : 2
Enregistré le : jeu. 03 juin 2021 14:58
Localisation : Haute-Savoie
Status : Hors ligne

Re: IP Scan

#3

Message par THORSION »

Bonjour Walkson,

Merci pour votre retour.
Je n'y avait pas pensé, désolé,...voici l'UDF manquante ci-dessous.
Bon week-end
Fichiers joints
MultiPing.au3
(41.38 Kio) Téléchargé 425 fois
Répondre