ارسال پیامک از تلفن همراه با Vb.Net

[پرستو پارسایی]

کتابخانه AtCommands را از NuGet به پروژه خود اضافه کنید :

Imports System.IO.Ports

Public Class Form1


Private Sub SendSMSButton_Click(sender As Object, e As EventArgs) Handles SendSMSButton.Click
Dim portName As String = "COM1" ' نام پورت تلفن همراه
Dim baudRate As Integer = 9600 ' سرعت بودریت
Dim parity As Parity = Parity.None ' پاریتی
Dim dataBits As Integer = 8 ' بیت داده
Dim stopBits As StopBits = StopBits.One ' بیت توقف


Dim phone As New ATCommands.Phone(portName, baudRate, parity, dataBits, stopBits)


Dim phoneNumber As String = "شماره تلفن مقصد"
Dim message As String = "متن پیام"


phone.Open()
phone.SendSMS(phoneNumber, message)
phone.Close()


MessageBox.Show("پیام با موفقیت ارسال شد.", "ارسال پیامک")
End Sub
End Class