PureBasic

Code : Tout sélectionner

  
  Procedure.s MessageRequesterIP(ARS_optionIP=0)
    ; by Ar-S / Sept 2012
    ; Récupération de ma config réseau via IpConfig
    ; ARS_optionIP est facultatif.
    ; 0 est l'équivalent des infos retournées par ipconfig
    ; 1 est l'équivalent des infos retournées par ipconfig /all
    
    Protected.s New,Ligne,Tout
    
    If ARS_optionIP < 0 Or ARS_optionIP > 1
      option$ = ""
    EndIf
    If ARS_optionIP = 1
      option$ = "/all"
    EndIf
    
    Tout.s = ""
    program = RunProgram("ipconfig",option$,"",#PB_Program_Open|#PB_Program_Read|#PB_Program_Hide)
    While ProgramRunning(program)
      If AvailableProgramOutput(program)
        
        Ligne.s =  ReadProgramString(program) +Chr(10)

        If Ligne <> "" And Ligne <> ":" And Ligne <> Chr(10)
          Ligne = Trim (Ligne, Chr(10)) ; retour à la ligne
          Ligne = Trim (Ligne, Chr(58)) ; les 2 points ":"
          
          NbrCar = Len(Ligne)
          DernierCar.s = Mid(Ligne,Len(Ligne)-1,1)
          If DernierCar = Chr(58)
            Ligne + "[Rien]"
          EndIf
          
          Ligne + Chr(10)
          Tout = Tout + Ligne
          
          ; Fitrage des derniers caractères parasites
          New.s = RemoveString(Tout,"ÿ")
          New.s = RemoveString(New,"…")
          New.s = ReplaceString(New,"‚","é")
          New.s = ReplaceString(New,"::",": [Rien]")
          New.s = ReplaceString(New,"“","ô")
        EndIf
      EndIf
    Wend 
    MessageRequester("Resultat IP Config", New,0)
    
  EndProcedure
  
  MessageRequesterIP() ; => ipconfig 
  MessageRequesterIP(1) ; => ipconfig /all

Code : Tout sélectionner

;Extracteur d'IPpar Ar-S // Sept 2012
;IPCONFIG et les expressions régulières
;NOV 2013
; Filtrage des IP du reseau

Procedure.s GetIP()
; Ar-S

  Shared BilanIP.s
  
    ; L'Expression régulière
    expr$ =   "(([0-9]{1,3}.){3}[0-9]{1,3})"
  ; Explication
  ; ([0-9]{1,3}.){3} signifie qu'il faut qu'il y ait 3 séries 1 à 3 chiffres de 0 à 9 suivi d'un point. 
  ; [0-9]{1,3} suivi d'une dernière série de 1 à 3 chiffres mais sans le point.
  
  exprT$ =   "([A-Za-z]{5,20} )"
     ; Explication
  ; ([A-Za-z]{1,3}.){3} signifie qu'il faut qu'il y ait 3 séries 1 à 3 chiffres de 0 à 9 suivi d'un point. 
  ; [0-9]{1,3} suivi d'une dernière série de 1 à 3 chiffres mais sans le point.
  
   CreateRegularExpression(0,expr$)
   CreateRegularExpression(1,exprT$)
   
   
  Dim result$(0) 
  Dim resultT$(0) 
  
  Contenu.s = ""
  BilanIP.s = ""
  
  program = RunProgram("ipconfig","/all","",#PB_Program_Open|#PB_Program_Read|#PB_Program_Hide)
  While ProgramRunning(program)
    If AvailableProgramOutput(program)
      
      Ligne.s = ReadProgramString(program)
      If FindString( Ligne, "192")
        
        Contenu + Ligne + Chr(10)

      EndIf

    EndIf
  Wend 
  
    NbrTrouve = ExtractRegularExpression(0, Contenu , result$()) ;Extrait les ip dans result()
    ReDim result$(NbrTrouve)
    
    NbrTrouveT = ExtractRegularExpression(1, contenu , resultT$()) ;Extrait les titres dans resultT()
    ReDim resultT$(NbrTrouve)    
        
        
  For i = 0 To NbrTrouve-1
    Titre.s = resultT$(i)
    If LCase( Left(Titre.s,7) ) = "adresse"
        titre = "IP reseau"
        titre + " " + Str(i+1)
     ElseIf   LCase( Left(Titre.s,10) ) = "passerelle"
        titre = "IP Passerelle (routeur/box) : "
    EndIf       
    Passerelle.s = result$(i)
        
    BilanIP + Titre + " : " + Passerelle + Chr(10)
    
  Next
  
  FreeRegularExpression(0)
  FreeRegularExpression(1)
  
  ProcedureReturn BilanIP
EndProcedure

Debug GetIP()