7 replies to this topic

[w0uter]

got boored.
again.
wanted to figure out std func's.
made this.

Plain Text        expandcollapse  popup

Func _NetStat()
    
    Local $v_NETSTAT
    
    $v_NETSTAT = Run(@SystemDir & '\netstat.exe', @SystemDir, @SW_HIDE, 2)
    $v_NETSTAT = StdoutRead ($v_NETSTAT)
    
    $v_NETSTAT = StringTrimLeft($v_NETSTAT, StringInStr($v_NETSTAT, @LF, 0, 4))
    $v_NETSTAT = StringLeft($v_NETSTAT, StringInStr($v_NETSTAT, @LF, 0, -1) - 1)
    
    $v_NETSTAT = StringSplit($v_NETSTAT, @LF)
    
    Local $as_Temp, $as_RET[$v_NETSTAT[0]][4]
    
    For $i = 1 To $v_NETSTAT[0]
        $v_NETSTAT[$i] = StringReplace($v_NETSTAT[$i], @CR, '')
        $v_NETSTAT[$i] = StringStripWS($v_NETSTAT[$i], 1 + 2 + 4)
        $as_Temp = StringSplit($v_NETSTAT[$i], ' ')
        $as_RET[$i - 1][0] = $as_Temp[1]
        $as_RET[$i - 1][1] = $as_Temp[2]
        $as_RET[$i - 1][2] = $as_Temp[3]
        $as_RET[$i - 1][3] = $as_Temp[4]
    Next
    
    Return $as_RET
    
EndFunc  ;==>_NetStat

dim $v_lol = _NetStat()

For $i = 0 To UBound($v_lol) - 1
    For $x = 0 To 3
        ConsoleWrite('-' & $v_lol[$i][$x] & @LF)
    Next
    ConsoleWrite(@LF)
Next

Attached Files

•  _NetStat.au3   988bytes   1258 downloads

[UltraFine]

got boored.
again.
wanted to figure out std func's.
made this.

Plain Text        expandcollapse  popup

Func _NetStat()
    
    Local $v_NETSTAT
    
    $v_NETSTAT = Run(@SystemDir & '\netstat.exe', @SystemDir, @SW_HIDE, 2)
    $v_NETSTAT = StdoutRead ($v_NETSTAT)
    
    $v_NETSTAT = StringTrimLeft($v_NETSTAT, StringInStr($v_NETSTAT, @LF, 0, 4))
    $v_NETSTAT = StringLeft($v_NETSTAT, StringInStr($v_NETSTAT, @LF, 0, -1) - 1)
    
    $v_NETSTAT = StringSplit($v_NETSTAT, @LF)
    
    Local $as_Temp, $as_RET[$v_NETSTAT[0]][4]
    
    For $i = 1 To $v_NETSTAT[0]
        $v_NETSTAT[$i] = StringReplace($v_NETSTAT[$i], @CR, '')
        $v_NETSTAT[$i] = StringStripWS($v_NETSTAT[$i], 1 + 2 + 4)
        $as_Temp = StringSplit($v_NETSTAT[$i], ' ')
        $as_RET[$i - 1][0] = $as_Temp[1]
        $as_RET[$i - 1][1] = $as_Temp[2]
        $as_RET[$i - 1][2] = $as_Temp[3]
        $as_RET[$i - 1][3] = $as_Temp[4]
    Next
    
    Return $as_RET
    
EndFunc ;==>_NetStat

dim $v_lol = _NetStat()

For $i = 0 To UBound($v_lol) - 1
    For $x = 0 To 3
        ConsoleWrite('-' & $v_lol[$i][$x] & @LF)
    Next
    ConsoleWrite(@LF)
Next

sorry for the bump, but it really helped me. thanks for sharing it.

[UltraFine]

F:\Documents and Settings\Admin\Desktop\_NetStats.au3 (20) : ==> Array variable has incorrect number of subscripts or subscript dimension range exceeded.:
$as_RET[$i - 1][1] = $as_Temp[2]
$as_RET[$i - 1][1] = ^ ERROR
>Exit code: 1 Time: 1.009

how to resolve this error?

[Robjong]

AutoIt        expandcollapse  popup

Func _NetStat()
    Local $v_NETSTAT
    $v_NETSTAT = Run(@SystemDir & '\netstat.exe', @SystemDir, @SW_HIDE, 2)
    $v_NETSTAT = StdoutRead($v_NETSTAT)

    $v_NETSTAT = StringTrimLeft($v_NETSTAT, StringInStr($v_NETSTAT, @LF, 0, 4))
    $v_NETSTAT = StringLeft($v_NETSTAT, StringInStr($v_NETSTAT, @LF, 0, -1) - 1)

    $v_NETSTAT = StringSplit($v_NETSTAT, @LF)

    Local $as_Temp, $as_RET[$v_NETSTAT[0]][4]
    For $i = 1 To $v_NETSTAT[0]
        $v_NETSTAT[$i] = StringReplace($v_NETSTAT[$i], @CR, '')
        $v_NETSTAT[$i] = StringStripWS($v_NETSTAT[$i], 1 + 2 + 4)
        $as_Temp = StringSplit($v_NETSTAT[$i], ' ')
        If UBound($as_Temp) > 1 Then $as_RET[$i - 1][0] = $as_Temp[1]
        If UBound($as_Temp) > 2 Then $as_RET[$i - 1][1] = $as_Temp[2]
        If UBound($as_Temp) > 3 Then $as_RET[$i - 1][2] = $as_Temp[3]
        If UBound($as_Temp) > 4 Then $as_RET[$i - 1][3] = $as_Temp[4]
    Next

    Return $as_RET
EndFunc   ;==>_NetStat

Edited by Robjong, 10 November 2008 - 03:03 PM.

[SoulA]

I like this one too...

AutoIt        expandcollapse  popup

#include <Array.au3>
#include <Process.au3>

dim $v_lol = _NetStat()

_ArrayDisplay($v_lol)

Func _NetStat()
    
    Local $v_NETSTAT = ""
    
    $pid_NETSTAT = Run(@SystemDir & '\netstat.exe -a -o', @SystemDir, @SW_HIDE, 2)
    
    While ProcessExists($pid_NETSTAT)
        $v_NETSTAT &= StdoutRead($pid_NETSTAT)
    WEnd
    
    $v_NETSTAT = StringTrimLeft($v_NETSTAT, StringInStr($v_NETSTAT, @LF, 0, 4))
    $v_NETSTAT = StringLeft($v_NETSTAT, StringInStr($v_NETSTAT, @LF, 0, -1) - 1)
    
    $v_NETSTAT = StringSplit($v_NETSTAT, @LF)
    
    Local $as_Temp, $as_RET[$v_NETSTAT[0] + 1][6]
    
    $as_RET[0][0] = $v_NETSTAT[0]
    
    For $i = 1 To $v_NETSTAT[0]
        $v_NETSTAT[$i] = StringReplace($v_NETSTAT[$i], @CR, '')
        $v_NETSTAT[$i] = StringStripWS($v_NETSTAT[$i], 1 + 2 + 4)
        $as_Temp = StringSplit($v_NETSTAT[$i], ' ')
        
        If $as_Temp[1] = "TCP" Then
            $as_RET[$i][0] = $as_Temp[1]
            $as_RET[$i][1] = $as_Temp[2]
            $as_RET[$i][2] = $as_Temp[3]
            $as_RET[$i][3] = $as_Temp[4]
            $as_RET[$i][4] = $as_Temp[5]
            $as_RET[$i][5] = _ProcessGetName($as_Temp[5])
        EndIf
        
        If $as_Temp[1] = "UDP" Then
            $as_RET[$i][0] = $as_Temp[1]
            $as_RET[$i][1] = $as_Temp[2]
            $as_RET[$i][2] = $as_Temp[3]
            $as_RET[$i][3] = "*:*"
            $as_RET[$i][4] = $as_Temp[4]
            $as_RET[$i][5] = _ProcessGetName($as_Temp[4])
        EndIf
        
    Next
    
    Return $as_RET
    
EndFunc  ;==>_NetStat

Edited by SoulA, 10 November 2008 - 04:50 PM.

[JRowe]

$as_RET[$i - 1][3] = "*"

Aw, I think UDP has a crush on somebody.

Code tags prevent that from happening, for future reference

Plain Text        expandcollapse  popup

#include <Array.au3>
#include <Process.au3>

dim $v_lol = _NetStat()

_ArrayDisplay($v_lol)

Func _NetStat()
   
    Local $v_NETSTAT = ""
   
    $pid_NETSTAT = Run(@SystemDir & '\netstat.exe -a -o', @SystemDir, @SW_HIDE, 2)
   
    While ProcessExists($pid_NETSTAT)
        $v_NETSTAT &= StdoutRead($pid_NETSTAT)
    WEnd
   
    $v_NETSTAT = StringTrimLeft($v_NETSTAT, StringInStr($v_NETSTAT, @LF, 0, 4))
    $v_NETSTAT = StringLeft($v_NETSTAT, StringInStr($v_NETSTAT, @LF, 0, -1) - 1)
   
    $v_NETSTAT = StringSplit($v_NETSTAT, @LF)
   
    Local $as_Temp, $as_RET[$v_NETSTAT[0]][6]
   
    For $i = 1 To $v_NETSTAT[0]
        $v_NETSTAT[$i] = StringReplace($v_NETSTAT[$i], @CR, '')
        $v_NETSTAT[$i] = StringStripWS($v_NETSTAT[$i], 1 + 2 + 4)
        $as_Temp = StringSplit($v_NETSTAT[$i], ' ')
       
        If $as_Temp[1] = "TCP" Then
            $as_RET[$i - 1][0] = $as_Temp[1]
            $as_RET[$i - 1][1] = $as_Temp[2]
            $as_RET[$i - 1][2] = $as_Temp[3]
            $as_RET[$i - 1][3] = $as_Temp[4]
            $as_RET[$i - 1][4] = $as_Temp[5]
            $as_RET[$i - 1][5] = _ProcessGetName($as_Temp[5])
        EndIf
       
        If $as_Temp[1] = "UDP" Then
            $as_RET[$i - 1][0] = $as_Temp[1]
            $as_RET[$i - 1][1] = $as_Temp[2]
            $as_RET[$i - 1][2] = $as_Temp[3]
            $as_RET[$i - 1][3] = "*:*"
            $as_RET[$i - 1][4] = $as_Temp[4]
            $as_RET[$i - 1][5] = _ProcessGetName($as_Temp[4])
        EndIf
       
    Next
   
    Return $as_RET
   
EndFunc ;==>_NetStat

[SoulA]

screw that its cute.

[arekkusu82]

screw that its cute.

Yeahh..... No.