Question

VB 怎么实现点击按钮自动获取天气预报

VB 怎么实现点击按钮自动获取五天天气预报
希望大神能给出代码，非常感谢

Answer 1

为了方便，文本框改成数组控件。代码中用北贺谨茄京作为天气预报地点，改的话将网址改下即可，具体方法可以百度。另外，新浪天气禅察预报只有4天。最后说明一下，除了晌稿标签和文本框，没用其它控件。

Answer 2

问题提的不错简亩，获取天码咐备气是要用WebService的，VB6.0不是使用DLL，而是直接Microsoft XML v6.0,天气服务提供接口方法：

Private Sub Command1_Click()
 Dim MyHTTP As XMLHTTP
 Dim MyXmlDoc As DOMDocument
 Dim strWebserURL As String, strRequest As String
 Dim s As String
 strWebserURL = "http://www.webxml.com.cn/WebServices/WeatherWebService.asmx/getWeatherbyCityName"
 '//getWeatherbyCityName方法是返回几天内天气，你要
 strRequest = "theCityName=" 迟毁+ Text1.Text    '//城市名称在文本框
 Set MyHTTP = New XMLHTTP
 MyHTTP.Open "POST", strWebserURL, False
 MyHTTP.setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
 MyHTTP.send (strRequest)
 Set MyXmlDoc = New DOMDocument
 MyXmlDoc.Load MyHTTP.responseXML
 Print MyXmlDoc.Text
End Sub

Answer 3

我是用的webbrowser。这个很简单 。需要添加下Microsoft InternetControls部件，添加一个webbrowser。用的是http://weather.sina.com.cn/的数据。因为text太多，我用的是控件组。分析处理一下就好了.经测试无误。你给个邮箱我可以把exe或者安装文件发给你。

Private Sub Command1_Click()

Do

DoEvents

'等待网页加载完咐斗毕

If WebBrowser1.ReadyState = 4 Then

'以下为提取页面数据

lieshu = 1

'控制每一列列数

For Each x In WebBrowser1.Document.getelementbyid("blk_fc_c0_scroll").All

If LCase(x.tagname) = "div" Then

Text1(lieshu - 1).Text = x.getelementsbytagname("p")(0).innertext

'日期

tianqi = ""

For Each z In x.getelementsbytagname("p")(2).All

If LCase(z.tagname) = "img"斗好 Then

tianqi = tianqi & "/" & z.Title

End If

'天气

Next

Text1(lieshu + 4).Text = x.getelementsbytagname("p")(3).innertext & vbCrLf & tianqi

Text1(lieshu + 9).Text = x.getelementsbytagname("p")(4).innertext '气温

Text1(lieshu + 14).Text = x.getelementsbytagname("p"空简铅)(5).innertext '风向

If lieshu > 4 Then

Exit For

End If

lieshu = lieshu + 1

End If

Next

Exit Do

End If

Loop
End Sub

Private Sub Form_Load()

WebBrowser1.Navigate "http://weather.sina.com.cn/"

End Sub

追问

898545578艾特qq点com谢谢

追答

已发送至你邮箱

Answer 4

建议你抓取第三方网站的天气数据吧，比如新浪 qq天气，抓举姿取他的网页或者天气js，截取合适的日期天气锋孙，逐一显示出来。只是给你个思路。
你可以继续银答链等等，看看是否有人愿意给你写代码。