Показать полную графическую версию : [решено] Измерение текущей скорости интернет-соединения.
madmasles
06-12-2009, 20:14
Можно ли с помощью AutoIt узнать текущую скорость интернет-соединения в виде: Download - 4,77 Мб/с, Upload - 0,54Мб/с.
Если можно, то как?
Спасибо.
Вот (http://autoit-script.ru/index.php/topic,430.0.html) пример на схожую тему. Вычислить скорость, я думаю, будет не сложно.
madmasles
07-12-2009, 10:40
Yashied,
Ваш пример (Вот (http://autoit-script.ru/index.php/topic,430.0.html)) очень интересен, но он показывает текущую скорость скачивания и отдачи, а это не совсем то, что мне хотелось узнать.
Поясню более подробно. Мой провайдер декларирует следующую максимальную скорость интернет соединения: 4 Мб/с - скачивание и 512 Кб/с - отдача. Но, периодически, последнее время ~раз в неделю, эта декларируемая скорость падает, что заметно по скорости закачки-отдачи (например в торрент-клиенте). Когда я это замечаю, я иду на сайт http://www.speedtest.net/ и измеряю свою скорость. В итоге получаю картинку на прикрепленном скриншоте. Если полученные данные меньше декларируемых, я звоню провайдеру, где передо мной извиняются, говорят, что это техники что-то напутали, и, в течение 10 минут, скорость возрастает до декларируемой.
То есть я хотел узнать, можно ли вычислить максимальную возможную скорость закачки-отдачи в данный момент и если можно, то как.
madmasles
07-12-2009, 16:34
Тема решена.
Вопрос я паралельно задавал на forum.ru-board и получил там ответ. Если кому интересно, то ответ в конце этой http://forum.ru-board.com/topic.cgi?forum=5&topic=29240&start=2580 страницы. Ответили мне очень уважаемые мной (и, наверное, не только мной) NIKZZZZ и ViSiToR
ViSiToR »
так он и тут есть ;) - CreatoR (http://forum.oszone.net/member.php?find=lastposter&t=129417) - модератор данного раздела OSZone.net
madmasles
12-12-2009, 02:24
Если кому интересно, то у меня еще вот что получилось:#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 в одну? сколько я не пытался, у меня это не получилось.
Спасибо.
© OSzone.net 2001-2012
vBulletin v3.6.4, Copyright ©2000-2025, Jelsoft Enterprises Ltd.
Available in ZeroNet 1osznRoVratMCN3bFoFpR2pSV5c9z6sTC