SELAMAT DATANG SELAMAT DATANG

Rabu, 20 Januari 2016

cara membuat sms gratis dengan visual basic

Buat folder aplikasi kita, misal D:\SMSKU\
 Buka VB 2008
 Klik  Project lalu klik Add Preference lalu kil browse adan arahkan pada file ATSMS.dll yang sudah kita simpan di C:\Windows\system32\  lalu klik OK
 Buat  aplikasi dengan komponen seperti di bawah ini

Komponen Text Fungsi
Label1         Port Label “Port”
Label2         No HP Label “ No HP”
Label3         Isi SMS Label “ Isi SMS”
Textbox1 Pengisian Port Com (USB)
Textbox2 No HP Pengirim
Textbox3 Isi SMS yang diterima
Buttton1 Koneksi  HP Modem


 Isi listing program dengan source code di bawah ini :

Imports ATSMS

Public Class FUtama
    Private WithEvents oGsmModem As New GSMModem
    Dim TextTerima As String

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        oGsmModem.Port = “Com” & TextBox1.Text
        oGsmModem.BaudRate = 115200
        oGsmModem.DataBits = 8
        oGsmModem.StopBits = Common.EnumStopBits.One
        oGsmModem.FlowControl = Common.EnumFlowControl.None
        Try
            oGsmModem.Connect()
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical)
            Button1.Text = “CONNECT”
            Return
        End Try

        Try
            oGsmModem.NewMessageIndication = True
        Catch ex As Exception

        End Try
        MsgBox(“HP / Modem Anda Sudah terkoneksi !”, MsgBoxStyle.Information)
        Button1.Text = “DISCONNECT”
    End Sub
    Private Sub oGsmModem_NewMessageReceived(ByVal e As ATSMS.NewMessageReceivedEventArgs) Handles oGsmModem.NewMessageReceived
        TextBox2.Text = e.MSISDN
        TextBox3.Text = e.TextMessage
    End Sub
End Class


 Pasang modem HP, periksa port modem dengan cara membuka device manager,

 Jalankan Aplikasi SMSKU

Isi alamat port seperti yang tertera pada comport serial (USB) pada device manager, misal pada port Com 9 (tulis 9 saja)

Klik tombol CONNECT

 Jika terdapat pesan “Modem Anda Sudah terkoneksi !”, maka coba anda kirim SMS pada nomor HP modem anda melalui HP lain

Jika sudah tampil No HP pengirim dan isi pesan SMS, maka aplikasi yang anda buat sudah benar.


Terima kasih & semoga bermanfaat.



sumber : https://kangobing.wordpress.com/2012/10/15/aplikasi-sms-dengan-vb-net-vb-2008/

Tidak ada komentar:

Posting Komentar