For $i=0 To ($kolIzbr-1)
$sString_theme = BinaryToString(InetRead('http://forum.tomsk.ru/forum/'&$linkTheme[$i],1))
$kol_page = StringRegExp($sString_theme , 'class="btn_paging_sel"(?s).+?(\d+)',3)
$sString_theme_data = BinaryToString(InetRead('http://forum.tomsk.ru/forum/'&$linkTheme[$i]&'/?p='&$kol_page[0],1))
$kol_data = StringRegExp($sString_theme_data , 'class="box_user"(?s).+?(\d+\.\d+\.\d+\s\(\d+\:\d+\))',3)
$kol_elem_data = UBound($kol_data)
$id_first_post = StringRegExp($sString_theme_data , ".+?id\=\'caption\-(\d+)",3)
$kol_post = UBound($id_first_post)
$zagolovok = StringRegExp($sString_theme_data , ".+?id\=\'caption\-"&$id_first_post[$kol_post-1]&"\'\>(.+?)?\<\/",3)
;_IniWriteEx(@ScriptDir & "\login.ini", "FTR", "zagolovok"&$i, $zagolovok[0])
$text = StringRegExp($sString_theme_data , '.+?id\=\"message\_'&$id_first_post[$kol_post-1]&'(?s).+?\"\>(.+?)?\<\/',3)
$text_bez_coda = StringRegExpReplace($text[0], "\<br \/\>" ,"",0)
$text_bez_coda1 = StringRegExpReplace($text_bez_coda, "\s{2}","",0)
;ClipPut($text_bez_coda1)
;FileOpen(@ScriptDir & "\text.ini",2)
IniWrite(@ScriptDir & "\text.ini", "FTR", "text"&$i,$text_bez_coda1)
_IENavigate($oIE, "http://forum.tomsk.ru/forum/"&$linkTheme[$i]&"/?p="&$kol_page[0]&"/")
_IEFormElementSetValue(_IEGetObjByName($oIE,"message[content]"),_ANSI2UNICODE(IniRead(@ScriptDir & "\text.ini", "FTR", "text"&$i,"")))
Next