Mengirim SMS dengan VB.Net

Algoritma Kirim SMS

Tahap I : Modem diseting ke mode Teks dengan mengirim perintah ke modem "AT+CMGF=1" + karakter ENTER atau Chr(13)
Tahap II : Mengirim ke modem nomor tujuan pesan SMS dengan perintah "AT+CMGS"="Nomor tujuan" + Chr(13)
Tahap II : Mengirim ke modem isi pesan + chr(26)
Tahap III : Dengan regex apakah modem memberi output +CMGS, jika ya berarti pengiriman pesan berhasil.
Setiap tahap di akhiri sleep selama 3 detik

Kode Program VB.Netnya

Port.write("AT+CMGF=1"&Chr(13))
sleep(300)
Port.write("AT+CMGS="&Chr(34)&No_Tujuan&Chr(34)&chr(13)
sleep(300)
Port.write("Isi pesan"&chr(26))
sleep(300)

untuk mengecek apakah modem memberi output +CMGS kita menempatkan code di Timer;

respon=Port.ReadExisting 'respon adalah variabel string
Dim r As New Regex("\+CMGS: ""\r\n")
Dim m As Match = r.Match(respon)
If m.Success Then
   MsgBox("PESAN SUKSES")
Else
   MsgBox("PESAN GAGAL")
End If

SELAMAT MENCOBA