检查网页是否包含特定文本

Question

如果网页上有TEXT，我需要一个VBScript。我对IE没有问题，但由于某些情况我需要使用FF / Chrome。

Dim page 
Dim ff
page = "myURL"
Set ff = CreateObject("Shell.Application")
ff.ShellExecute "firefox.exe", page, "", "", 1
WScript.Sleep 3000
Dim login
Set login = CreateObject("WScript.Shell")
login.SendKeys "{TAB}"
login.SendKeys ("login")
login.SendKeys "{TAB}"
login.SendKeys ("passwd")
login.SendKeys "{ENTER}"
Set login = Nothing
WScript.Sleep 2000

打开→登录→如果页面包含TEXT（已登录），我需要获取弹出消息。使用IE我得到了这个，好吧，但我究竟能为Firefox做同样的事情吗？

If InStr(IEapp.Document.body.innertext, "Test") Then
  WScript.Echo "1:ok"
Else
  WScript.Echo "0:down"
End If

Answer 1

使用VBScript你不能。 Firefox和Chrome不支持COM自动化。您可以使用AutoIt或Selenium之类的内容来完成此操作，但我没有相关经验。