VPF::VBS InternetExplorer.Application Navigate виснет - Форум программистов

Krask

Дата 7.4.2014, 16:21 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 10.12.2006

Репутация: нет
Всего: нет

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

Есть проблемка.
Есть корпоративный портал, с заявками.
И есть 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:24

Akina

Дата 7.4.2014, 16:26 (ссылка)

(нет голосов)

Загрузка ...

Советчик

Профиль
Группа: Модератор
Сообщений: 20570
Регистрация: 8.4.2004
Где: Зеленоград

Репутация: 34
Всего: 453

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

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

--------------------

О(б)суждение моих действий - в соответствующей теме, пожалуйста. Или в РМ. И высшая инстанция - Администрация форума.

Krask

Дата 9.4.2014, 16:33 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 10.12.2006

Репутация: нет
Всего: нет

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

Код


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

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

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »