Что нового

Internet explorer не может прочитать содержимое страницы

maxd2007

Новичок
Здравствуйте, помогите понять в чем проблема, есть такая часть кода:
Код:
$URL = 'http://www.garmin.com/support/WUSoftwareUpdate.jsp?req=<?xml version="1.0" encoding="UTF-8" standalone="no" ?><Requests xmlns="http://www.garmin.com/xmlschemas/UnitSoftwareUpdate/v3"><Request><PartNumber>006-B2586-00</PartNumber><TransferType>USB</TransferType><Region><RegionId>14</RegionId><Version><VersionMajor>1</VersionMajor><VersionMinor>0</VersionMinor><BuildType>Release</BuildType></Version></Region></Request></Requests>'
$oIE = _IECreate ($URL,0,0) 
if @error = 0 then
Local $sText = _IEBodyReadText($oIE)
FileWrite ( "1.txt", $sText)
endif
ссылка вроде как читается (т.к. @error выдает "0"), а содержимое ссылки не записывается в "1.txt", в windows xp (на виртуальной машине) все работает без проблем, а на windows 10 (без сторонних антивирусов, отключена родная защита и брендмауер, uac выключен), в чем может быть еще проблема?
 

hedji

Продвинутый
А если так:

Код:
$URL = 'http://www.garmin.com/support/WUSoftwareUpdate.jsp?req=<?xml version="1.0" encoding="UTF-8" standalone="no" ?><Requests xmlns="http://www.garmin.com/xmlschemas/UnitSoftwareUpdate/v3"><Request><PartNumber>006-B2586-00</PartNumber><TransferType>USB</TransferType><Region><RegionId>14</RegionId><Version><VersionMajor>1</VersionMajor><VersionMinor>0</VersionMinor><BuildType>Release</BuildType></Version></Region></Request></Requests>'
$oIE = _IECreate ($URL,0,0) 
if @error = 0 then
Local $sText = _IEBodyReadText($oIE)
ConsoleWrite($sText)
FileWrite ( "C:\1.txt", $sText)
endif


+ зачем ждать открытия IE
Код:
$URL = 'http://www.garmin.com/support/WUSoftwareUpdate.jsp?req=<?xml version="1.0" encoding="UTF-8" standalone="no" ?><Requests xmlns="http://www.garmin.com/xmlschemas/UnitSoftwareUpdate/v3"><Request><PartNumber>006-B2586-00</PartNumber><TransferType>USB</TransferType><Region><RegionId>14</RegionId><Version><VersionMajor>1</VersionMajor><VersionMinor>0</VersionMinor><BuildType>Release</BuildType></Version></Region></Request></Requests>'
$text = BinaryToString(InetRead($URL, 1))
ConsoleWrite($text)
FileWrite("C:\1.txt", $text)
 
Автор
M

maxd2007

Новичок
Тоже самое, но проблема точно не в пути, т.к. в моем случае фаил создается, но он пустой =(, я наверное воспользуюсь такой функцей
Код:
Func _getURLtext ($URL)
	$ObjNew = ObjCreate ( "winhttp.winhttprequest.5.1")
	$ObjNew.open ("GET", $URL)
	$ObjNew.send ("")
	$ObjNew.WaitForResponse
	$Text = $ObjNew.ResponseText
	Return $Text
EndFunc
единственное просто сейчас хотелось бы понять почему так происходит.


Добавлено:
Сообщение автоматически объединено:

Странно, но Ваш второй вариант сработал, видать винда что то чудит (или internet explorer в чаcтности) =). Спасибо за участие +
 
Верх