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

[madmasles]

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

Если можно, то как?

Спасибо.

[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]

Цитата madmasles:



ViSiToR

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

так он и тут есть -

CreatoR

- модератор данного раздела OSZone.net

[madmasles]

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

Код:

Код: Выделить всё

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

Спасибо.