Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Empfangene/gesendet Byte unter Win XP
Autor: Klaus@VB
Datum: 16.05.03 19:34
Der nachfolgende SOURCE ermöglicht es dir, die geforderten Daten unter WinXP abzufragen! (Auch bei installierten SP1, was normalerweise zu Problemen führte!!!) Option Explicit Private Declare Function RasGetConnectionStatistics Lib _ "RasApi32.DLL" (ByVal hRasConn As Long, lpStatistics _ As RASSTATS2000) As Long Private Declare Function RasGetLinkStatistics Lib _ "RasApi32.DLL" (ByVal hRasConn As Long, ByVal _ dwSubEntry As Long, lpStatistics As RASSTATS2000) _ As Long Private Declare Function RasEnumConnections Lib "RasApi32.DLL" _ Alias "RasEnumConnectionsA" (lpRasCon As Any, lpcb As _ Long, lpcConnections As Long) As Long Private Declare Function RasGetConnectStatus Lib "RasApi32.DLL" _ Alias "RasGetConnectStatusA" (ByVal hRasCon As Long, _ lpStatus As Any) As Long Private Type RASSTATS2000 dwSize As Long dwBytesXmited As Long dwBytesRcved As Long dwFramesXmited As Long dwFramesRcved As Long dwCrcErr As Long dwTimeoutErr As Long dwAlignmentErr As Long dwHardwareOverrunErr As Long dwFramingErr As Long dwBufferOverrunErr As Long dwCompressionRatioIn As Long dwCompressionRatioOut As Long dwBps As Long dwConnectDuration As Long End Type Const RAS_MaxEntryName = 256 Const RAS_MaxDeviceType = 16 Const RAS_MaxDeviceName = 128 'Änderung am 14.12.2002: nicht 32! 'Änderung am 14.12.2002: Für RasEnumConnections Rückgabewert Private Const ERROR_BUFFER_TOO_SMALL = 603 Private Type RASType dwSize As Long hRasCon As Long szEntryName(RAS_MaxEntryName) As Byte szDeviceType(RAS_MaxDeviceType) As Byte szDeviceName(RAS_MaxDeviceName) As Byte End Type Private Type RASStatusType dwSize As Long RasConnState As Long dwError As Long szDeviceType(RAS_MaxDeviceType) As Byte szDeviceName(RAS_MaxDeviceName) As Byte szInBytes As Double syOutbytes As Double End Type Private Sub Form_Load() Timer1.Interval = 200 Timer1.Enabled = True End Sub Private Sub Timer1_Timer() Call ActiveConnection End Sub Private Function ActiveConnection() As Boolean Dim RAS(255) As RASType, RASStatus As RASStatusType Dim lg&, lpcon&, Result& Dim myStats As RASSTATS2000 Dim rtn As Long RAS(0).dwSize = 412 lg = 256 * RAS(0).dwSize Result = RasEnumConnections(RAS(0), lg, lpcon) myStats.dwSize = LenB(myStats) rtn = RasGetConnectionStatistics(RAS(0).hRasCon, myStats) If lpcon = 0 Then 'Offline ActiveConnection = False Form1.Label2.Caption = 0 Form1.Label1.Caption = 0 Else RASStatus.dwSize = 160 Result = RasGetConnectStatus(RAS(0).hRasCon, RASStatus) If RASStatus.RasConnState = &H2000 Then 'Online ActiveConnection = True Form1.Label2.Caption = myStats.dwBytesRcved Form1.Label1.Caption = myStats.dwBytesXmited Else 'DFÜ-Einwahl oder -Trennen ActiveConnection = False Form1.Label2.Caption = 0 Form1.Label1.Caption = 0 End If End If End Function '---------- Ende Formular "Form1" alias Form1.frm ---------- '-------------- Ende Projektdatei Projekt1.vbp -------------- Ich hoffe, dass es dir Hilft.

Empfangene/gesendet Byte unter Win XP	266	Tanja	11.05.03 15:18
Re: Empfangene/gesendet Byte unter Win XP	519	brave@heart	11.05.03 17:50
Re: Empfangene/gesendet Byte unter Win XP	82	Tanja	11.05.03 20:07
Re: Empfangene/gesendet Byte unter Win XP	431	brave@heart	12.05.03 22:43
Schön gemacht, Respekt	450	unbekannt	13.05.03 01:32
Re: Empfangene/gesendet Byte unter Win XP	74	Eisenhans	15.05.03 15:01
Re: Empfangene/gesendet Byte unter Win XP	82	Klaus@VB	16.05.03 19:34

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen