هل يمكن ان اعرف الرقم المضغوط عليه بالاداة etTT37

up

up

ما هي الاداة etTT37 اللتي ذكرتها، وما هو وظيفتها وكيف تعمل؟

وضح اكثر، اشرح اكثر حتى يمكننا افادتك.

اخي هي اداة للاتصال واستقبل الاتصال واسمها الكامل عند التنزيل هو Excele Tel Tele Tools v3.7

واصدارها ايضاً وكان طلبي حتى لا يحدث لبس كيف اعرف الرقم الذي تم الضغط من جهت المتصل

اعتقد ان تصنع برنامج سنترال

اعتقد انك لابد من فهم هذا من قسم الشبكات والدعم الفني

لا اخي KARIMSOFT هي اداة وتبرمج على لغات البرمجة فقط وليس لشبكات بها صله فقط ما اريد معرفة بعض خصائصها ولك جزيل الشكر على المرور وبنتظار الاخوان

اقتباس

كيف اعرف الرقم الذي تم الضغط من جهت المتصل

الاداة عندها الخاصية CallPhoneNumber واللتي يتم اسناد الرقم المراد الاتصال به، لكن معرفة الرقم يتم ذلك من خلال برنامجك، حيث اتصور انه يوجد في بنامجك واجه تحتوي على الاعداد من 0 الى 9 وعند ضغط المتصل على اي منها يتم اضافته الى صندوق نص يحوي الرقم كاملا، وعند الضغط على زر الاتصال يتم اسناد الرقم الى الخاصية CallPhoneNumber وبعدها يتم استدعاء الاجراء CallDial لاجراء الاتصال.

اخي العزيز

لدي اداه اسهل من تلك مع الكراك موجودة بالمرفقات

و هي تعمل بشكل ممتاز

ملحوظة : يوجد امثلة لكيفبة استعمال تلك الاداة بعدة لغات برمجة

OCX_4_V_TAPI__Modem_Tool.zip

اشكر لك مرورك اخي adel_elgo

بالمرفقات الملف التنفيذي ولكن الاداة لا اعلم اين هي هل موجوده بنفس الملف وهل سيقبلها vb.net وان كان هناك مثل بـ vb.net فسيكون اسديت لي معروف

اخي zaid000

لا يوجد علي جهازي vb.net الان لذلك و كما قلت سابقا

اقتباس

قم بتنصيب الملف المرفق في المشاركة رقم 9

ثم قم بتنفيذ خطوات الكراك

عندها سيكون عندك الاداة موجودة علي جهازك مع عدة امثلة لها بعدة لغات برمجة

منها vb 6 ...

فمن الممكن ان تقوم بعمل upgrade للامثلة المنفذة بالـ vb6 الي vb.net بإستخدام الويزارد الموجود في vb.net

اقتباس

ولكن ينقصني معرفة 4 خصائص

1- عرض المودمات الموجوده بالجهاز

2- تفعيل الادة لستقبل الاتصال

3- معرفة الرقم الذي تم الضغط عليه فان وضحتها فاكون لك شاكر

كل هذه النقاط التي سألت عنها سوف تجد امثله لها عند تنصيبك لهذه الاداة

تحياتي

الحقيقة اتعبني كثر تعلم الادوات حتى اني تعلمت حتى الان 4 ادوات وكلها لم تفي بالغرض

كل ما اريد معرفته او اريده فقط فقط فقط معرفة الرقم المضغوط عليه، وكانه لغز استحال حله ومع هذا سابقى اعيد السؤال

كيف استطيع معرفة الرقم المضغوط عليه حيث اني جربت جميع الامثله بالمنتدى ولم تفلح معي

اتمنى احد الاخوان الاخلاص بالشرح وليس التقطير وما سئلته سؤال واحد لا اكثر معرفة الرقم المضغوط بنفس الادة بالمشاركه الاولى ولكم جزيل الشكر

اخي العزيز

قمت بعمل مثال صغير لك علي استعمال تلك الاداة

موضحاً به

1- عرض المودمات الموجوده بالجهاز

2- تفعيل الادة لستقبل الاتصال

3- معرفة الرقم الذي تم الضغط عليه

ملحوظة

هذا المثال منفذ علي vb 6 حيث انني لا يوجد عندي vb.net الان

فمن الممكن ان تقوم بعمل upgrade للامثلة المنفذة بالـ vb6 الي vb.net بإستخدام الويزارد الموجود في vb.net

Example.zip

شاكر لك اخي ولكن لا اعرف طريقة التحويل هل كتبت لي الكود هنا وساحوال التوفيق بين اللغتين

وبالتحديد ساعرف من الخصائص والاحداث طبعاً عرض المودمات اعرف وتفعيل المودم اعرفه والحمد لله

ولم يبقى سوا معرفة الرقم المضغوط عليه

ليت احد الاخوان الي حمل المثل ويوجد لديه فيجوال بيسك 6 ان ينسخ الكود ويعرضه هنا كتابه وله الشكر

اخي العزيز

كل ما عليك فعله هو فتح ملف الـ vbp

من علي vb.net وسوف يتم حويله تلقائيا الي مشروع vb.net

لكن علي اي حال سوف اقوم إن شاء الله بوضع الكود الخاص بإستقبال الارقام في اقرب وقت ممكن

'في حدث form_load نقوم بفتح شاشة اختيار المودم مع الـتأكد من انه يعمل بشكل سليم
Private Sub Form_Load()

	VTapi1.Preferences

	If VTapi1.Open Then
		Status1.text = "Waiting for a call"
	Else
		Status1.text = "Problem With Modem"
	End If
End Sub

'في حال ان المودم مودم بيانات فقط بمعني انه مودم غير صوتي نقم بتنبيه المستخدم بان هذه الاداة تعمل مع المودم الصوتي فقط
Private Sub VTapi1_OnDataModem(ByVal Device As String)
   Status1.text = "Program works with voice modems only"
End Sub

'هذا الحدث هو الخاص بإستقبال الارقام المضغوطة من فبل المتصل
Private Sub VTapi1_OnDtmf(ByVal KeyCode As Long)

	IncomeDigits1.Text = IncomeDigits1.Text & Chr(KeyCode)

End Sub

'في حالة حدوث خطاء ما نقوم بإيقاف الاداة و اغلاق الخط
Private Sub VTapi1_OnError(ByVal ErrCode As Long)

	VTapi1.Stop
	VTapi1.HangUp

End Sub

'في حال ان هناك مكالمة ان ان جرس الهاتف يرن نقوم بفتح الخط عن طريق امر VTapi1.AnswerCall
Private Sub VTapi1_OnRing(ByVal Number As Long)
   ' answering in 2 rings
'   If Number > 1 Then
		Status1 = "Answering a call"
		VTapi1.AnswerCall
'   End If
End Sub

في حال انه نجحت عملية فتح الخط نقوم مثلا بجعل البرنامج يرحب بالمتصل وذلك بـ VTapi1.PlaybackText "Welcome"
Private Sub VTapi1_OnConnected()

   Status1.text = "Playing back greeting"

   VTapi1.PlaybackText "Welcome"
   VTapi1.WaitForIdle -1

End Sub

Private Sub VTapi1_OnBusy(ByVal Source As Long)
	VTapi1.Stop
	VTapi1.HangUp
End Sub

Private Sub VTapi1_OnSilence()
   VTapi1.Stop
   VTapi1.HangUp
End Sub

جزاك الله خير اخي الفاضل وساقوم بما قلت عليه وشكراً جزيلاً لك واتعبتك معي :)

اخي الكريم قام بالعمل بافضل ما يمكن ولكن

هذا الحدث وهو اهم امر لم يعمل

Private Sub VTapi1_OnDtmf(ByVal KeyCode As Long)

	IncomeDigits1.Text = IncomeDigits1.Text & Chr(KeyCode)

End Sub

فماذا تتوقع السبب مع ملاحظة اني جربته على اكثر من جهاز ونفس المشكله هل للكراك دخل حيث اني لم اعرف طريقة عمل الكراك ولكن فتح الخط وغيره مما شرحته آنفا مشى معي تمام ولكن حدث الرقم المضغوط عليه لم يعمل وهو اهم امر لدي فاتمنى التوضيح وجزاك الله خير

اخي العزيز

حدث OnDtmf هو - كما قلت سابقا - الحدث المسئول عن استشعار المفاتيح المضغوطة من قبل المتصل

و اعتقد انه يجب ان تكون نغمة المفتاح من نوع Tone و ليس Pulse

لذلك تأكد من نوع نغمة المفتاح في الهاتف هل هي Tone ام Pulse

ايضا قم بعمل Debug سطر بسطر اثناء تشغيل البرنامج وراقب حدث OnDtmf هل سيتم تنشيطه عند ضغط المتصل علي اي مفتاح ام لا

ملحوظة اخيرة

هذا الكود يعمل لدي بشكل جيد جدا و لا يوجد به اي مشاكل

الله يعطيك العافيه اخي الفاضل adel_elgo وجزاك الله خير

حقيقة اتعبتك معي ولكن ابشرك انها انتهت المشكله واتضح انها كما تفضلت نوع جرس المودم وتم التعديل وانتيهت على خير وتقبل فائق تحياتي واحترامي

العفو يا اخي zaid000 انا في الخدمة

تسلم اخي الفاضل وهذا يطمعني بطلب ان شاء الله صغير عليك وهو توضيح لا اكثر

حسبما يتضح لك من الاداة انها تعطي رسالة صوتيه للمتصل ولكن المشكله ان الرسالة باللغة الانجليزية فهي بالتاكيد لن تقبل اللغة العربيه هل من سبيل لعرض رسالة عربية وان كانت من ملف صوتي خارجي

او باداه اخرى مساعدة اتمنى التوجيه ولك جزيل الشكر

اعلم اني اثقلت عليك :( ولكن لك الاجر بهذا الشهر الكريم

اخي العزيز

يمكنك استخدام امر PlaybackFile

فقط تعطي له مسار الملف

   CtrlObject.PlaybackFile App.Path & "\Sounds\Welcome2.wav"
   CtrlObject.WaitForIdle -1

جزاك الله خير ورحمك بهذا الشهر الكريم ولك جزيل الشكر

الأخ الكريم zaid000

لقد بحثت من فتره عن العديد من الأدوات الجاهزه و الخاصة بموضوع ال TAPI

و لقد وجدت أن من أفضلها الآداه Excele Tel Tele Tools v3.7

و لكن يوجد منها أكثر من نوع هل هى مخصصه لحط واحد أو أكثر

و هل هى نسخه مؤسسات أو محترفين لأن كل نسخه منها تتيح خصائص معينه مثل الفيديو كونفرنس و التحويل الداخلى و غيرها

لذا نرجوا منك الرد على هذه المعلومات و الأفضل ان ترفق الآداه نفسها حتى نستطيع ان نساعدك

و آفادنا الله و اياكم بالعلم النافع