AntiGuide: AudaCityOnOff

Public Class Form1
    Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As IntPtr, ByVal lpString As String, ByVal cch As Long) As Integer
    Private Declare Function GetForegroundWindow Lib "user32" () As IntPtr

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        po2()
    End Sub

    Public Function myGetForeGroundWindowTitle() As String
        Dim title As String = New String(" ", 200)

        Dim titleLength As Integer = GetWindowText(GetForegroundWindow(), title, Len(title) + 1)

        Return title

    End Function

     Private Sub po2()

        ' fenêtre Audacity
        Dim auda As String
        auda = myGetWindowTitleNameByProcessName("audacity")
        ' cherher cible
        '       Dim s As String = 
        Dim liste As String = myGetForeGroundWindowTitle()


        Try
            AppActivate(Trim(auda))
        Catch ex As Exception
            MsgBox("Pas trouvé la fenêtre Audacity " & vbCrLf & ex.Message)
            End
        End Try

        Application.DoEvents()
        Threading.Thread.Sleep(100)

        SendKeys.SendWait("p")
        Threading.Thread.Sleep(100)
        '    MsgBox(liste)
        If Len(liste) > 0 Then
            Try
                AppActivate(Trim(liste))
            Catch ex As Exception
                '       MsgBox("Echec activation de la fenêtre " & liste & vbCrLf & ex.Message)
                End
            End Try

        End If

        End
    End Sub

    Function myGetWindowTitleNameByProcessName(ByVal sProcessName As String) As String
        Dim sResult As String = ""
        For Each oProc As Process In Process.GetProcessesByName(sProcessName)
            sResult = (oProc.MainWindowTitle)
        Next oProc
        Return sResult
    End Function


End Class