finns här någon bussig person som skulle kunna hjälpa mig skriva en funktion som känner av när användaren kopplar upp mot internet eller kopplar ner....

programmet ska räkna tiden som användaren är online...


vet inte hur man kollar efter anslutningar...

Är det modem du tänker på? I sådana fall har jag en fungerande funktion som jag fick en gång för länge, länge sedan...;) Kommer tyvärr inte ihåg vem, men den fungerade i alla fall på Win95-tiden :) Funktionen kontrollerar i alla fall om rutan som talar om att man är ansluten finns, fungerar även om den är minimerad till en ikon i systray.

<code>
Declare Function GetDesktopWindow Lib "user32" () As Long
Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Declare Function GetParent Lib "user32" (ByVal hwnd As Long) As Long
Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long


Function WindowExist(av_Form As String) As Boolean

Const GW_CurrhWndNEXT = 2
Const GW_CHILD = 5

WindowExist = False
On Error GoTo ErrorHandler

Dim CurrhWnd                    As Long
Dim lv_WindowTextLength     As Long
Dim lv_Parent               As Long
Dim lv_Process              As String
Dim lv_Form                 As String

lv_Form = Trim$(av_Form)

CurrhWnd = GetDesktopWindow()
CurrhWnd = GetWindow(CurrhWnd, GW_CHILD)

Do
DoEvents
lv_Parent& = GetParent(CurrhWnd)
lv_WindowTextLength& = GetWindowTextLength(CurrhWnd)
lv_Process$ = Space$(lv_WindowTextLength& + 1)
lv_WindowTextLength& = GetWindowText(CurrhWnd, lv_Process$, (lv_WindowTextLength& + 1))
lv_Process$ = Left$(lv_Process$, Len(lv_Process$) - 1)

DoEvents

'Om Du har den exakta fönstertiteln använd den nedanstående koden
If UCase(Left$(lv_Process$, Len(lv_Form))) = UCase$(Trim$(lv_Form)) Then
WindowExist = True
Exit Do
End If

'Om Du vill ha att alla fönster med en textbit skall ge True använd
'nedanstående kod i stället
'If InStr(UCase(Left$(lv_Process$, Len(lv_Form))), UCase$(Trim$(lv_Form)) > 0) Then
' WindowExist = True
' Exit Do
'End If

CurrhWnd = GetWindow(CurrhWnd, GW_CurrhWndNEXT)
Loop While (CurrhWnd <> 0)

Exit Function


ErrorHandler:
WindowExist = False

End Function





If WindowExist("Ansluten till Algonet") = True Then
'Online
End If
</code>


/Johan