Facebook Bomb using VB-script

Script :



' InputBoxes

Message = InputBox("What Is The Message?","WhatsApp DDos")

MsgBox "VBScript Written By Priyank Gada"

T = InputBox("How Many Times Needs It To Be Send?","WhatsApp DDos")

If MsgBox("You've Filled It In Correctely", 1024 + vbSystemModal, "WhatsApp DDos") = vbOk Then



' Go To WhatsApp

Set WshShell = WScript.CreateObject("WScript.Shell")

Return = WshShell.Run("https://www.facebook.com/messages", 1)



' Loading Time



If MsgBox("Search for the name and click on message section?" & vbNewLine & vbNewLine & "Press No To Cancel", vbYesNo + vbQuestion + vbSystemModal, "WhatsApp DDos") = vbYes Then



' The Loop For The Messages

For i = 0 to T

WScript.Sleep 5

WshShell.SendKeys Message

WScript.Sleep 5

WshShell.SendKeys "{ENTER}"

Next



' End Of The Script

WScript.Sleep 3000

MsgBox "Please Visit www.youtube.com/c/priyankgada"

Set WshShell = WScript.CreateObject("WScript.Shell")

Return = WshShell.Run("http://www.youtube.com/priyankgada", 1)





' Canceled Script

Else

MsgBox "Process Has Been Canceled", vbSystemModal, "DDos Canceled"

End If

Else

End If