Imports System.Speech
Imports System.Speech.Recognition

Public Class Form1

    Dim x As String

    Dim WithEvents reco As New Recognition.SpeechRecognitionEngine

    Private Sub SetColor(ByVal color As System.Drawing.Color)

        Dim synth As New Synthesis.SpeechSynthesizer

        synth.SpeakAsync("Going to " + color.ToString + "in chrome")

        Me.BackColor = color

    End Sub


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

        reco.SetInputToDefaultAudioDevice()

        Dim gram As New Recognition.SrgsGrammar.SrgsDocument

        Dim colorRule As New Recognition.SrgsGrammar.SrgsRule("color")

        Dim OpenChrome As New Recognition.SrgsGrammar.SrgsOneOf("Brittney open chrome", "Brittney close chrome",
                                                                "Brittney open firefox", "Brittney close firefox",
                                                                "Brittney open internet explorer", "Brittney close internet explorer",
                                                                "Brittney open notepad", "Brittney close notepad",
                                                                "Brittney open paint", "Brittney close paint")

        colorRule.Add(OpenChrome)

        gram.Rules.Add(colorRule)

        gram.Root = colorRule

        reco.LoadGrammar(New Recognition.Grammar(gram))

        reco.RecognizeAsync()

    End Sub

    Private Sub reco_RecognizeCompleted(ByVal sender As Object, ByVal e As System.Speech.Recognition.RecognizeCompletedEventArgs) Handles reco.RecognizeCompleted

        reco.RecognizeAsync()

    End Sub

    Private Sub reco_SpeechRecognized(ByVal sender As Object, ByVal e As System.Speech.Recognition.RecognitionEventArgs) Handles reco.SpeechRecognized

        Select Case e.Result.Text

            Case "Brittney open chrome"

                System.Diagnostics.Process.Start("chrome.exe", "www.google.com")

            Case "Brittney open firefox"

                System.Diagnostics.Process.Start("firefox.exe", "www.google.com")

            Case "Brittney close firefox"

                Dim firefoxProcesses As Process() = Process.GetProcessesByName("firefox")

                Array.ForEach(firefoxProcesses, Sub(p As Process) p.Kill())

            Case "Brittney close internet explorer"

                Dim internetexplorerProcesses As Process() = Process.GetProcessesByName("iexplore")

                Array.ForEach(internetexplorerProcesses, Sub(p As Process) p.Kill())

            Case "Brittney open internet explorer"

                System.Diagnostics.Process.Start("iexplore.exe", "www.google.com")


            Case "Brittney close chrome"

                Dim chromeProcesses As Process() = Process.GetProcessesByName("chrome")

                Array.ForEach(chromeProcesses, Sub(p As Process) p.Kill())

            Case "Brittney open notepad"

                System.Diagnostics.Process.Start("notepad.exe")


            Case "Brittney close notepad"

                Dim notepadProcesses As Process() = Process.GetProcessesByName("notepad")

                Array.ForEach(notepadProcesses, Sub(p As Process) p.Kill())

            Case "Brittney open paint"

                System.Diagnostics.Process.Start("mspaint.exe")

            Case "Brittney close paint"

                Dim paintProcesses As Process() = Process.GetProcessesByName("mspaint")

                Array.ForEach(paintProcesses, Sub(p As Process) p.Kill())

        End Select

    End Sub

End Class