Нужно постоянно запускать собственный режим IE9 на win7 64biz - PullRequest
Новая
       13

Нужно постоянно запускать собственный режим IE9 на win7 64biz

1 голос
/ 04 марта 2012

Я уже выяснил, что следующий ключ реестра (обычно) постоянно запускает собственный режим IE9 

Windows Registry Editor Version 5.00

[HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\Safety\PrivacIE]
"FilteringMode"=hex(b):01,00,00,00,00,00,00,00

(у меня даже не было ключа безопасности в моем реестре раньше, и я добавил его вручную)

К сожалению, это, похоже, не работает на 64-битной Windows7

Добавление ярлыка с -inprivate для меня не вариант, так как я хочу использовать IE9 через VBA

Любые советы / советы?

1 Ответ

1 голос
/ 04 марта 2012

Булыжник повсюду: 

Dim sh As Object, oWin As Object, IE As Object
Dim wss As Object

Set wss = CreateObject("WScript.Shell")
Set sh = CreateObject("Shell.Application")

wss.exec "%ProgramFiles%/Internet Explorer/iexplore.exe -private"     
''You will probably need a delay here
For Each oWin In sh.Windows
    If TypeName(oWin.Document) = "HTMLDocument" Then
        Set IE = oWin
        Exit For
    End If
Next

With IE
    .navigate "http://stackoverflow.com"

    Do While .busy
        DoEvents
    Loop
    Do While .readystate <> 4
        DoEvents
    Loop
End With
...