Program Kirim SMS

Sesuai dengan judul kita akan membahas bagaimana mengirim SMS dengan program Visual Basic 6.0... Buka VB 6nya. pilih yang enterprize yaaaa,,, yangg kompliittt.........
Jika sudah masukkan tools MSCOMM (bentuknya seperti Telepon) pada form...
Desain formnya seperti berikut.....

Jika sudah di desain seperti gambar di atas,,, saatnya isi scriptnya ditombol kirim dengan cara klik ganda pada tombol kirim....

       Form1.MSComm1.Output = "AT" & vbCrLf
        Form1.MSComm1.Output = "AT+CMGF=1" & vbCrLf
        Form1.MSComm1.Output = "AT+CMGS=" & Chr(34) & Trim(Text1) & Chr(34) & vbCrLf
        Form1.MSComm1.Output = Trim(Text2) & Chr(26)

Sekarang script untuk mengkoneksikan dengan modem ketika aplikasi dijalankan,,,,,, buat script di Form Load

Form Load
    With MSComm1
        .CommPort = 5 'port disesuaikan atau beri kode auto detect port modem
        .Settings = "9600,N,8,1"
        .Handshaking = comRTS
        .RTSEnable = True
        .DTREnable = True
        .RThreshold = 1
        .SThreshold = 1
        .NullDiscard = True
        .InputMode = comInputModeText
        .InputLen = 0
        .PortOpen = True
    End With
End Sub

Colokkan modem ke komputer,, trus jalan kan programnya
jika sukses program bisa jalan, jika tidak CommPortnya mungkin salah,,,
jadi coba-coba ajha trus,, ganti angkanya...........

Jika sukses silahkan kirim SMS

Tweet