Sending SMS using AT Commands via GSM Modem/GSM Phone (receiving SMS-updated)

sir pwd b aq mgkaroon ng progrm n 2,i just wanna try it for our progrm my g-mail = [email protected] tnx sir!!

Plz help me with ths code modems are recognized by this guid: {4D36E96D-E325-11CE-BFC1-08002BE10318} here is the function: Public Function ShowComPorts() As String Dim comPorts As Array Dim out As String = "" comPorts = IO.Ports.SerialPort.GetPortNames() if comports > Nothing then Dim m_RegEntry As Microsoft.Win32.RegistryKey = Microsoft.Win32.Registry.LocalMachine m_RegEntry = m_RegEntry.OpenSubKey("SYSTEM\CurrentControlSet\Control\Class\{4D36E96D-E325-11CE-BFC1-08002BE10318}") Dim i As Integer = 0 Dim m_szModemEntries As String() = m_RegEntry.GetSubKeyNames() Dim m_szModem = New String(m_szModemEntries.Length - 1) {} Dim m_szModemPort As String = Nothing Dim m_szModemName As String= Nothing For Each m_szModemEntry As String In m_szModemEntries m_RegEntry.Close() m_RegEntry = Microsoft.Win32.Registry.LocalMachine Dim m_szKeyName As String ="SYSTEM\CurrentControlSet\Control\Class\{4D36E96D-E325-11CE-BFC1-08002BE10318}\" & m_szModemEntry m_RegEntry = m_RegEntry.OpenSubKey(m_szKeyName) m_szModemPort = m_RegEntry.GetValue("AttachedTo").ToString() m_szModemName = m_RegEntry.GetValue("Model").ToString() If Array.IndexOf(comPorts, m_szModemPort) > 0 Then out = out & m_szModemPort & " -" & (m_szModemName) & "***" else out = out End If Next Return out else return "" End Function it return a string that can be parsed to string-array in this mode: Dim ports() As String ports = Split(ShowComPorts(),"***") if you would to add to combobox: For i As Integer = 0 To ports.Length - 2 ComboBox1.Items.Add(ports(i)) Next for extract com port value from combobox: Dim numberCom as string=ComboBox1.SelectedItem.ToString.Substring(0 , ComboBox1.SelectedItem.ToString.IndexOf("-")).Trim) ps. function showcomport returnonly modem connected Now, if you would to have all modems that was connected to pc , just delete this if: If Array.IndexOf(comPorts, m_szModemPort) > 0 Then out = out & m_szModemPort & " -" & (m_szModemName) & "***" else out = out End If