تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
إجراء اتصال هاتفي عن طريق Api
#1
كاتب الموضوع : نور نبهان



إجراء اتصال هاتفي عن طريق API


كود :
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
''''''''''''''''''''''''''''''''''''''''
'التأكد ان الرقم موجود
If (Trim(Number) = "") Then
MsgBox "تأكد ان الرقم موجود"
Exit Sub
End If
If (MsgBox("هل انت متأكد انك تريد الأتصال بـ " & Trim(Name) _
& " على الرقم " & Trim(Number) & vbCrLf, _
vbYesNo, App.Title) = vbYes) Then
''''''''''''''''''''''''''''''''''''''''
' هذا الأجراء يقوم بالأتصال عن طريق الهاتف
lRes = tapiRequestMakeCall(Trim(Number), App.Title, Trim(Name), "")
Debug.Print Now; " CallPhone -> tapiRequestMakeCall Result code = "; lRes
''''''''''''''''''''''''''''''''''''''''
End If
''''''''''''''''''''''''''''''''''''''''
End Sub
Private Sub Command1_Click()
'العمل أم المنزل
If Option2.Value = True Then
CallPhone txtnumber2.Text, txtName.Text
Else
CallPhone txtNumber.Text, txtName.Text
End If
End Sub
Private Sub Command3_Click()
End
End Sub
}}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  حماية البرامج عن طريق سيريال الهارد RaggiTech 0 830 17-10-12, 03:15 PM
آخر رد: RaggiTech
  كود لإرسال ايميل +Attachment عن طريق Microsoft Outlook 2003-2007 RaggiTech 0 583 17-10-12, 02:40 PM
آخر رد: RaggiTech

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم