-
Notifications
You must be signed in to change notification settings - Fork 1
/
whatsapp-nuker.vbs
37 lines (29 loc) · 1.58 KB
/
whatsapp-nuker.vbs
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Objetivo = InputBox("Escribe el nombre del contacto" & vbNewLine & vbNewLine & "No uses acentos en el nombre del contacto", "WhatsApp Nuker")
Mensaje = InputBox("Que mensaje quieres enviar?","WhatsApp Nuker")
T = InputBox("Cuantas veces quieres enviar el mensaje?" & vbNewLine & vbNewLine & "Escribe un numero entero","WhatsApp Nuker")
If MsgBox("Quieres continuar?" & vbNewLine & vbNewLine & "Presiona NO para cancelar!", vbYesNo + vbQuestion + vbSystemModal, "WhatsApp Nuker") = vbYes Then
Set WshShell = WScript.CreateObject("WScript.Shell")
Return = WshShell.Run("https://web.whatsapp.com/", 1)
If MsgBox("Esta WhatsApp Web abierto?" & vbNewLine & vbNewLine & "Espera a que la pagina cargue!" & vbNewLine & vbNewLine & "Presiona NO para cancelar!", vbYesNo + vbQuestion + vbSystemModal, "WhatsApp Nuker") = vbYes Then
MsgBox "No toques el navegador durante el Nukeo" & vbNewLine & vbNewLine & "Empezando en 10 segundos.", 1024 + vbSystemModal, "Preparando Nuker"
WScript.Sleep 50
WshShell.SendKeys "{TAB}"
WScript.Sleep 50
WshShell.SendKeys Objetivo
WScript.Sleep 5000
WshShell.SendKeys "{ENTER}"
WScript.Sleep 5000
For i = 0 to T
WScript.Sleep 5
WshShell.SendKeys Mensaje
WScript.Sleep 5
WshShell.SendKeys "{ENTER}"
Next
WScript.Sleep 3000
MsgBox "Nukeo al " + Objetivo + " Se hizo con exito, hecho por Euronymou5", 1024 + vbSystemModal, "Nukeo Hecho"
Else
MsgBox "El nukeo fue cancelado con exito", vbSystemModal, "Nuker Cancelado"
End If
Else
MsgBox "El Nukeo fue cancelado con exito", vbSystemModal, "Nuker Cancelado"
End If