Pregunta de VB: Cómo determinar si la página se abre normalmente

Los resultados obtenidos con inet son los mismos, por lo que puedes juzgar por el encabezado, pero es muy problemático, puedes considerar el juicio directamente

WebBrowser1.Document.documentElement.innerHTML text no es lo que quiero

Private Sub WebBrowser1_DocumentComplete(ByVal pDD)el texto HTML interno no es lo que desea

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp como objeto, URL como variante)

' Detecta la URL, si coincide con la que especificaste. Si la URL es la misma, se abrirá normalmente

si lcase(url)=lcase("") entonces msgbox "¡Abriendo página!" p>

End Sub

Si la página web contiene un marco cuya dirección no se puede abrir y es posible que no se detecte. Además, si se redirige la página, es posible que no se detecte.

Hay una forma estúpida:

Atenuar a As String, b As Long

Private Sub Command1_Click()

WebBrowser1.Navigate " "

End Sub

.Private Sub WebBrowser1_DownloadComplete()

a = WebBrowser1.Document.documentElement.innerHTML

b = Len ( a)

Si b gt; 1000 Entonces

Text1.text = "La página está abierta"

De lo contrario

Text1. text = "La página no está abierta"

WebBrowser1.Navigate ""

End If

End Sub

Toma hao123.com como Ejemplo:

a Obtenga el código original (código fuente HTML) de la página abierta y use Len para determinar la longitud de la cadena de código original.

(En términos generales, el código original de la página es más corto que el código que normalmente abre la página. Por supuesto, el código de hao123.com tiene mucho más de 1000 caracteres)

Puedes usar lo siguiente El código determina la longitud:

b = Len(a)

Text1.text = b (la longitud del valor de visualización del texto)

Text1.text = b (longitud de visualización del texto)

Text1.text = b (valor de longitud de visualización del texto)

Text1.text = b (valor de longitud de visualización de texto)

Text1.text = b (valor de longitud de visualización del texto) < /p