[madmasles]

saavaage,

1. В Вашем коде кнопку $Button1, после нажатия, надо сделать неактивной, а после отработки функции Internet() - активной, чтобы нельзя было нажать на нее во время работы функции.
2. Конструкция

Код:

While 1
    Call("_SpeedInternet")
    ExitLoop
WEnd

Лучше, чем в моем скрипте, если ее использовать в моем, то можно убрать эти строки:

Код:

#include <GuiMenu.au3>
...
$hMenu = _GUICtrlMenu_GetSystemMenu($Form1)
...
_GUICtrlMenu_EnableMenuItem($hMenu, $SC_CLOSE, 2)
...
_GUICtrlMenu_EnableMenuItem($hMenu, $SC_CLOSE, 0)

3. Функция и так работает:

Код:

Func _SpeedInternet()
	Local $sPattern = '(?s).*?= (.*?)\r\n?.*', $sText
	Local $oIE = _IECreate("http://www.spbtlg.ru/stb.php", 0, 0)
	If Not IsObj($oIE) Then Return $sResume
	$sText = _IEBodyReadText($oIE)
	_IEQuit($oIE)
	If $sText Then
		$sText = StringRegExpReplace($sText, $sPattern, "\1")
		If Number($sText) Then $sResume = $sText & ' Kbps'
	EndIf
	Return $sResume
EndFunc   ;==>_SpeedInternet

4. Все вышеизложенное - мое субъективное мнение.