¿Cómo utilizar VB para extraer contenido JS en Internet?

xmlmand1_Click() de vb6.0

text1.text=GetCode("gb2312","/j.js")

end sub

Función pública GetCode(CodeBase, Url) 'El primer parámetro es establecer el método de codificación (GB2312 o UTF-8) y el segundo parámetro es la dirección.

Dim xmlHTTP1

Establecer xmlHTTP1 = CreateObject("Microsoft.XMLHTTP")

xmlHTTP1.Open "get", Url, True

xmlHTTP1.send

Mientras que xmlHTTP1 .ReadyState <> 4

DoEvents

Wend

GetCode = xmlHTTP1.ResponseBody

Si CStr(GetCode) <> "" Entonces GetCode = BytesToBstr(GetCode, CodeBase)

Establecer ObjXML = Nada

Función final

Función pública BytesToBstr(strBody, CodeBase)

Dim ObjStream

Establecer ObjStream = CreateObject("Adodb.Stream")

Con ObjStream

.Type = 1

.Mode = 3

.Abrir

.Escribir strBody

.Posición = 0

.Tipo = 2

. Charset = CodeBase

BytesToBstr = .ReadText

.Close

Terminar con

Establecer ObjStream = Nada

Función final

____________________________________________

Nunca usé VS10

Mira si hay xml/blog/static/1014013112008101264439157/