Exemple

Public Function Usager() As String
On Error Resume Next
Dim AOL As Long, mdi As Long, Bienvenue As Long
Dim child As Long, Speudo As String
AOL& = FindWindow("AOL Frame25", vbNullString)
mdi& = FindWindowEx(AOL&, 0&, "MDIClient", vbNullString)
child& = FindWindowEx(mdi&, 0&, "AOL Child", vbNullString)
Speudo$ = GetCaption(child&)
If InStr(Speudo$, "Bienvenue,") = 2 Then
Speudo$ = Mid$(Speudo$, 1, (InStr(Speudo$, "!") + 1))
Usager$ = Speudo$
Exit Function
Else
Do
child& = FindWindowEx(mdi&, child&, "AOL Child", vbNullString)
Speudo$ = GetCaption(child&)
If InStr(Speudo$, "Bienvenue,") = 2 Then
Speudo$ = Mid$(Speudo$, 1, (InStr(Speudo$, "!") + 1))
Usager$ = Speudo$
Exit Function
End If
Loop Until child& = 0&
End If
Usager$ = ""
End Function

Usager = nom de la fenetre child de la midclient

Je sais que la fonction KillWindow va killer le handle de la fenetre principale

Public Sub KillWindow(LaWindow As String)
Dim Handle As Long
Handle = FindWindow(vbNullString, LaWindow)
PostMessage Handle, WANNAKILL, 0, 0
End Sub

Mais je voudrais faire une autre fonction pour killer la fenetre usager

Public Sub KillBienvenue( )

????????????
End Sub