Huhu,
gibt ja schon so einiges zu dem Thema, hab da aber noch die eine oder andere Frage:
Lese wie folgt den Traffic aus:
Spoiler anzeigen
Code
Global $aReturn[4][2]
$aReturn[0][0] = "Download Speed"
$aReturn[1][0] = "Upload Speed"
$aReturn[2][0] = "Name"
$aReturn[3][0] = "Bandbreite LAN"
$aReturn[0][1] = 0
$aReturn[1][1] = 0
$aReturn[2][0] = "No Data"
$aReturn[3][0] = "No Data"
Global $wbemFlagReturnImmediately = 0x10, $wbemFlagForwardOnly = 0x20, $colItems = "", $strComputer = "localhost"
HotKeySet("+!x", "_Exit") ; Shift + Alt + x
While 1
$aTraffic = _NetworkSpeed()
ToolTip("U: " & Round($aTraffic[1][1] / 1000, 2) & " kbit/s" & @CRLF & _
"D: " & Round($aTraffic[0][1] / 1000, 2) & " kbit/s")
Sleep(100)
WEnd
Func _NetworkSpeed()
$objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
$colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_PerfFormattedData_Tcpip_NetworkAdapter", "WQL", _
$wbemFlagReturnImmediately + $wbemFlagForwardOnly)
;~ $objWMIService = ObjGet("winmgmts:\\" & $strComputer & "\root\CIMV2")
;~ $colItems = $objWMIService.ExecQuery("SELECT * FROM Win32_PerfRawData_Tcpip_NetworkAdapter", "WQL", _
;~ $wbemFlagReturnImmediately + $wbemFlagForwardOnly)
If IsObj($colItems) Then
For $objItem In $colItems
If $objItem.BytesReceivedPersec > 0 Then
$aReturn[0][1] = $objItem.BytesReceivedPersec
$aReturn[1][1] = $objItem.BytesSentPersec
$aReturn[2][1] = $objItem.Name
$Bandweite = $objItem.CurrentBandwidth
If $Bandweite = 100000000 Then $aReturn[3][1] = "1 GBit"
If $Bandweite = 100000 Then $aReturn[3][1] = "100 MBit"
If $Bandweite = 1000 Then $aReturn[3][1] = "10 MBit"
Return $aReturn
EndIf
Next
Else
MsgBox(0, "WMI Output", "No WMI Objects Found for class: " & "Win32_PerfFormattedData_Tcpip_NetworkAdapter")
EndIf
Return $aReturn
EndFunc ;==>_NetworkSpeed
Func _Exit()
Exit
EndFunc ;==>_Exit
Alles anzeigen
Funktioniert soweit auch ohne Probs, nur hab ich zum verifizieren der Werte noch den NetSpeedMonitor mit laufen und der zeigt komplett andere Werte an. Sind immer um einiges höher.
Hat da einer eine Erklärung zu??
Gruß und Danke
MrB