تحكم فى جهاز كمبيوترك عن طريق الكلام

كود:
Private Sub Form_Load()
reco.GrammarFromFile App.Path & "\Words.txt"
reco.Activate

Agent.Characters.Load "Genie", "Genie.acs"
Set Bot = Agent.Characters("Genie")
Bot.Show

Bot.****To 345, 210

Bot.Speak "Hi"
Bot.Speak "How are you?"

End Sub

Private Sub reco_PhraseFinish(ByVal flags As Long, ByVal beginhi As Long, ByVal beginlo As Long, ByVal endhi As Long, ByVal endlo As Long, ByVal Phrase As String, ByVal parsed As String, ByVal results As Long)

Select Case Phrase


Case "Notepad"
Shell "C:\Windows\NOTEPAD.exe", vbNormalFocus

Case "Microsoft Paint"
Shell "C:\Program Files\Accessories\MSPAINT.EXE", vbNormalFocus

Case "Close"
End


End Select
End Sub
__________________

رابط اخر

من هنا__________________