VB6: Ошибка автоматизации Удаленный вызов процедуры не выполнен

Question

В моем приложении VB6 иногда на каком-то клиентском ПК мы получаем ошибку вроде

Automation error
The remote procedure call failed.

Ошибка приходит для кода, показанного ниже

Dim WithEvents Web_popup  As SHDocVw.InternetExplorer 
    Set Web_popup = Nothing
    Set Web_popup = New SHDocVw.InternetExplorer 
    Set ppDisp = Web_popup.Application

Также для приведенного ниже кода

Dim iE As New SHDocVw.InternetExplorer iE.Navigate "www.example.com", 4 + 8
iE.Visible = True 

В чем может быть причина этих ошибок? Как это решить?

Answer 1

Вы должны включить больше информации при обращении за помощью. Что еще более важно, вы должны указать, какие именно строки вызывают ошибку. При этом мне кажется, что вы не проверяете состояние готовности загрузки html в Explorer. Взаимодействие с веб-страницей до ее полной загрузки вызовет этот симптом.

Если вы проверяете состояние готовности, единственным другим способом, которым я смог выдать ошибку, было включение защищенного режима в Internet Explorer. Некоторые сайты вызывают ошибку, когда защищенный режим включен.