[архив

amel27 · Отправлено: **11:10, 14-06-2007** | #21

schel4ok

Цитата:

первой строчкой запускается сам Маткад и никакой настройки не производится

попробуй вместо Run() использовать ShellExecute() не для EXE, а для ярлыка (*.LNK), поищи его в папке Рабочего стола....

Creat0R · Конфигурация компьютера

amel27

Цитата:

Свои предпочтения нужно обосновывать.

Они обосновываются тем, что я хотел создать библиотеку для _InetGet...(), а помещать в библиотеку единственный ресурс Adlib не очень то уж и хорошая идея, поэтому и писал, что возможно эта функция будет вызываться позже (из родительского скрипта в котором используется библиотека).

Цитата:

на самом деле >100 ровно на столько, сколько потребуется скрипту на выполнение команд после Sleep(100)

Согласен, но в моём случае, не думаю что команды TrayTip (хотя использую ProgressSet()

), или String...() могут занять много времени....

Цитата:

кстати, множитель 0.9765625 как раз отвечает за перевод исходной величины Byte/ms в KByte/sec

Т.е это считается меркой соотношения между bytes/ms и kb/s? а для mb/m (просто интересно), нужно ещё раз умножать на это же значение?

amel27 · Отправлено: **05:59, 15-06-2007** | #23

Creat0R
Переделал последний вариант скрипта - добавил обработку ошибок и упростил использование параметров. Теперь он может использоваться для измерения не только скорости закачки, но и скорости прогресса любой величины (>0), например обработанных файлов, произведенных кликов мышки и т.д.

Цитата:

не думаю что команды TrayTip (хотя использую ProgressSet() ), или String...() могут занять много времени

Имхо не стоит загадывать, особенно если включать функцию в библиотеку... и если вспомнить, что скрипт может стопориться даже без вызова Sleep().

Цитата:

это считается меркой соотношения между bytes/ms и kb/s? а для mb/m (просто интересно), нужно ещё раз умножать на это же значение?

Byte/ms -> KByte/s : 1000/1024 = 0.9765625
KByte/s -> MByte/min : 60/1024 = 0.05859375

Creat0R · Конфигурация компьютера

amel27

Цитата:

добавил обработку ошибок

Имхо, возвращаемое значение не должно быть -1 в подобной функции, чтобы это не отобразилось случайно в TrayTip (или любом другом “отображающем устройстве”

), мне кажется присваивать последовательно значения @error будет достаточно, а возвращать в таком случае 0.

Цитата:

Теперь он может использоваться для измерения не только скорости закачки, но и скорости прогресса любой величины (>0), например обработанных файлов, произведенных кликов мышки и т.д.

не совсем понял, а как это засикается скорость обработанных файлов, или что ещё более удивитеьнее (для меня), как это работает на “произведенных кликов мышки”?

И ещё такой вопрос: Функция для подсчёта скорости, в оригинале возвращает байты/мс, или байты/с ? если первое, то как поправить чтобы возвращались именно байты в секунду, это нужно для ещё одной функции подсчёта... функция подсчитывает приблизительно оставшиеся время до закачки (в секундах) :

Код:

;Функция возвращает приблизительно оставшееся время в секундах (за счёт вычесления из общего размера файла и деления на скорость скачивания).
Func _InetGetRemained($Bytes, $TotalBytesSize, $SpeedByBytes)
    Local $RemainedSecs = ($TotalBytesSize - $Bytes) / $SpeedByBytes
    If $RemainedSecs < 0 Then $RemainedSecs = 0
    Return $RemainedSecs
EndFunc

GTeam · Отправлено: **00:15, 16-06-2007** | #25

Здравствуйте!

подскажите пожалуйста как получить файл с и-нета а затем его запустить(скачать и после того как он на компе запустить его)
делаю вот так:

InetGet("http://the-file.com/file.exe", "file.exe", 1, 1)
Sleep(30000)
Global $file = 'file.exe'
RunWait($file)

но мне почемуто кажется что функция Sleep(30000) только останавливает скрипт а сним и получение файла с и-нета, или я не прав?

приведите пример пожалуйста как правельно это сделать..

Creat0R · Конфигурация компьютера

GTeam

Цитата:

как получить файл с и-нета а затем его запустить

Нужно поставить закачку не в фоновой режим, а чтобы функция возвращала по завершению закачки...

Цитата:

делаю вот так:

В этом случае закачка поставлена именно в фоновой режим, за это отвечает последний параметр.

Вот пример закачки и по завершению запуска закаченной программы (если она закачалась успешно):

Код:

;Обьявляем переменную для имени файла (желательно и весь путь)
Global $file = 'file.exe'

;Ставим закачку в ждущем режиме
$Ret = InetGet("http://the-file.com/file.exe", $file, 1, 0)

;Если удачно закачался файл, то запускаем его
If $Ret = 1 Then RunWait($file)

GTeam · Отправлено: **02:34, 16-06-2007** | #27

спасибо огромное, очень помог!
еще один вопрос , может ли AutoItSetOption("TrayIconHide", 1) повлиять как то на работу скрипта?

Creat0R · Конфигурация компьютера

GTeam

Цитата:

может ли AutoItSetOption("TrayIconHide", 1) повлиять как то на работу скрипта?

В каком смысле?

оно влияет только на то, что иконка в трее не будет отображаться, это удобно если нужно в работе скрипта скрывать/показывать иконку в области уведомления (трей), если нужно чтобы иконка вовсе не показывалась (никогда), то в начале скрипта достаточно поставить директиву #NoTrayIcon, это кстати, в отличие от Opt("TrayIconHide", 1), позволяет не показывать иконку при запуске скрипта, т.е икона не появится на мгновение как это происходит при использовании Opt("TrayIconHide", 1)

.

amel27 · Отправлено: **12:23, 16-06-2007** | #29

Creat0R

Цитата:

Имхо, возвращаемое значение не должно быть -1 в подобной функции, чтобы это не отобразилось случайно

если проверять на ошибки, то случайностей не будет

Цитата:

как это засикается скорость обработанных файлов

Код:

#include <Constants.au3>
Global $ProcessCount, $ProcessLines=0

$pid = Run (@ComSpec & ' /C DIR /B /S *.*', 'C:\', @SW_HIDE, $STDOUT_CHILD)
_GetProgressSpeed ($ProcessCount, -1, 100)

While 1
    Sleep(100)
    $text = StdoutRead($pid)
    If @error Then ExitLoop
    $count = StringLen($text)-StringLen(StringStripCR($text))
    $ProcessLines+= $count
    $files = StringFormat('Processed %i files', $ProcessLines)
    $speed = StringFormat('Speed: %i Files/Sec',_GetProgressSpeed($ProcessCount, $ProcessLines)*1000)
    TrayTip('', $files & @CRLF & $speed, 10, 16)
    ConsoleWrite ($text)
Wend

Цитата:

или что ещё более удивитеьнее (для меня), как это работает на “произведенных кликов мышки”?

Код:

#include <GUIConstants.au3>
Global $ProcessCount, $ProcessClicks=0
Opt("GUIOnEventMode", 1)

GUICreate("My GUI")
GUISetOnEvent($GUI_EVENT_CLOSE, "_Quit")
GUISetOnEvent($GUI_EVENT_PRIMARYDOWN, "_AddClick")

_GetProgressSpeed ($ProcessCount, -1, 50)
GUISetState (@SW_SHOW)

While 1
    Sleep(100)
    $clicks = StringFormat('Processed %i clicks', $ProcessClicks)
    $speed = StringFormat('Speed: %.2f Clicks/Sec',_GetProgressSpeed($ProcessCount, $ProcessClicks)*1000)
    TrayTip('', $clicks & @CRLF & $speed, 10, 16)
Wend

Func _AddClick()
    $ProcessClicks+=1
EndFunc

Func _Quit()
    Exit
EndFunc

Цитата:

Функция для подсчёта скорости, в оригинале возвращает байты/мс, или байты/с ?

как и AutoIT - миллисекунды

Цитата:

как поправить чтобы возвращались именно байты в секунду, это нужно для ещё одной функции подсчёта... функция подсчитывает приблизительно оставшиеся время до закачки (в секундах)

Код:

Func _InetGetRemained($Bytes, $TotalBytesSize, $SpeedByBytes)
    Local $RemainedSecs = ($TotalBytesSize - $Bytes) / ($SpeedByBytes * 1000)
    If $RemainedSecs < 0 Then $RemainedSecs = 0
    Return $RemainedSecs
EndFunc

gregaz · Отправлено: **18:57, 16-06-2007** | #30

Creat0R. Спасибо за советы !
Есть еще один вопрос :
Как правильно организовать архивирование файлов Winrar_ом ?
Имеется Файл , полученный после работы функции FileOpenDialog, есть его массив-форма,обработанная определенным обазом.
Задача :архивировать выбранные и обработанные файлы
Попытка занести в окно Winrara требуемый путь к папке (имеющий и русские названия папок) выдают абракадабру
Поочередное переключение раскладок клавы не дает стабильного результата.
Возможно есть простой путь ?