Cómo obtener directamente datos bursátiles en tiempo real usando VB

Se pueden obtener datos bursátiles en tiempo real llamando a ChinaStockWebService. El código es el siguiente:

? ¿público? cadena[]? getStockInfo(cadena? código de stock)?

{

//¿Cadena? URL? =?"/list = " código de stock;

//código de stock? El símbolo de cotización de la acción.

¿Cadena? URL? =?"/list = sh 600683 ";

¿Cliente Web? ¿cliente? =?¿Nuevo? WebCliente();

Cliente. Headers.Add("Tipo de contenido ",? "text/html;? charset = GB 2312 ");

¿Transmisión? ¿datos? =?Cliente. OpenRead(url);

¿StreamReader? ¿lector? =?¿Nuevo? StreamReader(datos, codificación.get codificación(" GB 2312 ");

String?s?=?Reader.ReadToEnd();

Reader.close();

Data.close();

¿Regresar a s.Split(', ');

}