Les machines ne font pas d'erreurs
Heureusement nous sommes humains
Les machines ne font pas d'erreurs
Heureusement nous sommes humains
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionPrivate Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hwnd As Int32, ByVal lpString As String, ByVal cch As Int32) As Int32 Private Declare Function GetForegroundWindow Lib "user32.dll" () As Int32 Private Function Titredelafenetreactive() As String Dim titre As String titre = New String(Chr(0), 100) GetWindowText(GetForegroundWindow, titre, 100) titre = titre.Substring(0, InStr(titre, Chr(0)) - 1) Return titre End Function