Funkar denna kod hos Er ? Den funkar inte på maskin , jag har fått mani på att lösa dett problem
Koden funkar på alla de datorer jag exporterar den till , Men ! inte min varför ?
<code>
Option Explicit

Private Sub Command1_Click()
'1 CommandButton 1 Inet
Dim sChunk As Variant
Dim ret As Long
Dim sPressure As String
Dim iContentLenght As String
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(Int(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>

Fungerar alldeles utmärkt för mig (den här gången också)
"Bromma QNH 1015 hPa"

Låter ju helt klart som att det är din dator som inte vill vara med i matchen, koden fungerar ju uppenbarligen.

Långskott igen:

1. Testa att uppgradera IE till någon senare version, alternativt dra på något servicepack på den.
2. Testa VB6cli - för att registrera om alla vb:s komponenter http://www.pellesoft.se/area/mixed/page.aspx?id=201
3. Kopiera från den "friska" datorn i windows/system inet*.* till din andra dator.

404 - Sidan du söker saknas

Fick jag när jag försökte ladda ner VB6cli.zip

Miss av mig, byt ut "www" till "dev" så komme du åt den.

Tack Fredrik
Om du intresserad av väder kan du hämta på.
http://weather.noaa.gov/weather/current/ESSV.html

Andra som vill söka sina hemtrakter skriver
http://weather.noaa.gov/weather/

Och navigera till Er närmaste Flygplats