مساعدة

متسهل

عضو جديد
إنضم
28 فبراير 2006
المشاركات
3
مجموع الإعجابات
0
النقاط
0
أنا طالب ماجستير في الحاسب الإلكتروني وأريد عمل مشروع تخرج ( برنامج ) أعمل حالياً مدرس في مدرسة أعرف قليل عن VB وأرغب في عمل مشروعي عليها ،اقترح علي أحد الأصدقاء عمل مشروع يتعلق بـ Telephony_Application_Programming_Interface TAP فتاوى على الهوا ( أن يتصل الشخص بالبيلفون على رقم تلفون ثم ترد سكرتيرة آلية ، مثلاً : رقم1 لأخذ جواب سؤال سابق بعد ادخال رقم السؤال ، رقم 2 : طرح سؤال جديد ثم تخزين السؤال صوتياً )
هل منكم من يستطيع مساعدتي في ذلك وجزاكم الله خير الجزاء.:33:
 

رحمة

عضو جديد
إنضم
28 فبراير 2006
المشاركات
2
مجموع الإعجابات
0
النقاط
0
مستهيألى حتحتاج تدرس الapi بتاعة tapi كل اللى أقدر أقوله لك أنها مختلفة عن منهك أولة ثانوى خاللللللللللللص بس الفكرة حلوة قوى و تسمى auto attend وتستعمل فى الpbx من ضمن العديد من الخصائص الأخرى
مثال لعمل إتصال تليفونى ................. و من الممكن الإستعانة ببرنامج api guide للتعرف على المزيد من دوال الapi و ربنا يوفقك
'Example by Joacim Andersson (joacim*programmer.net)

'Author comments: I often get asked the question "How can

'I dial a phone number from VB?". Well, you can add

'the MSCOMM32.OCX control to a form but that isn't necessary

'if you just want to dial a phone number.

Private Declare Function tapiRequestMakeCall Lib "TAPI32.DLL" (ByVal Dest As String, ByVal AppName As String, ByVal CalledParty As String, ByVal Comment As String) As Long

Private Sub PhoneCall(sNumber As String, sName As String)

Dim lRetVal As Long

lRetVal = tapiRequestMakeCall(Trim$(sNumber), App.Title, Trim$(sName), "")

If lRetVal <> 0 Then

'Couldn't make the call.

'Take appropriate action

End If

End Sub

Private Sub Form_Load()

PhoneCall "123456", "TheName"

End Sub

 

متسهل

عضو جديد
إنضم
28 فبراير 2006
المشاركات
3
مجموع الإعجابات
0
النقاط
0
شكر

جزاك الله خيراً يا " رحمة "
 
أعلى