Page 1 sur 1

IP Scan

Posté : jeu. 03 juin 2021 15:50
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

Re: IP Scan

Posté : ven. 04 juin 2021 16:05
par walkson
Bonjour,
#include <Multiping.au3>
Il serait bien de joindre cet UDF ou de mettre un lien pour le trouver

Re: IP Scan

Posté : sam. 05 juin 2021 14:38
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