[решено] Измерение текущей скорости интернет-соединения.

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- AutoIt (http://forum.oszone.net/forumdisplay.php?f=103)

Измерение текущей скорости интернет-соединения.

Можно ли с помощью AutoIt узнать текущую скорость интернет-соединения в виде: Download - 4,77 Мб/с, Upload - 0,54Мб/с.
Если можно, то как?
Спасибо.

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

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

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

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

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

Цитата:

Цитата madmasles

ViSiToR »

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

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

Код:

#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 в одну? сколько я не пытался, у меня это не получилось.
Спасибо.