Obtenir le titre des fenêtres ouvertes

Publié le par ..::P1l0u::.

Aujourd'hui je vous ai fait une petite vidéo afin que vous puissiez voir un apercu de ce que vous pouvez réalisez avec ce bout de code !

J'espere que cela vous interessera.

Video:

Source:

Public Class Form1

 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Timer1.Start()

    End Sub

    Private Declare Function GetForegroundWindow Lib "user32.dll" () As Int32

    Private Declare Function GetWindowText Lib "user32.dll" Alias "GetWindowTextA" (ByVal hwnd As Int32, ByVal lpString As String, ByVal cch As Int32) As Int32

    Dim strin As String = Nothing

    Private Function GetActiveWindowTitle() As String

        Dim MyStr As String

        MyStr = New String(Chr(0), 100)

        GetWindowText(GetForegroundWindow, MyStr, 100)

        MyStr = MyStr.Substring(0, InStr(MyStr, Chr(0)) - 1)

        Return MyStr

    End Function

 

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick

        If strin <> GetActiveWindowTitle() Then

            TextBox1.Text += vbNewLine & "[------" & GetActiveWindowTitle() & "------]" + vbNewLine

            strin = GetActiveWindowTitle()

        End If

    End Sub

End Class

 

Publié dans Codes sources

Commenter cet article