madmasles, разобрался походу, работает вот такой скрипт:
Код:
#include <GUIConstantsEx.au3>
#include <IE.au3>
$j = False
$i = 0
$z = 2
#region ### START Koda GUI section ### Form=
$Form1 = GUICreate("Form1", 300, 200, -1, -1)
$Label1 = GUICtrlCreateLabel('Начни проверку!', 105, 20, 100, 20)
$Progress1 = GUICtrlCreateProgress(50, 50, 200, 20)
$Button1 = GUICtrlCreateButton("Замерить", 100, 100, 100, 50)
GUISetState(@SW_SHOW)
#endregion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit
Case $Button1
GUICtrlSetData($Label1, "Идет проверка!")
AdlibRegister('_MyFunc', 50)
While 1
Call("Internet")
ExitLoop
WEnd
GUICtrlSetData($Label1, "Начни проверку!")
AdlibUnRegister('_MyFunc')
$i = 0
GUICtrlSetData($Progress1, $i)
EndSwitch
WEnd
Func _MyFunc()
$i += $z
If $i = 100 Then $z = -2
If $i = 0 Then $z = 2
GUICtrlSetData($Progress1, $i)
EndFunc ;==>_MyFunc
Func Internet()
$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 & " Кб/с")
EndFunc
Если можно, то взгляните на предмет оптимизации. Я не уверен, что все сделал правильно.