获取114上的天气预报
如题

[解决办法]
'http://www.soso.com/tb.q

VB code

Private Sub Command1_Click()Dim s As String, l As Integers = WebBrowser1.Document.body.innerTexta = Split(s, vbCrLf)For i = 0 To 11s1 = s1 & a(i) & vbCrLfNext  MsgBox s1End SubPrivate Sub Form_Load()WebBrowser1.Navigate "http://www.soso.com/tb.q"End Sub