如果页面上有文字，如何让我的程序提醒用户？

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