ربط الفون بالفيجوال بيسك :icon_wink:

[بو يحل الأسايمنتات]

س ع

لو تكرمتوا


أريد طريقة ربط الفيجوال بالنوكيا بحيث يرسل الفون رسائل أوتوماتيكلي وتكون الرسائل محددة بحسب الشخص الذي يرسل الرسائل
فمثلا :::
إذا كان الشخص معروف ومضاف عندي بالبرنامج فيرسل البرنامج رساله أوتوماتيكية له إني سسأتصل به لاحقا ...
وإذا كان الشخص غير مضاف فإنه يرد عليه عليك الإتصال لاحقا ...


ممكن أحد يساعدني؟؟؟؟:ee:

[حسين الغافري]

عليكم السلام اخوي
انا سويت برنامج يتعامل مع التلفون
بشرحلك الطريقة الي استخدمها والي هي استخدام الليبراري mCore
طبعا وظيفة هذي المكتبة انها تربطلك الجهاز بالبرنامج وتعطيك الخصائص والدوال الخاص ب المسجات
طبعا مع المسج يجي رقم المرسل والوقت

هذا الفنكشن خاص بضبط البورت للاتصال بالهاتف
رقم البورت هنا 21 ويتغير حسب الهاتف وتثبيته ف الكمبيوتر

Public Sub SetCommParameters()
Try
objSMS.Port ="COM21"
objSMS.BaudRate = mCore.BaudRate.BaudRate_19200
objSMS.DataBits = mCore.DataBits.Eight
objSMS.StopBits = mCore.StopBits.One
objSMS.Parity = mCore.Parity.None
objSMS.FlowControl = mCore.FlowControl.RTS_CTS

lbldis.BackColor = Color.Green
objSMS.NewMessageIndication = True
objSMS.NewMessageConcatenate = True
objSMS.AutoDeleteNewMessage = True

Catch ex As mCore.GeneralException


objSMS.NewMessageIndication = False
objSMS.NewMessageConcatenate = False
objSMS.AutoDeleteNewMessage = False
objSMS.Disconnect()

Catch ex As Exception



End Try
End Sub

Private Sub objSMS_NewMessageReceived(ByVal sender As Object, _
ByVal e As mCore.NewMessageReceivedEventArgs) _
Handles objSMS.NewMessageReceived

msgBox(e.TextMessage)
msgBox(e.Phone)
End Sub

ف اخر كود بيظهر الرقم والرسالة على شكل مسج بووكس
اتمنى انك استفدت وخذيت الفكرة العامة
دور على شرح تفصيلي لهالمكتبة ف جوجل
وان شاء الله تحصل اكثر من الي شرحته

بالتوفيق
وما تحل اسايمنتات حال غيرك وتنسى نفسك :gt:

[بو يحل الأسايمنتات]

شـكــ وبارك الله فيك ـــرا لك ... لك مني أجمل تحية .

إن شاء الله ...

تشكر ع الرد بحاول أجرب هالكودات بعد الإمتحانات ...