[Ex] Netstat

[ethneldryt]

Voila un petit bout de code pour utiliser netstat.

► Afficher le textecode

Code : Tout sélectionner

#include <File.au3>
#include <Process.au3>
#include <GuiListView.au3>

$dns = "4"

GUICreate("test",600,400)
$view = GUICtrlCreateListView("|proto|addr local|addr dist|etat|PID",5,5,400,390)
GUICtrlSendMsg(-1, 0x101E, 0, 0)

scan()
$actu = GUICtrlCreateButton("Actualiser",420,5)
$dns = GUICtrlCreateCheckbox("Afficher domaine",420,40)
GUISetState()


while 1
    $msg = GUIGetMsg()
    Select
    case $msg = -3
        FileDelete(@tempdir & "\tmp_co.txt")
        exit
    case $msg = $actu
        
        scan()
    EndSelect
WEnd

func scan()
    FileDelete(@tempdir & "\tmp_co.txt")
    if GUICtrlRead($dns) == "1" Then
        _RunDOS("netstat -o > %tmp%\tmp_co.txt")
    Else
        _RunDOS("netstat -o -n > %tmp%\tmp_co.txt")
    EndIf
    _GUICtrlListView_DeleteAllItems($view)
    $nb = _FileCountLines(@tempdir & "\tmp_co.txt")
    for $i = 5 to $nb
        $txt = FileOpen(@tempdir & "\tmp_co.txt",0)
        $rea = FileReadLine($txt,$i)
        $clo =  FileClose($txt)
        $tot = StringRegExpReplace($rea," +","|")
        $t1 = StringReplace($tot,"ESTABLISHED","Connexion établie")
        $t2 = StringReplace($t1,"SYN_SENT","Connexion en cour")
        $t3 = StringReplace($t2,"SYN_RECV","Connexion en cour")
        $t4 = StringReplace($t3,"TIME_WAIT","Connexion en fermeture")
        $t5 = StringReplace($t4,"TIME_WAIT1","Connexion en fermeture")
        $t6 = StringReplace($t5,"TIME_WAIT2","Connexion en fermeture")
        $t7 = StringReplace($t6,"CLOSED","Connexion fermée")
        $t8 = StringReplace($t7,"CLOSE_WAIT","Connexion en fermeture")
        $t9 = StringReplace($t8,"LAST_ACK","Connexion en fermeture")
        $t10 = StringReplace($t9,"LISTEN","Connexion en attente")
        $t11 = StringReplace($t10,"CLOSING","Connexion en fermeture")
        $t12 = StringReplace($t11,"UNKNOWN","Iconnue")
        $t13 = StringReplace($t12,"FIN_WAIT","Connexion en fermeture")
        $t14 = StringReplace($t13,"FIN_WAIT1","Connexion en fermeture")
        $t15 = StringReplace($t14,"FIN_WAIT2","Connexion en fermeture")
        GUICtrlCreateListViewItem($t15,$view)
    Next
EndFunc

 

par contre quelqu'un peux m'aider a recuperer le nom du processus avec le PID?

[orax]

par contre quelqu'un peux m'aider a recuperer le nom du processus avec le PID?

Code : Tout sélectionner

#include <Process.au3>
_ProcessGetName ( $iPID )
 

[ethneldryt]

merci, mais je ne vois pas comment faire pour remplacer le nom du pid par celui du processus:p

[Tlem]

Heuuu, vous le faites exprès ?
Vous demandez :

par contre quelqu'un peux m'aider a recuperer le nom du processus avec le PID?

On vous donne :

Code : Tout sélectionner

#include <Process.au3>
_ProcessGetName ( $iPID )

qui récupère bien le nom du processus par rapport à son PID (ce que vous demandez).

Et vous répondez :

merci, mais je ne vois pas comment faire pour remplacer le nom du pid par celui du processus:p

[ethneldryt]

Oui j'ai compris, mais je ne sais pas comment integrer ca dans le script

[Tlem]

Tout dépend de ce que vous voulez faire ...

[orax]

Si j'ai bien compris lorsque netstat retourne :

Code : Tout sélectionner

TCP    XXX:1151          1.100.100.235:http      ESTABLISHED     3524

... vous voulez remplacer le "3524" (le PID du processus) par son nom. (J'ai compris ça tout seul !!... )
C'est faisable, sinon il y a aussi netstat -b, et avec ça on pourrait tout récupérer d'un coup (sans être obligé d'utiliser _ProcessGetName).


Edité : avec un netstat -b -o voilà une expression régulière qui devrait pouvoir correspondre :

Code : Tout sélectionner

(?ix)
\s+(\w+)            # protocole
\s+(.+):(\w+)       # hôte_src:port
\s+(.+):(\w+)       # hôte_dst:port
\s+(\w+)            # état
\s+(\d+)            # PID
(?:\r\n\s+\[.+?\])? # nom_processus

mais telle qu'elle est là, c'est pour récupérer les éléments, donc pour l'utiliser avec le stringregexreplace(), il faudra changer l'emplacement des parenthèses.