Red de conocimiento informático - Problemas con los teléfonos móviles - vb ¡Obtén el código fuente de la página web!

vb ¡Obtén el código fuente de la página web!

Citando datos de objetos de Microsoft Activex 2.5

Private Sub Form_Load()

Dim xml como objeto, ReturnType como cadena

Set xml = CreateObject(" Microsoft.XMLHTTP" )

xml.Open "GET", "/test/read.cgi/kaden/1223701996/", False

xml.SetRequestHeader "CONTENT-TYPE", "application/x -www-formulario-urlencodificado"