获取114上的天气预报如题[解决办法]http://www.soso.com/tb.qVB codePrivate Sub Command1_Click()Dim s
获取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