Weather Thing Source

[PhearAlmighty]

Just showing I can do shit.

Allows the user to enter a zip code then gets the weather, current temp, and feels like temp from weather.com

Dim strHTML As String
Private Sub Command1_Click()
If LenB(Text1.Text) <> 0 Then
Dim weather As String
Dim curTemp As String
Dim FeelsLike As String
    'get weather.com info
    strHTML = wrapper.GetWrapper("http://www.weather.com/weather/local/" & Text1.Text, "http://www.weather.com/")
        'get weather
        weather = iBetween(strHTML, "ALT=><BR><B CLASS=obsTextA>", "</B></TD>")
        weather = "Current Weather: " & vbNewLine & weather
        If weather = "Current Weather: " & vbNewLine Then weather = "Current Weather: "
        lblWeather.Caption = weather
            'get current temp
            curTemp = iBetween(strHTML, "<B CLASS=obsTempTextA>", "&deg;")
            curTemp = "Current Temp: " & curTemp & ChrW$(176)
            If curTemp = "Current Temp: " & ChrW$(176) Then curTemp = "Current Temp: "
            lblTemp.Caption = curTemp
                'get feels like temp
                FeelsLike = iBetween(strHTML, "Feels Like<BR> ", "&deg;")
                FeelsLike = "Feels Like: " & FeelsLike & ChrW$(176)
                If FeelsLike = "Feels Like: " & ChrW$(176) Then FeelsLike = "Feels Like: "
                lblFeel.Caption = FeelsLike
Else
MsgBox "Insert a ZIP Code!", , "Weather Center"
Exit Sub
End If
End Sub
Private Sub Form_Unload(Cancel As Integer)
wrapper.ClearCookies
wrapper.StopIT = True
Call EndIt
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii <> 8 Then
    If KeyAscii <> 9 Then
        If KeyAscii < 48 Then KeyAscii = 0
            If KeyAscii > 57 Then KeyAscii = 0
                Else: Exit Sub
End If: End If
End Sub