Что нового

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

sokolovska

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

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

Код:
_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

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
sokolovska,
Замените в функции
Код:
;~ ...
Local $sReturn = $oHTTP.ResponseBody
$oHTTP = 0
Return BinaryToString($sReturn, 4)
;~ ...
 
Автор
S

sokolovska

Новичок
Сообщения
36
Репутация
0
madmasles, спасибо, но все равно знаки вопроса (ion" content="??????N?N? IP ???N??N?, ??????N???N?N? N)..
 

madmasles

Модератор
Глобальный модератор
Сообщения
7,790
Репутация
2,322
sokolovska [?]
все равно знаки вопроса
Некоторые, например, китайские прокси добавляют свои рекламные блоки на китайском языке, ИМХО,вряд ли Вам понадобится их содержание. Или это может быть реклама яндекса или гугла по IP-адресу на соответствующем языке.
 
Автор
S

sokolovska

Новичок
Сообщения
36
Репутация
0
madmasles, но в браузере все нормально отображается, я просто в исходнике вообще не вижу русских букв..
 
Верх