Membuat Aplikasi Untuk Mengirim SMS dengan VB6

Cara mendapatkan 3 Dolar per hari, kerjanya cuma klik iklan yang muncul langsung dibayar caranya:klik gambar dibawah ini atau klik Register Clixsense, lengkapi identitas, tekan Sign-Up kemudian konfirmasi Email.Anda siap klik iklan. Info Lengkap

Kalau kita sering mengirim SMS via HP atau Gadget lainnya itu sudah biasa,nah bagaiaman kalau kita membuat sendiri aplikasi untuk mengirim SMS itu baru luar biasa.Pertanyaannya? dimana dan bagaimana cara membuat aplikasi tersebut.jawabannya gampang Anda hanya membutuhkan Program visual basic, koneksi internet dan modem, lalu bagaimana cara membuatnya,mari ikuti langlah-langkah beriktu dibawah in:
Buka Form Standar EXE VB6 Anda

1. Tambahkan komponen berikut : Microsoft Comm Control 6.0, Microsoft Common Control 6.0, microsoft winchock control 6.0 dan Microsoft Internet Contrrols
2. Tanamakan di form : MSComm, StatusBar,Timer,Textbox ,Commandbutton dan beberapa label
3. Desain gambar seperti gambar dibawah ini :

Desain Form SMS

Ketik kode dibawah ini :

Option Explicit
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

'variabel teks jalan
Dim counter As Integer
'function teks jalan
Public Function teksjalan(hitung As Integer, strkalimat As String, panjang As Integer)
If hitung = Len(strkalimat) + panjang Then
hitung = 0
ElseIf hitung > Len(strkalimat) Then
teksjalan = strkalimat & Space(hitung - Len(strkalimat))
Else
teksjalan = Mid(strkalimat, 1, hitung)
End If
End Function


Private Sub Command1_Click()
'set sms
If Text1.Text = "" Or Text2.Text = "" Then
MsgBox "Masukan Nomer tujuan dan pesan teks", vbCritical, "Pesan Error"
Text1.SetFocus
Else

With MSComm1
.CommPort = 1
.Settings = "9600,n,8,1"
.Handshaking = comRTS
.RTSEnable = True
.DTREnable = True
.RThreshold = 1
.SThreshold = 1
.InputMode = comInputModeText
.InputLen = 0
.PortOpen = True
End With
MSComm1.Output = "AT+CMGS=" & Chr(34) & Text1.Text & Chr(34) & vbCrLf
Sleep 1000
MSComm1.Output = Text2.Text & Chr(26)
End If
End Sub

Private Sub Form_Activate()
Text1.SetFocus

'set satusbar1
StatusBar1.Panels(4).Picture = LoadPicture(App.Path & "\mail01B.ico")
StatusBar1.Panels(3) = Format(Date, "dd-mm-yyyy")
StatusBar1.Panels(1) = "Tipandtrikunikvb.blogspot.com"
End Sub

Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
'logo panels 4
Command1.Picture = LoadPicture(App.Path & "\mail01B.ico")

'set teks berjalan
counter = 0
Timer1.Interval = 50
With StatusBar1
.Panels(1).Width = 4000
.Panels(1).Alignment = sbrRight
End With
End Sub

'timer teks berjalan
Private Sub Timer1_Timer()
Dim kalimat As String
Dim panelX1 As Panel
Set panelX1 = StatusBar1.Panels(1)
kalimat = "Tipandtrickunikvb.blogspot.com"
counter = counter + 1
DoEvents
panelX1.Text = teksjalan(counter, kalimat, 150)
End Sub

Simpan kode Anda dan jalankan program.

Selamat mencoba semoga berhasil.........

Penulis: tutorial ~ Nurhasan Blogger | Blog Tutorial dan Informasi |

Artikel Membuat Aplikasi Untuk Mengirim SMS dengan VB6 ini dipublish oleh tutorial pada hari Monday 23 May 2016
Terima kasih Anda telah membaca artikel tentang Membuat Aplikasi Untuk Mengirim SMS dengan VB6.