如果頁面上有文字，我如何讓我的程序提醒用戶？

Question

在VB6中，如果單詞ERROR：出現在網頁上，我想彈出msg框。如果任何人可以將我鏈接到一個網站或只是幫助我們，那會很棒。

Answer 1

請品嚐以下代碼：

URL = "www.yoursite.com" 
Set http = CreateObject("Microsoft.XmlHttp") 
http.open "GET", URL, FALSE 
http.send "" 
IF InStr(http.responseText, "ERROR:") > 0 THEN 
    MsgBox "Some error occurred" 
END IF