Mengirim Pesan dari Visual Basic 6.0 (vb6) ke Whatsapp Web

Ini adalah salah satu cara sederhana untuk mengirim Pesan dari Form VB6 ke Whatsapp Web dengan menggunakan kode vb6.

Berikut adalah langkah-langkah cara pembauatan Form kirim pesan atau Chat ke Whatsapp Web dengan menggunakan visual basic 6.0 (vb6).

Form Isi Pesan

1. Buka Form VB6 standar EXE

2. Tanamkan 2 Label, 2 TextBox (ScrollBars=1) dan 1 Commandbutton

3. Desainlah form seperti gambar dibawah ini :

Desain Form

4. Buka jendela kode lalu copy-paste kode dibawah ini di bagian General-Declarations :

Private Sub SendWA()

    Dim phone As String

    Dim pesan As String

    Dim url As String

    phone = Text1.Text

    pesan = Text2.Text

    ' Jika nomor diawali 0 ? jadikan +62

    If Left(phone, 1) = "0" Then

        phone = "62" & Mid(phone, 2)

    End If

    ' Encoding pesan

    pesan = Replace(pesan, "%", "%25")

    pesan = Replace(pesan, " ", "%20")

    pesan = Replace(pesan, vbCrLf, "%0A")

    pesan = Replace(pesan, "&", "%26")

    pesan = Replace(pesan, "?", "%3F")

    url = "https://wa.me/" & phone & "?text=" & pesan

    Shell "cmd /c start " & url, vbHide

End Sub

Private Sub Command1_Click()

If Text1.Text = "" Or Text2.Text = "" Then

MsgBox "Lengkapi Data", vbCritical, "Perhatian"

Text1.SetFocus

Else

Call SendWA

End If

End Sub

Private Sub Form_Activate()

Text1.SetFocus

End Sub

Private Sub Form_Load()

Text1.Text = ""

Text2.Text = ""

End Sub

5. Setelah kode dibuat coba jalankan Project, lalu uji coba dengan memasukan nomor tujuan dan isi pesan, ketika anda menekan tombol Kirim Pesan WA,  Anda akan di alihkan ke halaman Whatsapp Web seperti ini :

Kirm Pesan

6. Kemudian tekan Icon Kirim pada Whatsapp, maka teks pesan yang Anda ketik di vb akan terkirim ke whatsapp nomor tujuan

Catatan :

• Kelemahan dari kode ini adalah kita harus menekan tombol Send terlebih dahulu di Whatsapp Web-nya supaya pesan bisa terkirim, tidak langsung serta merta dari Form VB.
• Apabila anda ingin mengirim pesan secara langsung dari Form VB maka Anda harus mendapatkan Token API dari pihak Meta secara resmi, untuk ini pelajari lebih lanjut