¿Cómo utilizar la interfaz de datos bursátiles de Sina en VB? neto

Hice este proyecto en vb6.0, pero también encontré este problema en VB.NET. Vea si puede comunicarse. Acabo de cambiar a VB.NET. Algunos códigos en vb6.0 son los siguientes:

Atenuar HttpReq como objeto

Atenuar solicitud en forma de cadena

HttpReq = CreateObject("MSXML2.

XMLHTTP.3.0")

HttpReq.open("GET ", uri, False)

HttpReq.send()

Analizar el valor de retorno

solicitud = HttpReq.responseBody

solicitud = Split(Split(StrConv(solicitud, vbUnicode y ampH804)," = "(1),";")(0)

上篇: Tome el autobús desde Liusha hasta Shantou. ¿Dónde se bajará en Chaoyang? 下篇: ¿Por qué los bancos comerciales piden prestado a corto plazo y prestan a largo plazo?