• الإعلانات

    • فيصل الحربي

      تسجيل عضوية جديدة في المنتدى   01/31/2016

      السلام عليكم ورحمة الله وبركاته  عزيزي العضو الجديد :  حاليا رسالة الإيميل لتأكيد صحة إيميلكم تذهب للبريد العشوائي ( جاري حل المشكلة )  فإذا لم تجد رسالة التحقق من إيميلكم في صندوق الوارد لديكم إتجه للبريد العشوائي ( JUNK)  وقم بتفعيل إشتراككم من هناك   

krimi

اعضاء جدد
  • عدد المشاركات

    7
  • تاريخ الانضمام

  • تاريخ اخر زياره

السمعه بالموقع

0 عادي

عن krimi

  • الرتبة
    عضو جديد

معلومات الملف الشخصي

  • الجنس ذكر
  1. http://arabteam2000-forum.com/index.php?/topic/295775-at-command-cmgl/#comment-1405636
  2. at command cmgl

    Public Class Form1     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click         If SerialPort1.IsOpen Then             SerialPort1.Close()             Button1.Text = "Connect"         Else             Try                 With SerialPort1                     .PortName = Trim(Mid(ComboBox1.Text, 1, 5))                     .BaudRate = 9600                     .Parity = IO.Ports.Parity.None                     .DataBits = 8                     .RtsEnable = True                     .DtrEnable = True                     .Open()                     .WriteLine("AT+CNMI=1,2,0,0,0" & vbCrLf) 'send whatever data that it receives to serial port                   End With                 Button1.Text = "Disconnect"             Catch ex As Exception                 Button1.Text = "Connect"                 MsgBox(ex.Message)             End Try         End If     End Sub     Private Sub serialport1_datareceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived         'Pause while all data is read                  Invoke(Sub() RichTextBox1.Text = SerialPort1.ReadExisting())     End Sub     Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load         'Port1         ComboBox1.Items.Clear()         For Each a As String In My.Computer.Ports.SerialPortNames             'collecting available port             ComboBox1.Items.Add(a)         Next         'Port2     End Sub     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click         Try             SerialPort1.WriteLine("AT" & vbCrLf) 'is modem okay?             Threading.Thread.Sleep(1000)             SerialPort1.WriteLine("AT+CMGF=1" & vbCrLf) 'To format SMS as a TEXT message             Threading.Thread.Sleep(1000)             SerialPort1.WriteLine("AT+CPMS=""SM""" & vbCrLf) ' Select SIM storage             Threading.Thread.Sleep(1000)             SerialPort1.WriteLine("AT+CMGL=""REC UNREAD""" & vbCrLf) 'read unread messages             Threading.Thread.Sleep(1000)             SerialPort1.WriteLine("AT+CMGL=""ALL""" & vbCrLf) 'print all message             Threading.Thread.Sleep(1000)         Catch ex As Exception             MsgBox(ex.Message)         End Try     End Sub End Class  
  3. at command cmgl

    Form1.Designer.vb Form1.resx Form1.vb Read SMS.vbproj Read SMS.vbproj.user
  4. at command cmgl

    Read SMS.sln
  5. احتاج الى شخص يعدل برنامجى  at command  lire sms  krimi.neji#   Read SMS.sln