Серый форум — VBS: IE9 - как такое возможно?

Re: VBS: IE9 - как такое возможно?

null@example.com (omegastripes) — Fri, 25 Jan 2013 14:54:53 +0000

Slav пишет:

2. И все это абсолютно не работает в Windows 7 (64 разряда) под IE9.
Ошибка возникает при попытке использовать objIE.document .

Замечу, что пример, приведенный в первом посте, работает у меня без ошибок.
Windows 7 Домашняя Базовая, Service Pack 1, x64
IE 9.0.8112.16421, Выпуски обновления 9.0.12 (KB2761465).
В диспетчере появляется 2 процесса iexplore.exe, типичные для моей системы при CreateObject("InternetExplorer.Application"):
CommandLine: "C:\Program Files (x86)\Internet Explorer\iexplore.exe" SCODEF:13628 CREDAT:145409
CommandLine: "C:\Program Files (x86)\Internet Explorer\iexplore.exe" -Embedding

Re: VBS: IE9 - как такое возможно?

null@example.com (Slav) — Thu, 24 Jan 2013 11:08:15 +0000

Решение.

Перед тем как сообщить правильный ответ несколько граблей, по которым я прошел - чтобы вы не теряли время на тупиковые ветки в дальнейшем.

ИНТЕРНЕТу такая проблема знакома.

Много времени потратил на тезис IE9 не поддерживает свойство .document .
Многостраничные темы посвящены обсуждению этого тезиса!
Это не так - убедиться можно легко, если вместо локального HTML-файла попробовать открыть любой сайт.
Жаль, что я догадался это сделать слишком поздно.

Второе глобальное направление решения этой проблемы - напихать в заголовок локального HTML-файла как можно больше тегов, которые якобы заставят IE9 перейти в режим совместимости с IE8.
В моем первом посте можно видеть результаты проработки этого решения - дело не в этом.

Причина в следующем:
IE9 при открытии локального HTML-файла, создает новый child process, в который и грузит HTML-файл.
При этом содержимое этой страницы родительскому объекту IE9 элементарно не видно.
Почему это так - объяснить не могу.
Могу предложить может быть и не слишком изящный, но вполне работающий выход:

' IE9

  Set objIE = CreateObject("InternetExplorer.Application")
    objIE.Navigate("c:\temp\zzViewZ.htm")
    Do While objIE.Busy : Wscript.Sleep 500 : Loop

' какая версия IE ?
  Set objFSO = CreateObject("Scripting.FileSystemObject") 
    strVer = objFSO.GetFileVersion("C:\Program Files\Internet Explorer\iexplore.exe")
    strVer = Mid(strVer, 1, 1)    
  Set objFSO = Nothing 

'  это IE9 - ищем объект, в который загружен наш файл 
If (strVer = "9") Then
  Set objIE = Nothing
  
  Do While (objIE Is Nothing)
    Set objShellApp = CreateObject("Shell.Application")
    For Each objWindow In objShellApp.Windows
      If LCase(objWindow.LocationName) = LCase("zzViewZ.htm") Then
          Set objIE = objWindow
          ' WScript.Echo objWindow.LocationName
      End If
    Next
    If (objIE Is Nothing) then Set objShellApp = Nothing
    Wscript.Sleep 500
  Loop
End If
' дальше - как обычно

  objIE.Top = 0
  objIE.Left = 0
  objIE.Height = objIE.document.parentWindow.screen.height - 28
  objIE.Width = objIE.document.parentWindow.screen.width

  objIE.Visible = True
  
    WScript.Echo "123"

  WScript.Quit 0

Да, еще одно.
Эта ошибка плохо идентифицируется еще и потому, что появляются как минимум 2 разных сообщения:
- The object invoked has disconnected from its client. (80010108)
- Unspecified error (80004005)

VBS: IE9 - как такое возможно?

null@example.com (Slav) — Wed, 23 Jan 2013 10:29:26 +0000

Коллеги,

здравствуйте.
Второй день не могу решить простую задачу.

1. Этот скрипт (вкратце) работал и работает под WindowsXP - абсолютно никаких проблем:
Сам скрипт:

' IE9

  Set objIE = CreateObject("InternetExplorer.Application")
    objIE.Navigate("c:\temp\zzViewZ.htm")
    Do While objIE.Busy : Wscript.Sleep 500 : Loop
  objIE.Top = 0
  objIE.Left = 0
  objIE.Height = objIE.document.parentWindow.screen.height - 28
  objIE.Width = objIE.document.parentWindow.screen.width

  objIE.Visible = True
  
    WScript.Echo "123"

  WScript.Quit 0

Тестовая HTML-страница - сохранить в c:\temp\zzViewZ.htm :










one two three

2. И все это абсолютно не работает в Windows 7 (64 разряда) под IE9.

Ошибка возникает при попытке использовать objIE.document .

Перечитал много всего.
Выводы пугают количеством предстоящих переделок скриптов под Windows 7 + IE9.
Прошу помочь разобраться.

Спасибо.