Lompat ke konten Lompat ke sidebar Lompat ke footer

Cara kirim sms dengan visual basic .net

Cara kirim sms dengan visual basic .net - Hallo sahabat Breaking News, Pada Artikel yang anda baca kali ini dengan judul Cara kirim sms dengan visual basic .net, kami telah mempersiapkan artikel ini dengan baik untuk anda baca dan ambil informasi didalamnya. mudah-mudahan isi postingan Artikel visual basic, yang kami tulis ini dapat anda pahami. baiklah, selamat membaca.

Judul : Cara kirim sms dengan visual basic .net
link : Cara kirim sms dengan visual basic .net

Baca juga


Cara kirim sms dengan visual basic .net

Jika ANDA ingim mebuat aplikasi anda bisa mengirim sms di bawah ini adalah kode visual basic untuk mengirim sms.
Ya this is simple vb code for sending sms. Sering orang ingin membaut software transaksi pulsa dengan sms.
ok langsung saja 





di bawah ini adalah kode lengkapnya:

Imports System.IO.PortsImports System.Threading.Thread
Public Class Form1
    Private Tunda As Integer
    Private WithEvents COMport As New SerialPort
    Private Sub Form1_Load(ByVal sender As ObjectByVal e As System.EventArgsHandles Me.Load

        For Each COMString As String In My.Computer.Ports.SerialPortNames
            cboCOMPort.Items.Add(COMString)
        Next
        cboCOMPort.Sorted = True    End Sub
     Private Sub Button1_Click(ByVal sender As System.ObjectByVal e As System.EventArgsHandlesButton1.Click

        COMport.PortName = cboCOMPort.Text
        COMport.BaudRate = 19200
        COMport.WriteTimeout = 2000

        Try           COMport.Open()
        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
        Sleep(300)   '....tunggu 0.3 second          tunda  = 300
        Sleep(tunda)
        Application.DoEvents()

        If COMport.IsOpen Then
            Try
                Dim x As String = "AT+CMGF=1" & Chr(13)
                COMport.Write(x)
                Sleep(tunda)
                Dim y As String = "AT+CMGS=" & Chr(34) & txtNoHP.Text & Chr(34) & Chr(13)
                COMport.Write(y)
                Sleep(tunda)
                Dim z As String = txtPesan.Text & Chr(26)
                COMport.Write(z)
                Sleep(tunda)

            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        Else
            MsgBox("COM port tertutup.")
        End If

End
 Sub
End Class

Di bawah ini adalah SMS yang terkirim ke HP:


Demikianlah Artikel Cara kirim sms dengan visual basic .net

Sekianlah artikel Cara kirim sms dengan visual basic .net kali ini, mudah-mudahan bisa memberi manfaat untuk anda semua. baiklah, sampai jumpa di postingan artikel lainnya.

Anda sekarang membaca artikel Cara kirim sms dengan visual basic .net dengan alamat link https://gpbn1.blogspot.com/2015/11/cara-kirim-sms-dengan-visual-basic-net.html

Posting Komentar untuk "Cara kirim sms dengan visual basic .net"