Hej undrar om någon vet hur man gör ett program som tar ut vädret i vissa städer

Snälla behöver verkligen hjälp snabbt:)

Det första du måste ha är någonstans att hämta informationen ifrån, en datakälla av något slag. Mest troligtvis någon vädersite någonstans. Sedan lär du få göra någon screen-scraping, dvs. parsa sidan och plocka ut informationen du är intresserad av.

Det är det som är problemet vet inte hur jag ska plocka ut det

Kommer inte ihåg hur man gör i vb riktigt, men vill minnas att det fanns någon activex-kontroll, msinet eller något, som kan ladda ner sidor åt dig. Du får begära att den laddar ner din vädersida, sedan får du html-koden i en sträng. Den kan du sedan parsa på lämpligt sätt, antingen med sträng-funktionerna, eller med regexp.

Den här länken:
http://svt.se/svt/jsp/Crosslink.jsp?d=52724&a=605953&selectedId=10010106087
Och jag vill ha detta
I dag: Temp 3°C, Nederbörd/timme: 0.0 mm Solupgång kl.08:40 Solnedgång kl.15:38
Har testat mycket skulle var mycket till hjälp om någon kom på hur:)

Det första jag gjorde var att istället använda sidan http://svt.se/svt/jsp/Crosslink.jsp?d=77935&a=605953&printerfriendly=true&forcastType=1&continentId=10&countryId=1001&locationId=10010106087, dvs. en utskriftsvänliga sidan istället.

Titta på http://msdn2.microsoft.com/en-us/library/aa733648(VS.60).aspx för hur du hämtar sidor med vb 6

Ett exempel på hur jag hämtar lufttrycket från Bromma flygplats.
Jag använder Inetcontrollen Inet1.
http://weather.noaa.gov/weather/current/ESSB.html

<code>
Option Explicit
Private Sub Command1_Click()
Dim sChunk As String, ret As Long
Dim sPressure As String
Dim iContentLenght As Long
On Error GoTo NoInet
Inet1.URL = "http://weather.noaa.gov/weather/current/ESSB.html"
Inet1.Execute
Do While Inet1.StillExecuting = True
DoEvents
Loop
iContentLenght = Inet1.GetHeader("Content-Length")
sChunk = Inet1.GetChunk(iContentLenght)
ret = InStr(sChunk, "Pressure (altimeter)")
sPressure = Mid$(sChunk, ret + 95, 4)
Form1.Caption = "Bromma QNH " & sPressure & " hPa"
BrommaOk:
Exit Sub
NoInet:
Form1.Caption = "Bromma QNH Fel"
Resume BrommaOk
End Sub
</code>