[Ex] Ping une plage d'adresse ip

[supernana66]

Attention je débute avec ce type de language, alors ce script donc est pas parfait mais je suis ouverte a tous commentaires.

Cet outil me permettra de scanner mon réseau pour identifier les stations ou je peux opérer.
A prévoir un bouton arrêt pour stopper un scan en cours ??, l'interface n'est pas top mais juste pour l'exemple.

► Afficher le texte

Code : Tout sélectionner

; By Supernana66
#include <Array.au3>
#include <File.au3>
#include <GUIConstantsEx.au3>
#include <WindowsConstants.au3>
#include <ButtonConstants.au3>
#include <GuiIPAddress.au3>
#include <GUIConstants.au3>
#Include <date.au3>
#Include <GuiListView.au3>
#include <GuiImageList.au3>
#include <EditConstants.au3>
dim $add_ip_deb[4], $add_ip_fin[4], $ip_total[255][4]
local $fin_plage, $deb_plage, $Liste, $rso, $stop
global $octet3_ip_deb, $octet4_ip_deb, $octet3_ip_fin, $octet4_ip_fin
    
    $win = GUICreate("Paramètre IP",  550, 400)
        GUICtrlCreateGroup("Plages d'adresse ip",30, 40, 250, 150,$WS_DLGFRAME,$DS_SETFOREGROUND )
        GUICtrlCreateLabel("debut ",50 ,80, 50, 25)                        
        $deb_plage= _GUICtrlIpAddress_Create($win,100, 80,  150, 20)
        GUICtrlCreateLabel("fin ", 50, 120, 50, 25)
        $fin_plage = _GUICtrlIpAddress_Create($win, 100, 120, 150, 20)
        $btn = GUICtrlCreateButton("ok", 140, 160, 25, 25)
        $Liste = GUICtrlCreateListview("         Reponse        ", 300, 30, 220, 340)
        $stop = GUICtrlCreateButton("Stop", 140, 320, 40, 25)
        _GUICtrlListView_SetColumnWidth($Liste, 0, 210) 
        GUICtrlCreateGroup("", -99, -99, 1, 1)  
        $rso =  GUICtrlCreateLabel("réseau ?? ",50 ,250, 180, 25)
        GUICtrlSetFont(-1, 12, 500, "italic" , "arial" )
    GUISetState(@SW_SHOW)

While 1
$msg = GUIGetMsg()   
    If  $msg = $GUI_EVENT_CLOSE Then
      ExitLoop    
    EndIf       
            $add_ip_deb = StringSplit(_GUICtrlIpAddress_Get ($deb_plage),".")
            $add_ip_fin = StringSplit(_GUICtrlIpAddress_Get ($fin_plage),".")
            $octet3_ip_deb = $add_ip_deb[3]
            $octet4_ip_deb = $add_ip_deb[4]
            $octet3_ip_fin = $add_ip_fin[3]
            $octet4_ip_fin = $add_ip_fin[4]     
        
     Select                                                  
         Case $msg = $btn
                ping_rso()                          
      EndSelect
                                
Wend

func ping_rso()

      if  $add_ip_fin[3] - $add_ip_deb[3] =  0 Then
            GUICtrlSetData($rso,"reseau de classe C")
                for $i = $add_ip_deb[4] to $add_ip_fin[4]    
                     $ip = $add_ip_deb[1]&"."&$add_ip_deb[2]&"."&$add_ip_deb[3]&"."&$i                   
                        If Ping ($ip) Then
                              _GUICtrlListView_AddItem($Liste, $ip &" " & "--> ping ok")
                         Else    
                                        
                              _GUICtrlListView_AddItem($Liste, $ip &" " & "--> no ping ")
                                        
                        EndIf
                            
                 next    
                        MsgBox(0, "FIN", "FIN ")    
         else    
          gUICtrlSetData($rso,"reseau de classe B")
              for $i = $add_ip_deb[3] to $add_ip_fin[3]
                    if $i <>  $add_ip_fin[3] Then
                         for $k = $add_ip_deb[4] to 254
                              $ip = $add_ip_deb[1]&"."&$add_ip_deb[2]&"."&$i&"."&$k
                                   If Ping ($ip) Then
                                          _GUICtrlListView_AddItem($Liste, $ip &" " & "--> ping ok")
                                   Else
                                      
                                      _GUICtrlListView_AddItem($Liste, $ip &" " & "--> Pas joignable !! ")

                                    EndIf   
                                next
                            
                  Else 
                          for $i = $add_ip_deb[4] to $add_ip_fin[4]    
                                 $ip = $add_ip_deb[1]&"."&$add_ip_deb[2]&"."&$add_ip_deb[3]&"."&$i                   
                                      If Ping ($ip) Then
                                          _GUICtrlListView_AddItem($Liste, $ip &" " & "--> ping ok")
                                       Else    
                                                
                                          _GUICtrlListView_AddItem($Liste, $ip &" " & "--> Pas joignable !! ")
                                                    
                                      EndIf
                            
                            next
                  EndIf
                                                    
            next
                
        MsgBox(0, "FIN", "FIN ")        

 EndIf   
EndFunc
 

N'ayant pas trouvé la fonction adaptée à l'utilitaire que j'élabore, ( utilitaire fait pour automatiser une grande partie des taches d'un administrateur) je me suis lancé, et voilà le résultat.

Amusez vous bien V.

[Tlem]

Bonjour.

Revoyez dans votre code :
- La déclaration des variables (telle qu'elles sont, déclarez les toutes en Global)
- Revoyez votre boucle principale afin qu'elle corresponde à une boucle classique telle que celle de l'exemple du fichier d'aide de la commande GUIGetMsg(ou passez en événementiel).
- Toujours dans cette boucle, les lignes 38 à 43 n'ont rien à faire à cette place, car elles sont exécutées à chaque tour de boucle While et donc toutes les 2 ou 3 ms dans votre cas.

Le reste, je n'ai pas encore décortiqué.