Как отправить смс с vb.net

Question

Мне нужно настроить приложение с целью отправки смс. Уже знаю тип шлюза смс. Но я очень хочу интегрироваться с симом. мне нужно отправить через сим (который был подключен к компьютеру через COM-порт)

Answer 1

Здесь вы можете найти бесплатную библиотеку, которая может помочь вам с вашей задачей: http://www.codeproject.com/KB/cs/SMS.aspx?msg=3179142

Или вы можете выбрать коммерческую библиотеку, которая делает то же самое: например, http://www.logixmobile.com/products/mcorelib/index.asp,.

Answer 2

Импортирует System.IO.Ports

Публичный класс Exampl1

Public Class Form1
    Dim WithEvents serialport As New IO.Ports.SerialPort
    Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        For i As Integer = 0 To My.Computer.Ports.SerialPortNames.Count - 1
            .Items.Add(My.Computer.Ports.SerialPortNames(i))
        Next
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If serialport.IsOpen Then
            serialport.Close()
        End If

        Try
            With serialport
                .PortName = ComboBox1.Text
                .BaudRate = 96000
                .Parity = Parity.None
                .DataBits = 8
                .StopBits = StopBits.One
                .Handshake = Handshake.RequestToSend
                .DtrEnable = True
                .RtsEnable = True
                .NewLine = vbCrLf
            End With
            serialport.Open()
        Catch ex As Exception

        End Try

        serialport.WriteLine("AT+CMGF=1" & vbCr)
        System.Threading.Thread.Sleep(200)
        serialport.WriteLine("AT+CMGS=" & Chr(34) & "destination" & Chr(34) & vbCr)
        System.Threading.Thread.Sleep(200)
        serialport.WriteLine("test message" & vbCrLf & Chr(26))
        System.Threading.Thread.Sleep(200)
    End Sub
End Class

Конечный класс