[Сеть, интернет] Получение исходника страницы: вместо кирилицы - знаки вопроса

[sokolovska]

Собственно пытаюсь проверить прокси - если проверять через браузер, то все корректно отображается, а вот если через эту функцию - то знаки вопроса. Может быть вы также еще успеете застать их, если этот бесплатный прокси будет еще жив.

Прошу совета - как сохранять мне текст, в какой-то определенной кодировке?

_IsProxy('120.202.249.230:80')

Func _IsProxy($sProxy)

	Global $sReadURL = _ReadHTML('http://2ip.ru', $sProxy,12000)

	FileWrite('t.txt',$sReadURL)
	ShellExecute('t.txt')
	Sleep(2000)
	FileDelete('t.txt')

EndFunc


Func _ReadHTML($sURL, $sProxy = '', $iTimeout = 4000)

	Local $oHTTP = ObjCreate('WinHttp.WinHttpRequest.5.1')
	If $sProxy <> '' Then $oHTTP.SetProxy(2, $sProxy)
	$oHTTP.Open('GET', $sURL)
	$oHTTP.setTimeouts($iTimeout, $iTimeout, $iTimeout, $iTimeout)
	$oHTTP.Send('')
	$oHTTP.WaitForResponse()
	Local $sReturn = $oHTTP.ResponseText
	$oHTTP = 0
	Return $sReturn

EndFunc   ;==>_ReadHTML

 

[madmasles]

sokolovska,
Замените в функции

;~ ...
Local $sReturn = $oHTTP.ResponseBody
$oHTTP = 0
Return BinaryToString($sReturn, 4)
;~ ...

 

[sokolovska]

madmasles, спасибо, но все равно знаки вопроса (ion" content="??????N?N? IP ???N??N?, ??????N???N?N? N)..

 

[madmasles]

sokolovska [?]

все равно знаки вопроса

Некоторые, например, китайские прокси добавляют свои рекламные блоки на китайском языке, ИМХО,вряд ли Вам понадобится их содержание. Или это может быть реклама яндекса или гугла по IP-адресу на соответствующем языке.

 

[sokolovska]

madmasles, но в браузере все нормально отображается, я просто в исходнике вообще не вижу русских букв..