28-05-16, 09:18 AM
(آخر تعديل لهذه المشاركة : 28-05-16, 09:40 AM {2} بواسطة 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
ويبقى السؤال :
هل يتطلب ذلك كارد مودم ؟
قرات في هذا الموضوع فى منتداكم الرائع بالمرفق من العضو الرائع 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
ويبقى السؤال :
هل يتطلب ذلك كارد مودم ؟