بسم الله الرحمن الرحيم
اولا: يجب ان تثبت في كمبيوترك برنامج Speech Recognition وهو موجود في موقع مايكروسوفت
ثانيا: يجب ان تثبت في كمبيوترك برنامج Microsoft Agent Server
ثالثا: تتبع الخطوات الموجودة في الصورة التالية:-
[لا يسمح للزوار بمشاهدة الروابط. اضغط هنـا للتسجيل...]
رابعأ: إضغط على الفورم مرتين وضع هذا الكود
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"
****l "C:\Windows\NOTEPAD.exe", vbNormalFocus
Case "Microsoft Paint"
****l "C:\Program Files\Accessories\MSPAINT.EXE", vbNormalFocus
Case "Close"
End
End Select
End Sub
خامسا: إنشئ ملف **** وسمي هذا الملف باسم Words وضع فيه هذه البيانات
CODE
[Grammer]
type=cfg
[<start>]
<start>=Notepad
<start>=Microsoft Paint
<start>=Close
سادسا: ضع ملف Words في نفس المشروع
وهذه ملحوظة مهمة :
شغل البرنامج وتتكلم
في المثال انا وضعت ثلاث كلمات
1- كلمةNotepad لفتح برنامج Notepad
2-كلمة Microsoft Paint لفتح برنامج Microsoft Paint
3- كلمة Close لإغلاق البرنامج
هذه الصورة توضح ذلك
[لا يسمح للزوار بمشاهدة الروابط. اضغط هنـا للتسجيل...]
وشكراً لكم
كيف تتحكم بجهازك ن طريق الكلام !!! بالفايجوال بيسك 
النمط المتتابع
