VB实现天气查询

其实方法很是简单，就是从网页上抓取有用信息即可。只不过要在vb中先填入"Microsoft Internet Controls"这个部件，因为要使用到其中的WebBrowser。添加方法很简单，添加后如下图：

准备工作已经就绪，正式工作开始：

新建一个form表，在其上添加一个WebBrowser，一个按钮，一个Label。WebBrowser就是我们的网页承载器了。下面给出示例：

Private Sub Command1_Click()

Call WebBrowser1.Navigate("http://php.weather.sina.com.cn/search.php?city=北京")

Label11.Caption = "请 稍 后 …"

End Sub

下载下来的网页部分内容如下：

源文件部分如下：

既然知道文件的具体内容了，也就好搜索所需信息了，下面就是重点：

  Private Sub WebBrowser1_DownloadComplete()
  On Error Resume Next
  weatherpage = WebBrowser1.Document.documentElement.innerHTML
          Dim nhEndIndex     As Long
          Dim nhBeginIndex     As Long

          Dim htemperature As String
          Dim ltemperature As String
         
          Dim nlEndIndex     As Long
          Dim nlBeginIndex     As Long
     
              nhEndIndex = InStr(70, weatherpage, "℃")
              If nhEndIndex > 0 Then
                  nhBeginIndex=InStrRev(weatherpage,">",nhEndIndex)+1
                  Label1=counterweather
                  htemperature=Mid(weatherpage,nhBeginIndex,nhEndIndex-nhBeginIndex+1)                 
                 
                  nlEndIndex=InStr(nhEndIndex+1, weatherpage, "℃")
                  nlBeginIndex=InStrRev(weatherpage,"～",nlEndIndex)+1
                  ltemperature=(Mid(weatherpage,nlBeginIndex,nlEndIndex-nlBeginIndex+1))
                 
                  Label1="北京今天："&htemperature &"～"              End If
  End Sub

简单讲解一下就是：找到第一个℃，从℃往前到>为止的内容是最高温度部分，再往下找下一个℃，从这个℃往前到～，是最低温度部分。分别进行赋值给htemperature 和 ltemperature 然后通过label1显示即可。

注意：这段程序是和网页的内容相关的，如果你选择的气象网站的内容不是这样排列的，大家就要稍微修改一下代码了，但万变不离其宗。

当然，上面只是简单介绍了这种方法，还很不完善。比如：网页可能刷新很慢，或者出错怎么办？呵呵，当然方法很多也不难，还是大家自己想想吧，我就不多言了！

而且再次说下，这个方法不只适用于天气预报，只要是获取网页信息的，都适用。比如：股票信息，招聘信息，价格etc.

还是保留节目，show下我自己的软件：（自己也认为很弱）