Download geschwindichkeit in Kbits/s berechnen

Moin ich will die Downloadgeschwindichkeit in Kbits/s ausrechnen für meinen downloader.

Jetz fehlt mir da schon das elementare grundwissen..

wie berechnet man überhaupr die geschwindichkeit (Kein fertig script nur die tehorie das ich selber drauf kommen kan wie das script dafür aussehen muss)

Bis jetz bin ich irgendwie auf die idee gekommen bei start des downloads einen timer laufen zu lassen der dan imer pro sekunde den immer die bytes mist und dan in Kbytes umrechnet.

wäre das so ungefähr richtig?

@L3viathan2142

Danke für das script aber nich böse sein wenn ich sebst auch eins schreibe und deins benutze um die kunltion zu verstehen.

Denfehler mh ich hab es noch nicht probiert^^^^

@Ashpool warum ist ds nicht sinnvol ich will ja die aktuelle geschwindichkeit ?

Zitat von Matthias_199

Ashpool warum ist ds nicht sinnvol ich will ja die aktuelle geschwindichkeit ?

Es geht um den Sekundenintervall
Er meint du solltest nur 100 ms oder so hernehmen

Padmak

@Greenhorn

Nein stimmt nicht das sript sagt nicht die aktuelle download geschwindichkeit

Danke für eure hilfe es funktioniert super^^^

Was mich aber zu rnächsten frage bring die verblibene Download zeit in sekunden?

Da muss ich wirklich passen keinen blassen schimmer schon rein physikalisch... nach den ferien wohl besser in physik aufpassen

Und so sie mein downloadteil des scriptes aus

ProgressOn("","")
While @InetGetActive
$Percentage = @InetGetBytesRead * 100 / $FileSize
$Prozent = Round($Percentage, 0); Umrechnung der datei von bytes in MB
$R = $FileSize /1048576;
$Grose= Round($R, 2);
$R2 = @InetGetBytesRead /1048576
$Down= Round($R2, 2)
$iLastKbits = ((@InetGetBytesRead)/1024)
Sleep (100)
$iNewKbits = ((@InetGetBytesRead)/1024)
$KB =($iNewKbits - $iLastKbits)*10
ProgressSet($Percentage, & $Prozent "% (" & $Down & " MB" & " von " & $Grose & " MB Gedwonloaded)" & @CRLF & "Download Speed: "& $KB & "KB\s" ,"Downloade von " & GUICtrlRead($Dateiname) & " zu " & $Prozent & "% Fertig")
Wend
ProgressOff()
MsgBox(64, "Download Fertig","Download ist vollständig und fertig",5)
_LOG("Log.txt","Der Battlefront II Updater hat das Update runtergeladen")

warum ?

Kb\s ist doch richtig oder?

http://www.umrechnung.org/masseinheiten-…eicherplatz.htm

nach der seite : 1KB = 1024 Byte

Deshalb teile ich ja und runde dan stimmt doch oder?

EDIT: Ich glaube grad ich verwechsele etwas böse oder?

Leider verstehe ich deine func nicht das ist böse^^

Ok danke ich hab es begriffen und konte es in mein script einbauen super voll fettes THX

Phu Geschaft...

Stunden minuten und sekunden und damit ihr das script versteht poste ich alles.

Ich will mcih noch mal bedanken den ich weiß ich bin anstregend und drücke mich nicht immer richtig aus^^^^

#cs ----------------------------------------------------------------------------
AutoIt Version: 3.2.10.0
Author: Matthias Reisenauer TG 11/3 (2009)
Script Function:
Battlefront II Updater

#ce ----------------------------------------------------------------------------
#include <GUIConstants.au3>
#include <file.au3>
#include <_LOG.au3>
#include <Inet.au3>
#include <Array.au3>
$IP = _GetIP()
_LOG("Log.txt","==================== Start des Battlefront II Updaters mit der IP: " & $IP & " ====================")
Opt("GUIOnEventMode", 1)
#Region START GUI
$Form1 = GUICreate("Battlefront II Updater", 412, 595, 273, 128)
GUISetBkColor(0x000000)
GUISetOnEvent($GUI_EVENT_CLOSE, "Form1Close")
GUISetOnEvent($GUI_EVENT_MINIMIZE, "Form1Minimize")
GUISetOnEvent($GUI_EVENT_MAXIMIZE, "Form1Maximize")
GUISetOnEvent($GUI_EVENT_RESTORE, "Form1Restore")
$Passwort = GUICtrlCreateInput("Passwort", 96, 144, 229, 20, -1)
$PSC = ("Dark_2009")
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetOnEvent(-1, "PasswortChange")
GUICtrlSetCursor (-1, 5)
$Dateiname = GUICtrlCreateInput("Dateiname", 96, 207, 229, 20, -1)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetOnEvent(-1, "DateinameChange")
GUICtrlSetCursor (-1, 5)
$Speicher_Pfad = GUICtrlCreateInput("C:\Battlefront_II_Update\", 16, 264, 373, 21, -1)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetOnEvent(-1, "Speicher_PfadChange")
GUICtrlSetCursor (-1, 5)
$Install_Passwort = GUICtrlCreateInput("Installations Passwort", 98, 359, 229, 21, -1)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetOnEvent(-1, "Install_PasswortChange")
GUICtrlSetCursor (-1, 5)
$Install_Pfad = GUICtrlCreateInput("C:\Programme\LucasArts\Star Wars Battlefront II\GameData\", 18, 416, 373, 21, -1)
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetOnEvent(-1, "Install_PfadChange")
GUICtrlSetCursor (-1, 5)
$Button1 = GUICtrlCreateButton("Starten", 112, 560, 75, 25, 0)
GUICtrlSetBkColor(-1, 0x00FF00)
GUICtrlSetOnEvent(-1, "Button1Click")
$Button2 = GUICtrlCreateButton("Ausschalten", 248, 560, 75, 25, 0)
GUICtrlSetBkColor(-1, 0xFF0000)
GUICtrlSetOnEvent(-1, "Button2Click")
$Text8 = GUICtrlCreateLabel("Nichts", 200, 480, 41, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetOnEvent(-1, "Text8Click")
$Text9 = GUICtrlCreateLabel("Schließen", 200, 504, 92, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetOnEvent(-1, "Text9Click")
$Text10 = GUICtrlCreateLabel("Herunterfahren", 200, 528, 92, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetOnEvent(-1, "Text10Click")
$Text7 = GUICtrlCreateLabel("Was soll passieren wenn der Prozess abgeschlossen ist?", 40, 456, 347, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetOnEvent(-1, "Text7Click")
$Headder = GUICtrlCreatePic("DATA\Bilder\Head_Bild.jpg", 16, 0, 380, 108)
GUICtrlSetOnEvent(-1, "HeadderClick")
$Text1 = GUICtrlCreateLabel("Passwort für die Programm Benutzung", 96, 120, 229, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetOnEvent(-1, "Text1Click")
$Text2 = GUICtrlCreateLabel("Datei Name des Updates", 96, 184, 229, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetOnEvent(-1, "Text2Click")
$Text3 = GUICtrlCreateLabel("Speicherpfad des Updates", 96, 241, 229, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetOnEvent(-1, "Text3Click")
$Text4 = GUICtrlCreateLabel("Automatische Installation?", 146, 311, 158, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetOnEvent(-1, "Text4Click")
$Text5 = GUICtrlCreateLabel("Passwort der Installer Datei", 98, 336, 166, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetOnEvent(-1, "Text5Click")
$Text6 = GUICtrlCreateLabel("Installations Pfad des Updates", 98, 393, 186, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetColor(-1, 0xFF0000)
GUICtrlSetOnEvent(-1, "Text6Click")
$Radio1 = GUICtrlCreateRadio("Radio1", 184, 480, 17, 17)
GUICtrlSetOnEvent(-1, "Radio1Click")
GUICtrlSetCursor (-1, 0)
$Radio2 = GUICtrlCreateRadio("Radio2", 184, 504, 17, 17)
GUICtrlSetOnEvent(-1, "Radio2Click")
GUICtrlSetCursor (-1, 0)
$Radio3 = GUICtrlCreateRadio("Radio3", 184, 528, 17, 17)
GUICtrlSetOnEvent(-1, "Radio3Click")
GUICtrlSetCursor (-1, 0)
$Checkbox1 = GUICtrlCreateCheckbox("", 128, 312, 13, 20)
GUICtrlSetFont(-1, 10, 400, 0, "MS Sans Serif")
GUICtrlSetOnEvent(-1, "Checkbox1Click")
GUICtrlSetCursor (-1, 0)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1 ;Nichts zu bearbeiten
Sleep(100)
WEnd
Func Button1Click() ;Halb Fertig
If GUICtrlRead($Passwort) = $PSC Then
$Programmpruefung = MsgBox(64, "Passwort Check", "Das Passwort ist Richtig! Drücke OK oder es geht in 5 Sekunden automatisch weiter ",5)
_LOG("Log.txt","Passwort wurde richtig eingegeben")
If $Programmpruefung = 1 or -1 Then
_LOG("Log.txt","Die Verbindung zum Server wird überprüft")
MsgBox(64, "Verbindungs Ceck", "Es wird überprüft ob eine verbindung zum Update Server besteht. Drücke OK oder es geht in 5 Sekunden automatisch weiter ",5)
$ping1 = Ping("dark.bellerophontes.eu",1000) ;Verbindungstest zum Update Server
_LOG("Log.txt","Ping 1 mit "& $ping1 & "ms")
Sleep(500)
$ping2 = Ping("dark.bellerophontes.eu",1000) ;Verbindungstest zum Update Server
_LOG("Log.txt","Ping 2 mit "& $ping2 & "ms")
Sleep(500)
$ping3 = Ping("dark.bellerophontes.eu",1000) ;Verbindungstest zum Update Server
_LOG("Log.txt","Ping 3 mit "& $ping3 & "ms")
Sleep(500)
$ping4 = Ping("dark.bellerophontes.eu",1000) ;Verbindungstest zum Update Server
_LOG("Log.txt","Ping 4 mit "& $ping4 & "ms")
If $ping1 And $ping2 And $ping3 And $ping4 > 0 Then
$Ping_all_1 = (($ping1 + $ping2 + $ping3 + $ping4)/4)
$Ping_all_2= Round($Ping_all_1, 0)
Msgbox(64,"Verbindung Hergestellt","Eine Verbindung zum Update Server konnte hergestellt werden, beginne mit dem Download. PING: " & $Ping_all_2,5)
_LOG("Log.txt","Verbindung Hergestellt. Druschschnitlicher Ping "& $Ping_all_2 & "ms")
$FileURL = "http://dark.bellerophontes.eu/homepage/Map_Updates/" & GUICtrlRead($Dateiname)
Global $FileSize = InetGetSize($FileURL)
DirCreate(GUICtrlRead($Speicher_Pfad)) ;Erstellt den Pfad der eingegeben wurde
InetGet($FileURL,GUICtrlRead($Speicher_Pfad) & GUICtrlRead($Dateiname),0,1)
$P = $FileSize
If $P = 0 Then
_LOG("Log.txt","Die Datei konnte nicht gefunden werden")
Msgbox(0,"Download Fehler","Die Datei: """&GUICtrlRead($Dateiname)&""" Konnte nicht gefunden werden. Überprüfe den Dateinamen", 10)
Else
Global $averagearr[1], $buffer = 0
$R3 = $FileSize/1048576
$File = Round($R3, 2)
_LOG("Log.txt","Datei gefunden. Beginne Download von """ &GUICtrlRead($Dateiname)& """ mit der Größe von "&$File& " MB")
ProgressOn("","")
$time = TimerInit()
While @InetGetActive
$Percentage = @InetGetBytesRead * 100 / $FileSize
$Prozent = Round($Percentage, 0); Umrechnung der datei von bytes in MB
$R = $FileSize /1048576;
$Grose= Round($R, 2);
$R2 = @InetGetBytesRead /1048576
$Down= Round($R2, 2)
$iLastKbits = ((@InetGetBytesRead)/1024)
Sleep (100)
$iNewKbits = ((@InetGetBytesRead)/1024)
$KB =($iNewKbits - $iLastKbits)*10
Global $ZEIT = _average($KB)
$MIN = $ZEIT/60
$Minuten = Round($MIN, 0)
$STD = $Min/60
$Stunden = Round($STD, 0)
$Sekunden = (($Zeit +30) - ($Minuten*60))
If $Minuten > 0 Then
$Sekunden = (($Zeit +30) - ($Minuten*60))
ElseIf $ZEIT < 0 Then
$Sekunden = (($Zeit) - ($Minuten*60))
EndIf
ProgressSet($Percentage, & $Prozent "% (" & $Down & " MB" & " von " & $Grose & " MB Gedwonloaded)" & @CRLF & "Download Speed: "& $KB & "KB\s" &@CRLF& "Geschätzte Downloadzeit: "&$Stunden& " Stunden und " & $Minuten&" Minuten " &$Sekunden ,"Download von " & GUICtrlRead($Dateiname) & " zu " & $Prozent & "% Fertig")
Wend
ProgressOff()


MsgBox(64, "Download Fertig","Download ist vollständig und fertig",5)
_LOG("Log.txt","Der Battlefront II Updater hat das Update runtergeladen in das Verzeichnis: "&GUICtrlRead($Speicher_Pfad))

If GUICtrlRead($Checkbox1) = 1 Then ; Entpacken
_LOG("Log.txt","Der Battlefront II Updater beginnt nun mit dem entpacken des Updates, mit dem Passwort: "&GUICtrlRead($Install_Passwort))
Msgbox(64,"Entpacken...","Entpacken wird nun gestartet",5)
$DPfad = StringFormat("%s%s ",GUICtrlRead($Speicher_Pfad) ,GUICtrlRead($Dateiname))
$EPasswort = GUICtrlRead($Install_Passwort)
$EPfad = GUICtrlRead($Install_Pfad)
DirCreate ($EPfad)
$Befehl = StringFormat("x -o+ -p%s %s %s %s ",$EPasswort ,$DPfad ,$EPfad)
RunWait("Data\Unrar\Unrar.exe " & $Befehl)
Msgbox(64,"Entpacken...","Entpacken abgeschlossen",5)
_LOG("Log.txt","Der Battlefront II Updater hat das entpacken abgeschlossen. Das Verzeichnis lautet: "&GUICtrlRead($Install_Pfad))
If GUICtrlRead($Radio1) = 1 Then
EndIf

If GUICtrlRead($Radio2) = 1 Then
_LOG("Log.txt","==================== Das Programm beendet sich ====================")
Msgbox(64,"Programm Beenden","Der PC wird das Programm beenden",5)
Exit
EndIf

If GUICtrlRead($Radio3) = 1 Then
_LOG("Log.txt","Das Programm beendet sich und fährt den PC runter")
Msgbox(64,"Herunterfahren","==================== Der PC wird Heruntergefahren ====================",5)
RunWait(@ComSpec & " /c " & "shutdown -s -t 10 ")
Exit
EndIf
Else
If GUICtrlRead($Radio1) = 1 Then
EndIf

If GUICtrlRead($Radio2) = 1 Then
_LOG("Log.txt","==================== Das Programm beendet sich ====================")
Msgbox(64,"Programm Beenden","Der PC wird das Programm beenden",5)
Exit
EndIf

If GUICtrlRead($Radio3) = 1 Then
Msgbox(64,"Herunterfahren","Der PC wird Heruntergefahren",5)
_LOG("Log.txt","==================== Das Programm beendet sich und fährt den PC runter ====================")
RunWait(@ComSpec & " /c " & "shutdown -s -t 10 ")
Exit
EndIf
EndIf
EndIf
Else
_LOG("Log.txt","Der Battlefront II Updater konnte keine Verbindung mit dem Update Server herstellen, probier es später noch einmal")
Msgbox(0,"Keine Verbindung","Es konnte keine Verbindung Hergestellt werden. Probiere es später", 10)
EndIf


Else ;!!!Fertig!!! Programm Fehler
_LOG("==================== Log.txt","Kritischer Programm Fehler. Das Programm beendet sich ====================")
Msgbox(0,"Programm Fehler","Programm Fehler. Beende Programm sofort",5)
Exit
Endif
Else ;!!!Fertig!!! Falsches Passwort
_LOG("Log.txt","Das Passwort wurde Falsch eingegeben")
MsgBox(16, "Passwort Check", "Das Passwort ist Flasch! Überprüfe das Passwort für die Programm Benutzung",5)
EndIf
EndFunc
Func _average($a)
If $a <> 0 Then
_ArrayAdd($averagearr, $a)
For $i = 1 To UBound($averagearr) - 1
$buffer += $averagearr[$i]
Next
$buffer /= UBound($averagearr) - 1
$buffer2 = $buffer
Return Round((($FileSize - @InetGetBytesRead) / 1024) / $buffer2)
EndIf
EndFunc

Func Button2Click() ;!!!Fertig!!! Programm Abschalten
MsgBox(64, "Programm Abschaltung", "Das Programm schaltet sich in 5 Sekunden ab", 5)
_LOG("Log.txt","==================== Der Battlefront II Updater wurde über den Ausschaltknopf beendet ==================== ")
Exit
EndFunc
Func Checkbox1Click() ;Nichts zu bearbeiten
EndFunc
Func DateinameChange() ;Nichts zu bearbeiten
EndFunc
Func Form1Close() ;Fertig
_LOG("Log.txt","==================== Der Battlefront II Updater wurde über die Close Funktion beendet ==================== ")
Exit
EndFunc
Func Form1Maximize() ;Nichts zu bearbeiten
LOG("Log.txt","Der Battlefront II Updater wurde Maximiert")
EndFunc
Func Form1Minimize() ;Nichts zu bearbeiten
_LOG("Log.txt","Der Battlefront II Updater wurde Minimiert")
EndFunc
Func Form1Restore() ;Nichts zu bearbeiten
_LOG("Log.txt","Der Battlefront II Updater wurde Maximiert")
EndFunc
Func HeadderClick() ;Nichts zu bearbeiten
EndFunc
Func Install_PasswortChange() ;Nichts zu bearbeiten
EndFunc
Func Install_PfadChange() ;Nichts zu bearbeiten
EndFunc
Func PasswortChange() ;Nichts zu bearbeiten
EndFunc
Func Radio1Click() ;Nichts zu bearbeiten
EndFunc
Func Radio2Click() ;Nichts zu bearbeiten
EndFunc
Func Radio3Click() ;Nichts zu bearbeiten
EndFunc
Func Speicher_PfadChange() ;Nichts zu bearbeiten
EndFunc
Func Text10Click() ;Nichts zu bearbeiten
EndFunc
Func Text1Click() ;Nichts zu bearbeiten
EndFunc
Func Text2Click() ;Nichts zu bearbeiten
EndFunc
Func Text3Click() ;Nichts zu bearbeiten
EndFunc
Func Text4Click() ;Nichts zu bearbeiten
EndFunc
Func Text5Click() ;Nichts zu bearbeiten
EndFunc
Func Text6Click() ;Nichts zu bearbeiten
EndFunc
Func Text7Click() ;Nichts zu bearbeiten
EndFunc
Func Text8Click() ;Nichts zu bearbeiten
EndFunc
Func Text9Click() ;Nichts zu bearbeiten
EndFunc

Was genau machst du damit:

Padmak

Func Form1Maximize() ;Nichts zu bearbeiten
LOG("Log.txt","Der Battlefront II Updater wurde Maximiert")
EndFunc
Func Form1Minimize() ;Nichts zu bearbeiten
_LOG("Log.txt","Der Battlefront II Updater wurde Minimiert")
EndFunc
Func Form1Restore() ;Nichts zu bearbeiten
_LOG("Log.txt","Der Battlefront II Updater wurde Maximiert")

Das wird alle mit _Log gelogt und mein Rest das hat Koda generiert und habe es dan so gelassen wenn ich es lösche gibt es nur faxen