Saturday, June 04, 2016

Trik WhatsApp: Cara Mengirim Banyak Pesan Sekaligus Pada Whatsapp Seseorang Dengan VBScript 2.0


Apakah Anda ingin menjahili teman WhatsApp Anda? hehehe Saya mohon jangan lakukan itu, dosa...!!! Namun jika Anda hanya ingin mengerjai teman Anda, atau hanya ingin bercanda dengan teman Anda, boleh-boleh saja... tp tunggu dulu, bedanya menjahili dan mengerjai apa ya?

Ah sudahlah, yang pasti disini saya akan berbagi dengan Anda yaitu sebuah skrip atau kode VBScript yang tujuannya adalah untuk dapat mengirimkan pesan kepada salah satu kontak WhatsApp Anda secara bertubi-tubi, atau dapat disebut sebagai pesan bom.

Untuk tujuan dari skrip ini adalah murni hanya untuk tujuan belajar, iseng, bercanda dan BALAS DENDAM hehehe..., intinya gunakan dengan resiko Anda sendiri dan jangan pernah menyalahkan kami jika terjadi sesuatu hal yang tidak diinginkan.

Trik WhatsApp: Cara Mengirim Banyak Pesan Sekaligus Pada Whatsapp Seseorang Dengan VBScript 2.0

Baiklah tanpa basa-basi dan babibu lagi, berikut ini saya bagikan sebuah kode VBScript untuk Cara Mengirim Banyak Pesan Sekaligus Pada Whatsapp Seseorang. Namun syaratnya adalah Anda sudah terhubung dengan WhatsApp Web di komputer Anda, tentunya Anda sudah tahu bagaimana cara menggunakan WhatsApp Web karena disini saya tidak akan membahasnya, saya anggap Anda sudah tahu.


Kode Untuk Mengirim Banyak Pesan Sekaligus Pada Whatsapp Seseorang

' InputBox
Contact = InputBox("Masukkan Kontak Target?", "WhatsApp Bm")
Message = InputBox("Apa Pesan Anda?","WhatsApp Bm")
T = InputBox("Berapa Kali Akan Dikirimkan?","WhatsApp Bm")
If MsgBox("Yap, Anda Telah Mengisinya Dengan Benar", 1024 + vbSystemModal, "WhatsApp Bm") = vbOk Then

' Ke WhatsApp
Set WshShell = WScript.CreateObject("WScript.Shell")
Return = WshShell.Run("https://web.whatsapp.com/", 1)

' Saatnya Loading
If MsgBox("Apakah WhatsApp Anda Sudah Terbuka?" & vbNewLine & vbNewLine & "Tekan No Untuk Cancel", vbYesNo + vbQuestion + vbSystemModal, "WhatsApp Bm") = vbYes Then

' Ke WhatsApp Search Bar
WScript.Sleep 50
WshShell.SendKeys "{TAB}"

' Ke Kontak Chat
WScript.Sleep 50
WshShell.SendKeys Contact
WScript.Sleep 50
WshShell.SendKeys "{ENTER}"

' Perulangan Pesan
For i = 0 to T
WScript.Sleep 5
WshShell.SendKeys Message
WScript.Sleep 5
WshShell.SendKeys "{ENTER}"
Next

' Akhir Dari Script
WScript.Sleep 3000
MsgBox "Buumbardir Ke " + Contact + " Telah Selesai", 1024 + vbSystemModal, "Buum Selesai Dilakukan"

' Script Dibatalkan
Else
MsgBox "Proses Telah Dibatalkan", vbSystemModal, "Buum Dibatalkan"
End If
Else
End If

Penjelasan

Kode ( ' )

Perintah tersebut digunakan untuk membuat komentar dalam script. jadi jika Anda membuat baris perintah ' Input Box misalnya, itu tidak apa-apa dan tidak akan mempengaruhi program, jadi itu hanya digunakan sebagai kode pengingat.

Suatu kode = Suatu kode

Perintah ini digunakan untuk menetapkan atau membuat sebuah variabel, dan nama variabel bisa apa saja terserah Anda. Setelah karakter (=) akan tercipta objek yang ingin Anda buat, dan itu cukup berguna. Misalnya Anda menginginkan 2 MessageBox yang memiliki input yang sama. Misalnya Anda ingin 2 MessageBox tetapi tidak ingin ada 2 kotak masukan atau InputBox, maka Anda dapat menggunakan :
Pesanku = InputBox ("Ketik pesan Anda")
MsgBox Pesanku
MsgBox Pesanku
Dan itu adalah dasarnya.

Perintah InputBox()

Perintah ini digunakan untuk membuat kotak pop-up di mana Anda dapat mengetik sesuatu ke dalamnya. Sintaknya adalah: InputBox(prompt, title, default , xpos, ypos, helpfile, context)

Perintah MsgBox

Perintah ini digunakan untuk nebanpilkan popup box dengan pesan. Sintaknya adalah:
MsgBox(prompt , buttons, title , helpfile, context)

Perintah If.. Then.. Else

Ini digunakan untuk melakukan atau mengaktifkan suatu hal ketika ada kasus tertentu. 
Sintaknya adalah: If (kondisi) Then (Pernyataan) Then (Pernyataan-lain) End If

Misalnya jika Anda memiliki MessageBox dengan tombol Yes or No dan Anda ingin menanggapi, itu akan menjadi:
if MsgBox("Apakah Anda Ingin Menjadi Teman Saya?", vbYesNo, "") = vbYes
Then MsgBox("Hore... Kita Akan Menjadi Sahabat...", 1024, "")
   Else
MsgBox("Baiklah, Mungkin Suatu Saat Kita Pasti Akan Berteman", 1024, "")

Kode Perintah .Sleep

Perintah ini digunakan untuk mengatur jeda selama jumlah waktu tertentu dalam milidetik. 
Sintaknya adalah: Wscript.Sleep waktu
Contoh:
WScript.Sleep 80

Kode Perintah .SendKeys

Perintah ini digunakan untuk mengirim kunci. 
Sintaksnya adalah: wshshell.sendkeys "di sini kunci Anda, yaitu jumlah berapa kali itu harus dieksekusi"

Kode Perintah For.. Next

Perintah ini digunakan untuk mengulang suatu group atau perintah sampai telah dilakukan beberapa kali. Sintak nya adalah:
For i = 0 (di sini angka Anda)
... ... ... ... ... ... ...
...kode perintah anda...
... ... ... ... ... ... ...
Next

Simpan Dan Jalankan

Untuk menjalankan script vbs ini, tentu saja Anda harus menyimpannya! Anda menyimpanya dengan copy dan paste di notepad (atau program text editor lainnya). dan menyimpannya sebagai "filename.vbs"

Perhatikan pada ".vbs" , ekstensi tersebut adalah penting karena akan membuat komputer mrengetahui apa jenis kode yang dibuat dan ingan sekali lagi untuk jangan menyimpannya sebagai "filename.vbs.txt" tapi "filename.vbs"

Hal berikutnya yang perlu Anda lakukan adalah mengklik di bawah nama folder dan pilih pada "all files" sehingga tidak akan menjadi file txt biasa. Selanjutnya simpan dan klik dua kali untuk menjalankannya.

Demikian diatas adalah Trik WhatsApp: Cara Mengirim Banyak Pesan Sekaligus Pada Whatsapp Seseorang Dengan VBScript 2.0 dan untuk lebih banyak lagi contoh dan penjelasan mengenai VBScript, silahkan Anda dapat mengunjungi http://ss64.com/vb/ disana akan banyak ditemukan penjelasan dan contoh-contoh penerapan program VBScript yang mungkin dapat membantu Anda

Semoga bermanfangats...


Emoticon Emoticon