كود الرد على الهاتف

شكرا اخى الكريم على هذه الأكواد

ولكن ما اريده هو كود للرد على الهاتف اى ما يقابل رفع السماعة لدى

اما عن كود استقبال المكالمة ومعرفة رقم الطالب فقد انتهيت منه بالفعل وبقى لى عندما يتصل بى أحد ان اضغط على Button بإسم Answer مثلا حتى ابدأ الحادثة مع المتصل من خلال سماعة رأس متصلة بكارت الفاكس فهذا ما ينقصنى

مشكور مرة اخرى وارجو ان اكون قد اوضحت ا أريد

السلام عليكم

أخوانى أنا دورت كتيير على طريقة معرفة رقم الطالب قبل فتح الخط ولم اجد الا أداه تفعل ذلك تجريبيه لمده 30 يوم كما أن ثمنها يتعدى الف ريال

أرجو وضع طريقة معرفة رقم الطالب

وشكرا لكم

اخى الكريم مرفق لك مثال على اظهار رقم الطالب

علما بأن مواصفات كارت الفاكس لدى هى :

PCIModem : V.90/V.92/V.44/ 56kbps

Manufactuer : Motorola Inc

Motorola SM56 Speakerphone Modem

أرجو ان يفى بالغرض

وفى انتظار مشاركات اكثر لحل المشكلة

Caller_ID.rar

أخى العزيز لم يقم البرنامج بأظهار الرقم

مع العلم انى جربت مع TTOOLES

وظهر الرقم

بالنسبه لطلبك عندى TTOOLES

وتتيح الرد ولكن المشكله أنها ليست مجانيه

ولكن عندى مثال للرد على الهاتف يعنى أنسر ماشين

وبيفتح الخط بعد عدد معين من الرنات

لو عاوزه أضيفه

الأخ الفاضل المثال يعمل لدى جيدا

ويجب التأكد من اعدادات كارت الفاكس اولا انظر الصورة المرفقة

اماعن المثال فأعتقد انه موجود لدى وهو يعتمد على دوال TAPI

وإن كنت لم استطع اسخراج الكود الخاص بالرد على الهاتف ليستخدم فى المثال المرفق

ولنى سوف اقوم بدراسته جيدا للوصول للمطلوب وسوف اقوم بطرح المشروع ليستفيد منه الجميع اذا ماتوصلت للحل بإذن الله.

مشكور اخى مرة اخرى

أخى شاهد الأكواد التاليه لعل أحدها المطلوب

Private Sub Form_Load() 
MSComm1.Settings = "9600,N,8,1" 
' áæÈ ááÊÔííß Úáì ÚÔÑÉ ãäÇÝÐ æÅÓÊÎÑÇÌ ÑÞã ãäÝÐ ÇáãæÏæã ÇáÕÍíÍ 

For i = 1 To 10 
MSComm1.CommPort = i 

On Error GoTo N 
MSComm1.PortOpen = True 

N: 
If MSComm1.PortOpen = True Then 
Exit For 
End If 

Next 

End Sub 

Private Sub MSComm1_OnComm() 

If MSComm1.CommEvent Then 

MsgBox " æÕæá ÅÊÕÇá áß " 

End If 


End Sub

و

Private Sub Command1_Click()
On Error GoTo eror_non
Dim Number$, Temp$
Call_n.Caption = "ÇáÅÊÕÇá ÈÜ / " & Trim(Text1)

Number$ = Trim(Text1.Text)
If Number$ = "" Then Exit Sub
Command1.Enabled = False
Command2.Enabled = True
Status = "ÌÇÑí ÇáÅÊÕÇá ÈÜ " + Number$

Dial Number$
eror_non:
End Sub
Private Sub Dial(Number$)
On Error GoTo error_1
Dim DialString$, FromModem$, dummy
Dim msg1 As String
Dim msg2 As String
Dim response As Integer
Dim mod_com As Integer

mod_com = 2

DialString$ = "ATDT" + Number$ + ";" + vbCr
MSComm1.CommPort = mod_com
MSComm1.Settings = "9600,N,8,1"

On Error Resume Next
MSComm1.PortOpen = True
If Err Then
Beep
Screen.MousePointer = 0
msg1 = " COM ÊÚÐÑ ÇáæÕæá Åáì ÌåÇÒ ÇáãæÏã Ãæ ãÎÑÌ ÇáÅÊÕÇá " & mod_com
msg2 = "ááãÓÇÚÏÉ ÃäÙÑ Ïáíá ÑÓÇÆá ÇáÃÎØÇÁ "
MsgBox msg1, 16, msg2
Status = ""
DialButton.Enabled = True
CancelButton.Enabled = False
Exit Sub
End If

MSComm1.InBufferCount = 0

MSComm1.Output = DialString$

Do
dummy = DoEvents()
If MSComm1.InBufferCount Then
FromModem$ = FromModem$ + MSComm1.Input
If InStr(FromModem$, "OK") Then

CancelButton.Enabled = False
Status = "Êã ÇáÅÊÕÇá ÈÜ " + Number$
Beep
response = MsgBox("ÇÎÊÑ ãæÇÝÞ áÊÍæíá ÇáãßÇáãÉ ááåÇÊÝ(ÇÑÝÚ ÇáÓãÇÚÉ ÃæáÇ) Ãæ ÇáÛÇÁ ÇáÇãÑ áÅäåÇÁ ÇáãßÇáãÉ", 1)
If response = 1 Then '== ãæÇÝÞ
DialButton.Enabled = True
CancelButton.Enabled = False
Status = ""
Exit Do
Else
CancelFlag = False
Status = ""
DialButton.Enabled = True
CancelButton.Enabled = False
Exit Do
End If
Exit Do
End If
End If

If CancelFlag Then
CancelFlag = False
Exit Do
End If
Loop

MSComm1.Output = "ATH" + vbCr

MSComm1.PortOpen = False
Exit Sub
'---------------------------------------
error_1:
Beep
Screen.MousePointer = 0
msg1 = " ÊÚÐÑ ÇáæÕæá Åáì ÌåÇÒ ÇáãæÏã¡ ÇáãæÏã ÊÍÊ ÇÓÊÎÏÇã ÈÑäÇãÌ ÂÎÑ!¡ÃÚÏ ÊÔÛíá ÇáÈÑäÇãÌ æ ßÑÑ ÇáãÍÇæáÉ"
msg2 = "ááãÓÇÚÏÉ ÃäÙÑ Ïáíá ÑÓÇÆá ÇáÃÎØÇÁ "
MsgBox msg1, 16, msg2
Status = ""
DialButton.Enabled = True
CancelButton.Enabled = False
Exit Sub