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

Question

我需要一个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 

打开→登录→，然后我需要的，如果页面包含文本（登录）或没有得到一个弹出式消息。使用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之类的东西来做，但我没有这方面的经验。