페이지에 텍스트가있는 경우 프로그램에서 사용자에게 경고하도록하려면 어떻게합니까?

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