檢查網頁是否包含特定文字

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之類的東西來做，但我沒有這方面的經驗。