Ce site est optimisé pour être consulté depuis un navigateur moderne dans lequel JavaScript est activé.

Petite question sur les handles ! :)

Wordeur

Bonjour j'ai une petite question ! :)

Lorsque j'effectue la fonction pour récupérer l'handles actif de ma page

SPOILER : CACHER
Dim HandleActif As IntPtr = GetForegroundWindow()
MsgBox(HandleActif)
End Sub

Je récupère donc le handles en chiffre , j'aimerais savoir comment grâce a ce chiffre je pourrais récupérer le nom de la page actif :) !

En attente de votre réponde :)

Merci d'avance :)

ToOnS

Bonjour ,

Private Function GetWindowTitle(ByVal window_hwnd As Integer) As String
    Dim length As Integer
    length = GetWindowTextLength(window_hwnd) + 1
    If length <= 1 Then
        ' heu ... y'a pas de titre.
        Return "<" & window_hwnd & ">"
    Else
        Dim buf As String = Space$(length)
        length = GetWindowText(window_hwnd, buf, length)
        Return buf.Substring(0, length)
    End If
End Function

dim Titre_Actif=GetWindowTitle(HandleActif)

MsgBox(Titre_Actif)

Wordeur

Merci beaucoup :) je test ça ce soir et je te tiens au courant :)

Wordeur

Et je ne comprend pas le code

Cliquez pour révéler Cliquez pour masquer

windows_hwnd

Ce que ça signifie merci d'avance (et désolé ci ces question peuvent te paraître bête )

ToOnS

c'est juste une variable , en realite c'est la meme chose que HandleActif (handle est plus souvent appellé hwnd (Handle WiNDow) donc => windows_hwnd , d'ailleur ca devrait meme etre window_hwnd , sans S ou meme juste HWND)

ca aurait pu etre :

Private Function GetWindowTitle() As String
    Dim HandleActif As IntPtr = GetForegroundWindow()
    Dim length As Integer
    length = GetWindowTextLength(HandleActif) + 1
    If length <= 1 Then
        ' heu ... y'a pas de titre.
        Return "<" & HandleActif & ">"
    Else
        Dim buf As String = Space$(length)
        length = GetWindowText(HandleActif, buf, length)
        Return buf.Substring(0, length)
    End If
End Function

MsgBox(GetWindowTitle)