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.
#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
#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