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

null@example.com (alexii) — Sat, 26 Mar 2011 02:19:04 +0000

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

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

null@example.com (Mickey666x) — Sat, 26 Mar 2011 01:01:26 +0000

Вопрос: в определенном месте кода дождаться события. В данном случае через 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

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

Серый форум — VBScript объект Internet Explorer событие StatusTextChange

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

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