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