VB/VB.Net 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

Spoiler

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)