منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ورحمه الله وبركاته

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

الفكره ان اشبك سلك هاتف المنزلي في الكمبيوتر و الهاتف

في المشروع فيجوال بيسك اضع رقم هاتف + زر اتصال

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

يعني الكمبيوتر يعطي للهاتف اوامر اتصال ويفتح سبيكر بالهاتف ويتم اتصال بالرقم الى تم وضعه في الكمبيوتر

اتمنى وصلت لكم الفكرة

اتمنى المساعدة منكم ياحبايبي وشكرا لكم

اخى / فيصل
السلام عليكم ورحمة الله وبركاته ..

اليك هذا الكود ...

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

Public Sub CallPhone(Number As String, Name As String)
Dim lRes As Long
Dim result As Long
' هذا الأجراء يقوم بالأتصال عن طريق الهاتف
lRes = tapiRequestMakeCall(Trim(Number), App.Title, Trim(Name), "")
Debug.Print Now; " CallPhone -> tapiRequestMakeCall Result code = "; lRes
End Sub

Private Sub Command1_Click()
CallPhone "0096396993175", "AL-MOZAMGER"
End Sub

ويمكنك تحميل المرفق .... منقول

ربي يعطيك الف عافيه ويوفقك

بارك الله فيكم جميعاً ... بالتوفيق