不知道接口返回的数据是怎样的。一般这种,都需要用到webbrowser控件,要对返回的数据进行分析处理。例如
Dim web As New System.Windows.Forms.WebBrowser()
web.Navigate("http://city.ip138.com/city.asp")
Do Until web.ReadyState = 4
Application.DoEvents
Loop
Dim elems As System.Windows.Forms.HtmlElementCollection
Elems = web.Document.GetElementsByTagName("Body") '根据标签得到数据集合
Dim data As String = elems(0).InnerText
Dim start As Integer = data.IndexOf("[") + 1
Dim en As Integer = data.IndexOf("]")
msgbox(data.SubString(start, en - start))
[此贴子已经被作者于2012-11-22 11:09:13编辑过]