Зависает процедура при вызове модального окна IE

[Fordros]

Добрый вечер уважаемые!
Проблемка возникла при выполнении одной процедуры по парсингу в IE, а именно когда нажимаю на кнопку в браузере которая вызывает окно характера: "Вы точно хотите сделать то что делаете? ДА/НЕТ"... и тут макрос зависает, и эксель тоже... Если окно закрыть - макрос продолжает работать с места вызова этого же окна...
Как с этим бороться?

[gling]

Как с этим бороться?

Как это посмотреть?

[Fordros]

Сообщение от gling

Как это посмотреть?

не понял вопроса? посмотреть как зависает макрос?
З.Ы. вот кусочек кода:

...
 Set IE = CreateObject("InternetExplorer.Application")
...
URL_card = "http://pcard.fcbank.com.ua/issuing/issuing/cards.php?fhSerno=" & SerID3 & ""
IE.Navigate URL_card
While IE.Busy Or (IE.readyState <> 4): DoEvents: Wend

For Each x In IE.document.getElementsByTagName("a")
    If x.ClassName = "panel" And x.innerText = "Закрыть карту" Then 
        x.Click ' ------------------------- после выполнения этого шага появляется окошко и зависает макрос... 
'если окно закрыть или же выбрать один из вариантов ДА/НЕТ - окно пропадает и макрос начинает работать дальше с этого же места...
    End If
Next

[kalbasiatka]

Сообщение от Fordros

не понял вопроса? [/CODE]

Был тонкий намёк на отсутствие файла.
Может "If x.ClassName = "panel" And x.innerText = "Закрыть карту" Then " не одна такая на странице?

[Fordros]

Сообщение от kalbasiatka

Был тонкий намёк на отсутствие файла.
Может "If x.ClassName = "panel" And x.innerText = "Закрыть карту" Then " не одна такая на странице?

Смысл вылаживать файл не вижу, так как парсинг ведется закрытого сайта и потестить не получится... Ссылка одна и она находится и нажимается, после чего выскакивает окно подтверждения закрытия карты и вот здесь макрос виснет без возможности поставить себя на паузу или же остановить, пока активно вышеупомянутое окно...

З.Ы. старожилы ветки молчат... видимо дело пахнет керосином...

[EducatedFool]

Сложно очень тут помочь вам...
Нет доступа к исходному коду страницы (надо смотреть, что за скрипты там срабатывают, и как это обойти)

Имеет смысл попробовать работать с сайтом через WinHTTPRequest - оправляя напрямую нужные запросы
(без браузера, - и, соответственно, без скриптов, отображающих диалоговые окна)

Или попробовать отключить скрипты в IE

[Fordros]

Сообщение от EducatedFool

Сложно очень тут помочь вам...
Нет доступа к исходному коду страницы (надо смотреть, что за скрипты там срабатывают, и как это обойти)

код чистого хтмл:

PHP код:

<TD vAlign=top noWrap><A class=panel onclick="return clickCard('close_card')" href="">Закрыть карту</A></TD></TR></TD></TR> 


Имеет смысл попробовать работать с сайтом через WinHTTPRequest - оправляя напрямую нужные запросы
(без браузера, - и, соответственно, без скриптов, отображающих диалоговые окна)

Я уже пробовал работать средствами WinHTTPRequest, но сайт на протоколе https... Подробнее ЗДЕСЬ, может Вы чем-то поможете...

Или попробовать отключить скрипты в IE

делается для многих пользователей... не вариант...

[Fordros]

вот код JS на который ссылается кнопка...

PHP код:

<SCRIPT language=javascript src="/jscript/pop_up_prompt.js"></SCRIPT>

<SCRIPT language=javascript>
var serno = "2194718", 
    cSupp = "0", 
    aserno = "2805551",
    mpa = "",
    n_card = "4146323111111111",
    o_form = d.MainForm; // объект формы для использования в JS-функциях


if (!(serno))
    showSearchCard();

/** Окно поиска основной карты */
function showSearchCard()
{
        var naSearch = showModalDialog('/issuing/includes/searchCard.inc.php?module=issuing', '', 'dialogHeight:575px; dialogWidth:850px; resizable:no; status:no');
    
    if (naSearch != null)
    {
        if (o_form.clSSnumberCheck) 
            o_form.clSSnumberCheck.checked = false;
        
        // перезагрузка формы (global o_form) с присвоением значений элементам из объекта значений 
        click_action({fhDSN:((naSearch.dsn != undefined) ? naSearch.dsn : ''), fhSerno:naSearch.card_serno, CardNumber:naSearch.number, fhMode:''}, ''); 
    }
    
    return false;
}