Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Downloadrate abfragen?
Autor: Axxxl
Datum: 13.02.03 21:32
Das ist schon mal ein sehr guter Hinweis, den ich so übernommen habe. Aber wie "verknüpfe" ich das nun mit meiner gerade aktiven DFÜ Verbindung, also wo bekomme ich den Wert "nBytes" aus dem Beispiel her? Mein Quellcode sieht so aus (komplett): Option Explicit Private nBytes As Long Private nSek 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 Const RAS_MaxEntryName = 256 Const RAS_MaxDeviceType = 16 Const RAS_MaxDeviceName = 32 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 End Type Private Sub Form_Load() Timer1.Interval = 1000 Timer1.Enabled = True bar1.Min = 1 bar1.Max = 500 bar1.Value = bar1.Min DFÜStatus End Sub Private Sub mnuexit_Click() Unload Me End End Sub Private Function DFÜStatus() As Boolean Dim RAS(255) As RASType, RASStatus As RASStatusType Dim lg&, lpcon&, Result& RAS(0).dwSize = 412 lg = 256 * RAS(0).dwSize Result = RasEnumConnections(RAS(0), lg, lpcon) If lpcon = 0 Then lbl_status.Caption = "keine DFÜ Verbindung!" DFÜStatus = False Else RASStatus.dwSize = 160 Result = RasGetConnectStatus(RAS(0).hRasCon, RASStatus) If RASStatus.RasConnState = &H2000 Then lbl_status.Caption = "Online" DFÜStatus = True Else lbl_status.Caption = "DFÜ-Einwahl oder -Trennen" DFÜStatus = False End If End If End Function Private Sub Timer1_Timer() nSek = nSek + 1 lbl_test.Caption = Format$(nBytes / nSek, "0.0") & " Bytes/s" End Sub >> Ich bin ja schon so gespannt

Downloadrate abfragen?	84	Axxxxxl	13.02.03 16:37
Re: Downloadrate abfragen?	373	Dieter	13.02.03 18:55
Re: Downloadrate abfragen?	51	Axxxl	13.02.03 20:12
Re: Downloadrate abfragen?	352	Dieter	13.02.03 20:47
Re: Downloadrate abfragen?	420	Stormguard	13.02.03 21:19
Re: Downloadrate abfragen?	50	Axxxl	13.02.03 21:32
Re: Downloadrate abfragen?	354	Dieter	13.02.03 21:45
Re: Downloadrate abfragen?	44	Axxxl	13.02.03 21:50

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