[ahmed_egypt]

السلام عليكم
قرات في هذا الموضوع فى منتداكم الرائع بالمرفق من العضو الرائع KING

والسؤال :
هل يتطلب هذا الاتصال كارد مودم ؟  لقد وضعت  كابل التليفون مكان كابل النت ولم تفلح تلك المحاولة
ارجو الافادة كما تعودنا منكم دائما

---

اسف لعدم استطاعنى ارفاق الملف - ولحضراتكم كود الاتصال :

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
ويبقى السؤال :
هل يتطلب ذلك كارد مودم ؟