17-10-12, 04:37 PM
كاتب الموضوع : نور نبهان
إجراء اتصال هاتفي عن طريق API
إجراء اتصال هاتفي عن طريق 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