$s_URL = 'http://boxybot.net/rus_down.html'
$s_Sourse = InetRead($s_URL, 17)
If @error Then
MsgBox(16, 'Error', 'InetRead')
Exit
EndIf
$s_Sourse = BinaryToString($s_Sourse)
$sSearch = StringRegExpReplace($s_Sourse, '(?si).*<strong><a href.*?>(.*?)</a><font.*', '$1')
If @extended = 1 Then
MsgBox(64, 'Info', $sSearch)
Else
MsgBox(16, 'Error', 'StringRegExpReplace')
EndIf