vb6 - How can I make my program alert the user if there is text on the page?

Question

In VB6, I want to make a msg box pop up if the word ERROR: appears on the webpage. If anyone could link me to a website or just help we out, that would be great.

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