Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > VBS InternetExplorer.Application Navigate виснет

Автор: Krask 7.4.2014, 16:21

Доброго времени суток.

Есть проблемка.
Есть корпоративный портал, с заявками.
И есть VBS скрипт, который по номеру заявки открывает страницу, проходит авторизацию и открывает страницу связанную с заявкой.

После очередного обновления в домене скрипт стал подвисать секунд на 15 при открытии страницы.
Причем если открывать ручками, то портал открывается мгновенно.
И еще интересный момент, если запустить скрипт и дождаться загрузки страницы и, не закрывая IE, запустить скрипт еще раз, то уже страница не висит. Т.е. пока есть хоть одно открытое скриптом окошко, следующие открываемые не висят. Стоит закрыть все открытые скриптом окна, опять тормозит при открытии.

Может кто в курсе куда копать?

вот кусок скрипта:

Код


If  trim(ask_num) <>"" then
    set ie = CreateObject("InternetExplorer.Application")
    ie.visible = true
    set sh = createObject("WScript.Shell")
    sh.AppActivate ie
    ie.Navigate("http://portal.ru/Logon.jsp")

    do until not  ie.busy : WScript.sleep(100) : loop
    ie.document.forms("LOGON").username.value = "USERNAME"
    ie.document.forms("LOGON").password.value = "password"
    ie.document.parentWindow.validatePass()
    do until not ie.busy : WScript.sleep(100) : loop
    ie.Navigate("http://portal.ru/request_id="&ask_num)
    
    set ie = nothing
    set sh = nothing
end if

Автор: Akina 7.4.2014, 16:26

А точно подвисает именно ie.Navigate("http://portal.ru/Logon.jsp") ?

Модератор: для кода есть соответствующий тег.

Автор: Krask 9.4.2014, 16:33

Да виснет при вызове страницы.
msgbox ставил чтоб проверить
ну еще если не дождавшись загрузки нажать на обновить, то ругается:

Код


Ошибка: Сбой при удаленном вызове процедуры.
Код: 800706BE

и указывает номер строки где Navigate