Код:
Option Explicit
Const READYSTATE_COMPLETE = 4
Dim objRegExp
Set objRegExp = WScript.CreateObject("VBScript.RegExp")
objRegExp.Pattern = "^Число3: (\d+?)$"
With WScript.CreateObject("InternetExplorer.Application")
.Visible = False
.Navigate("http://imm.hldns.ru/")
Do
WScript.Sleep 100
Loop Until Not .Busy And .ReadyState = READYSTATE_COMPLETE
WScript.Echo .document.GetElementByID("div3").innerText
If objRegExp.Test(.document.GetElementByID("div3").innerText) Then
If Not StrComp(objRegExp.Execute(.document.GetElementByID("div3").innerText).Item(0).Submatches.Item(0), "100", vbTextCompare) = 0 Then
WScript.Echo "<> 100"
End If
Else
WScript.Echo "Not found"
End If
.Quit
End With
Set objRegExp = Nothing
WScript.Quit 0
