#include "SpeedRegu.au3"
$sPath = @ScriptDir & "\CCC.mpg" ; Bitte anpassen

$hFile = FileOpen($sPath, 16)
$hDest = FileOpen(@ScriptDir & "\CCC_1.mpg", 1)

_SpeedCtrl_Start(500)
$x = 0
While 1
	$read = FileRead($hFile, 1024)
	If @error Then ExitLoop
	$tmp = _SpeedCtrl_Regulate(FileGetPos($hFile))
	If $x = 10 Then
		ConsoleWrite($tmp & @CRLF)
		$x = 0
	Else
		$x += 1
	EndIf

	FileWrite($hDest, $read)
WEnd

FileClose($hDest)
FileClose($hFile)