[Yashied]

Вот пример на схожую тему. Вычислить скорость, я думаю, будет не сложно.

[madmasles]

Yashied,
Ваш пример (Вот) очень интересен, но он показывает текущую скорость скачивания и отдачи, а это не совсем то, что мне хотелось узнать.

Поясню более подробно. Мой провайдер декларирует следующую максимальную скорость интернет соединения: 4 Мб/с - скачивание и 512 Кб/с - отдача. Но, периодически, последнее время ~раз в неделю, эта декларируемая скорость падает, что заметно по скорости закачки-отдачи (например в торрент-клиенте). Когда я это замечаю, я иду на сайт http://www.speedtest.net/ и измеряю свою скорость. В итоге получаю картинку на прикрепленном скриншоте. Если полученные данные меньше декларируемых, я звоню провайдеру, где передо мной извиняются, говорят, что это техники что-то напутали, и, в течение 10 минут, скорость возрастает до декларируемой.

То есть я хотел узнать, можно ли вычислить максимальную возможную скорость закачки-отдачи в данный момент и если можно, то как.

[madmasles]

Тема решена.
Вопрос я паралельно задавал на forum.ru-board и получил там ответ. Если кому интересно, то ответ в конце этой http://forum.ru-board.com/topic.cgi?...240&start=2580 страницы. Ответили мне очень уважаемые мной (и, наверное, не только мной) NIKZZZZ и ViSiToR

[kaster]

ViSiToR »

так он и тут есть - CreatoR - модератор данного раздела OSZone.net

[madmasles]

Если кому интересно, то у меня еще вот что получилось:

Код:

#include <IE.au3>

$oIE = _IECreate("http://www.spbtlg.ru/index.html", 0, 0)
_IENavigate($oIE, "http://www.spbtlg.ru/stb.php")
$sTest = _IEBodyReadText($oIE)
_IEQuit($oIE)
$sCut_Word = " = "
$sCut_Word1 = @LF
$sTest = StringRegExpReplace($sTest, "(?is)\A.*?(" & $sCut_Word & ".*?)$", "\1")
$sTest = StringRegExpReplace($sTest, "(?is)\A(.*?)" & $sCut_Word1 & ".*?$", "\1")
$sTest = StringReplace($sTest, " = ", "")
$sTest = StringReplace($sTest, ".", ",")
$sTest = StringStripCR($sTest)
MsgBox(4096, "Интернет", "Текущая скорость:" & @LF & @LF & "     " & $sTest & " Кб/с")
Exit

Вроде замеряет скорость нормально.
Вопрос к знатокам регулярных выражений. Как можно объединить 2 функции StringRegExpReplace в одну? сколько я не пытался, у меня это не получилось.
Спасибо.