Viktor1703
AutoIT Гуру
- Сообщения
- 1,535
- Репутация
- 413
Скажите пожалуйста если кто знает, как сделать в консольном приложении прогресс?
Пример
Пример
Код:
If $CmdLine[0] Then
ConsoleWrite("Please wait..." & @CRLF & @CRLF)
Global $Text
Global $Progress = 1
$hFile = FileOpen($CmdLine[1],16)
While 1
ConsoleWrite($Process)
$hRead = FileRead($hFile,2040)
If @error = -1 Then ExitLoop
$NoPref = StringTrimLeft($hRead,2)
$Len = StringLen($NoPref)
For $i = 1 To $Len Step 2
$sMid = StringMid($NoPref, $i, 2)
$Text &= _StringReverse($sMid)
Next
$sFormat = BinaryToString("0x" & $Text)
FileWrite($CmdLine[1] & ".bin", $sFormat & @CRLF)
$Text = ""
WEnd
EndIf
Sleep(5000)
Exit