[oneyemenweb2]

نعود لموضوعنا :
بعد أن تركزت في أذهاننا أساسيات هذه العملية و أوامر AT و الفائدة منها سنقوم بكتابة بعض الأكواد التي نتعامل مع AT من خلال برنامجنا
اللغة المستخدمة VB6 ربما يود البعض أن تكون الدوت نت لكن بصراحة لم أتمكن من تحويرها لذلك سأعتمد على الفي بي 6 وربما يساعد الإخوة بأكواد الدوت نت
بسم الله نبدأ :
سنستخدم الأداة Microsoft Comm Control يعني MSComm
ببساطة افتح مشروع جديد
أضف الأداة (Microsoft Comm control 6.0) كما تراها في الصورة التالية :
اضغط CTRL+T للوصول لنافذة الComponents وابحث عن الأداة وأضفها
[ATTACH=CONFIG]633[/ATTACH]

بعد أن تضيف الأداة جهز النموذج على هذا الشكل بالأدوات التالية :
أداة Microsoft Comm control 6.0 عدد 1 تحت مسمى MSComm1
أداة Text عدد 3 تحت مسمى TextCom و TextNum و TextMsg
أداة Command عدد 2 تحت مسمى CommandMsg و CommandCall
هذا هو تصميم الفورم :

[ATTACH=CONFIG]634[/ATTACH]

الآن الصق الكود التالي كاملا :
وهو كود الرسالة للزر الأول و الاتصال للزر الثاني :

كود :

'AT >> VB4ARAB
Private Sub CommandCall_Click()
    'CALL
    MSComm1.CommPort = TextCom.Text
    MSComm1.Settings = "9600,n,8,1"
    MSComm1.InputLen = 0
    MSComm1.PortOpen = True
    MSComm1.Output = "AT" & Chr$(13) & Chr(10)
    MSComm1.Output = "ATDT" & Chr$(34) & TextNum.Text & ";" & Chr$(13) & Chr(10)
    MSComm1.PortOpen = False
End Sub

Private Sub CommandMsg_Click()
    MSG
    MSComm1.CommPort = TextCom.Text
    MSComm1.Settings = "9600,n,8,1"
    MSComm1.InputLen = 0
    MSComm1.PortOpen = True
    MSComm1.Output = "AT" & Chr$(13) & Chr(10)
    MSComm1.Output = "AT+CMGF=1" & Chr$(13) & Chr(10)
    MSComm1.Output = "AT+CMGS=" & Chr$(34) & TextNum.Text & Chr$(34) & Chr(13) & Chr(10)
    MSComm1.Output = TextMsg.Text & Chr(26)
    MSComm1.PortOpen = False
End Sub

الآن شغل البرنامج و أملأ المدخلات المطلوبة : المنفذ و الرقم ونص الرسالة ثم جرب زر الاتصال وزر الإرسال .