#include <Html.au3>
$oRequest = ObjCreate('WinHttp.WinHttpRequest.5.1')
$oRequest.Open('GET', 'http://autoit-script.ru')
$oRequest.SetRequestHeader('User-Agent', 'aubro')
$oRequest.Send('')
$arr=StringRegExp($oRequest.responsetext,'<link rel="stylesheet".+?/>',3)
$str=''
For $i = 0 To UBound($arr)-1
$str&=$arr[$i]& @LF
Next
If(Not _Html_Startup(@ScriptDir&'\htmlayout.dll')) Then Exit 7
$str&='<body>'&StringRegExpReplace($oRequest.responsetext, _
'(?s).+?(<table class="sp_fullwidth">.+?</table>).*','\1')&'</body>'
$hForm = GUICreate('', 900, 650, -1, -1)
$hHtml = _Html_CreateWindow($hForm)
_Html_LoadHtml($hHtml,$str)
GUISetState(@SW_SHOW, $hForm)
Do
Until GUIGetMsg() = -3