获取114上的天气预报,该怎么解决
获取114上的天气预报
如题
------解决方案--------------------
'http://www.soso.com/tb.q
如题
------解决方案--------------------
'http://www.soso.com/tb.q
- VB code
Private Sub Command1_Click() Dim s As String, l As Integer s = WebBrowser1.Document.body.innerText a = Split(s, vbCrLf) For i = 0 To 11 s1 = s1 & a(i) & vbCrLf Next MsgBox s1 End Sub Private Sub Form_Load() WebBrowser1.Navigate "http://www.soso.com/tb.q" End Sub