Hej!

Jag har skrivit ett program i vb som kollar av att de tre webbsajter som jag har ansvar för är uppe.

Jag använder mig av kontrollen Microsoft Internet Transfer Control 6.0(SP4) eller MSINET.OCX som den egentligen heter.

Programmet ligger hela tiden och kör på min arbetsstation med Windows XP. Timerkontrollen slår till var 10:e sekund och kontrollerar om man kan läsa en fil som ligger på varje webbsajt med kommandot Inet1.OpenURL(site). Minnesläckan är ca 4k/minut.

Är det Inet eller timern som läcker, eller är det något annat i vb, och hur fixar man läckan? Jag har sett fenomenet på andra program som använder timerkontrollen.

/Janne

Det hade varit intressant att se din kod för att kunna hjälpa dig!

//UJ

PS. Stänger du din anslutning?

Koden är inte så märkvärdig. Jag tar bara med det väsentliga:

Private Sub Timer1_Timer()
Text1.BackColor = checkConn(Text1.Text) 'Sökvägen till filen
Text2.BackColor = checkConn(Text2.Text)
Text3.BackColor = checkConn(Text3.Text)
End Sub

Private Function checkConn(site As String) As Long
If site = "" Then checkConn = vbWhite: Exit Function

On Error Resume Next
If Left(Inet1.OpenURL(site), 12) = "Still alive!" Then
checkConn = vbGreen 'Grön färg = OK
Else
checkConn = vbRed 'Röd färg = problem
End If
End Function