1 Тема от Mickey666x

  • Mickey666x
  • Участник
  • Неактивен

Тема: VBScript объект Internet Explorer событие StatusTextChange

Вопрос: в определенном месте кода дождаться события. В данном случае через 10 сек после навигации на страницу, отловить событие StatusTextChange, когда в строке статуса появится http://forum.script-coding.com/ (при наведении курсора на ссылку) После чего продолжится выполнение кода.

Dim IE, STC
STC = False
Set IE = WScript.CreateObject("InternetExplorer.Application", "IE_")
IE.Visible = True
IE.Navigate ("http://script-coding.com/")
WScript.Sleep 10000
STC = True

While STC = True
    WScript.Sleep 200
Wend

MsgBox ("Форум")
IE.Quit
Wscript.Quit

Sub IE_StatusTextChange(ByVal sText)

    If STC = True Then
        If sText = "http://forum.script-coding.com/" Then
            STC = False
        Else
            Exit Sub
        End If
    End If
    
End Sub

Sub IE_OnQuit()
    MsgBox ("Quit")
    WScript.Quit
End Sub

Сам придумал пока вопрос писал! Другой вопрос: Рациональный ли код, или попроще есть?

2 Ответ от alexii

  • alexii
  • Разработчик
  • Неактивен

Re: VBScript объект Internet Explorer событие StatusTextChange

Используйте свойства «.Busy» и «.ReadyState», наподобие этого.