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

كود:


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.MoveTo 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




CODE

[Grammer]
type=cfg
[<start>]
<start>=Notepad
<start>=Microsoft Paint
<start>=Close














وهذه هي البرامج المطلوبة :
Speech Recognition :

------------------------------------

SAPI SDK 4.exe
من هنا

------------------------------------

SAPI SDK 4 Suite.exe
من هنا

------------------------------------

spchapi.EXE
من هنا

************

Microsoft Agent Server :
Download the Microsoft Agent SDK ********ation in compiled help (.chm) format (708 kB .zip archive)
من هنا

------------------------------------

Download the Microsoft Agent Character Editor (1 MB exe)
من هنا

------------------------------------

Download the Microsoft Agent Linguistic Information Sound Editing Tool (6.2 MB exe)
من هنا





وكل عام وانتم بخير


والسلام...
________