获取当前股价的程序(VB.NET)

以下以GOOG为列, VB.NET为编程语言:

Dim URL As String = "http://finance.yahoo.com/d/quotes.csv?s=GOOG&f=sl1d1t1c1ohgv&e=.csv"
Using x As New WebClient
Dim Fields() As String = Encoding.ASCII.GetString(x.DownloadData(URL)).Replace("""", "").Split(",")
End Using

获取历史股价的程序(C#)见
http://forum.xitek.com/showthread.php?threadid=486789