INetGetSource UTF-8 Problem

[whiteegg]

i am using this simple example

[autoit]#include <INet.au3>

ConsoleWrite(_INetGetSource('http://russia.ru/video/news_9508/'))

but i get strange words expect russian

</div><div class="video-news-text"><div class="hd">

Ð”Ð»Ñ Ð¾ÑÐ²ÐµÑ‰ÐµÐ½Ð¸Ñ ÑимволичеÑкой деÑÑтки в СШРкрутÑÑ‚ педали

</div><div class="description">

<p>Под воÑторженные возглаÑÑ‹ толпы трехметровые единицу и ноль, Ñимволы наÑтупающего 2010 года, торжеÑтвенно провезли по Бродвею. 31 Ð´ÐµÐºÐ°Ð±Ñ€Ñ Ð¸Ñ… водрузÑÑ‚ на вершину небоÑкреба "Тайм Сквер 1"&nbsp; вмеÑте Ñ Ð³Ð¸Ð³Ð°Ð½Ñ‚Ñким хруÑтальным шаром. Ровно в полночь над городом вÑпыхнет Ð¾Ð³Ñ€Ð¾Ð¼Ð½Ð°Ñ Ð´ÐµÑÑтка. Только на Ñтот раз оÑвещать её будет &ndash; в прÑмом ÑмыÑле &ndash; ÑÐ½ÐµÑ€Ð³Ð¸Ñ Ñамих горожан. Такого прежде в Ðью-Йорке не было.</p>

<p><strong>Джереми Флетч, предÑтавитель компании Time Square Alliance:</strong> <i>То, что мы тут делаем уникально. Ð’Ñем, кто приходит поÑмотреть на Ñти огромные цифры, мы предлагаем покрутить педали. Ð­Ð½ÐµÑ€Ð³Ð¸Ñ Ð°ÐºÐºÑƒÐ¼ÑƒÐ»Ð¸Ñ€ÑƒÐµÑ‚ÑÑ Ð² Ñпециальную батарею, ÐºÐ¾Ñ‚Ð¾Ñ€Ð°Ñ Ð² новогоднюю ночь будет питать надпиÑÑŒ 2010.</i></p>

how i set to UTF-8 chr set

[KaFu]

The error is in the function INetGetSource(). It utilizes BinaryToString() without the UTF8 flag = 4, default flag is 1=ANSI.

#include <INet.au3>
consolewrite(0,"",_INetGetSourceEx('http://russia.ru/video/news_9508/'))

Func _INetGetSourceEx($s_URL, $bString = True)
    Local $sString = InetRead($s_URL, 1)
    Local $nError = @error, $nExtended = @extended
    If $bString Then $sString = BinaryToString($sString,4)
    Return SetError($nError, $nExtended, $sString)
EndFunc   ;==>_INetGetSource