Cómo mostrar contenido específico en VB

La dinámica de VB no puede bloquear otro contenido.

El método factible sigue siendo: descargar primero el código fuente, analizarlo y luego mostrar la parte de cooperación con los medios.

El método específico es:

Agregue los controles webbrowser1 y command1 al formulario, luego copie el siguiente código y presione comando1 después de ejecutarlo para ver el efecto.

Opción explícita

Subcomando privado1_Click()

Dim i, S como cadena, tz como cadena, HttpUrl como cadena

HttpUrl = "/web2.0/home /"

Si IsNull(HttpUrl) = True o HttpUrl = "$False$" Entonces

Salir de Sub

Fin Si

Dim Http

Set Http = CreateObject("MSXML2.XMLHTTP")

Http.open "GET", HttpUrl, False

Http.Send

Si Http.Readystate lt;gt; 4 Entonces

Establecer Http = Nada

Salir de Sub

Fin If

S = StrConv(Http.ResponseBody, vbUnicode)

tz = "footerT"

i = InStr(1, S, tz, vbTextCompare)

i = InStrRev(S, "lt;", i, vbTextCompare)

S = Mid(S, i)

tz = "lt;/divgt ;"

i = InStr(1, S, tz, vbTextCompare)

S = Izquierda(S, i Len(tz) - 1)

S = Reemplazar(S, "./images", "/web2.0/images", , , vbTextCompare)

WebBrowser1.Document.Write S

Establecer Http = Nada

p>

Si Err.Number lt;gt; 0 Entonces

Err.Clear

End If

End Sub

Sub privado Form_Load()

WebBrowser1.Navigate "acerca de: en blanco"

End Sub