Welcome. This is code #include <String.au3>
#include <Inet.au3>
$String = (_INetGetSource('http://www.teleman.pl/program-tv/stacje/Discovery-Science'))
$String_Start = 'class="prog_title">'
$String_End = '</a><div class="genre">'
If StringInStr($String, 'title="trwa"') Then
$Array = _StringBetween($String, $String_Start, $String_End)
$ConsoleWrite = ($Array[0] & @LF)
MsgBox(64, "Info", $ConsoleWrite)
EndIfbut the Polish characters do not work you may know