رابط الشرح
https://www.youtube.com/watch?v=Zp3CHyhQu7A
السكربت
' InputBoxes
Contact = InputBox("Com qual contato você quer fazer DDos?", "WhatsApp DDos")
Message = InputBox("Qual é a mensagem a ser enviada?","WhatsApp DDos")
T = InputBox("Quantas vezes a mensagem precisa ser enviada?","WhatsApp DDos")
If MsgBox("Você preencheu tudo corretamente", 1024 + vbSystemModal, "WhatsApp DDos") = vbOk Then
' Go To WhatsApp
Set WshShell = WScript.CreateObject("WScript.Shell")
Return = WshShell.Run("https://web.whatsapp.com/", 1)
' Loading Time
If MsgBox("O WhatsApp Web está aberto?" & vbNewLine & vbNewLine & "Aperte Não para cancelar", vbYesNo + vbQuestion + vbSystemModal, "WhatsApp DDos") = vbYes Then
' Go To The WhatsApp Search Bar
WScript.Sleep 50
WshShell.SendKeys "{TAB}"
' Go To The Contacts Chat
WScript.Sleep 50
WshShell.SendKeys Contact
WScript.Sleep 50
WshShell.SendKeys "{ENTER}"
' 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 "DDosing no " + Contact + " foi feito com sucesso", 1024 + vbSystemModal, "DDos feito"
' Canceled Script
Else
MsgBox "O processo foi cancelado com sucesso", vbSystemModal, "DDos Cancelado"
End If
Else
End If
Contact = InputBox("Com qual contato você quer fazer DDos?", "WhatsApp DDos")
Message = InputBox("Qual é a mensagem a ser enviada?","WhatsApp DDos")
T = InputBox("Quantas vezes a mensagem precisa ser enviada?","WhatsApp DDos")
If MsgBox("Você preencheu tudo corretamente", 1024 + vbSystemModal, "WhatsApp DDos") = vbOk Then
' Go To WhatsApp
Set WshShell = WScript.CreateObject("WScript.Shell")
Return = WshShell.Run("https://web.whatsapp.com/", 1)
' Loading Time
If MsgBox("O WhatsApp Web está aberto?" & vbNewLine & vbNewLine & "Aperte Não para cancelar", vbYesNo + vbQuestion + vbSystemModal, "WhatsApp DDos") = vbYes Then
' Go To The WhatsApp Search Bar
WScript.Sleep 50
WshShell.SendKeys "{TAB}"
' Go To The Contacts Chat
WScript.Sleep 50
WshShell.SendKeys Contact
WScript.Sleep 50
WshShell.SendKeys "{ENTER}"
' 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 "DDosing no " + Contact + " foi feito com sucesso", 1024 + vbSystemModal, "DDos feito"
' Canceled Script
Else
MsgBox "O processo foi cancelado com sucesso", vbSystemModal, "DDos Cancelado"
End If
Else
End If
---------------------------------------------------------------
روابط التحميل والمشاهدة، الروابط المباشرة للتحميل
او
شاهد هذا الفيديو القصير لطريقة التحميل البسيطة
كيف تحصل على مدونة جاهزة بآلاف المواضيع والمشاركات من هنا
شاهد قناة منتدى مدونات بلوجر جاهزة بألاف المواضيع والمشاركات على اليوتيوب لمزيد من الشرح من هنا
رابط مدونة منتدى مدونات بلوجر جاهزة بآلاف المواضيع والمشاركات في أي وقت حــــتى لو تم حذفها من هنا
شاهد صفحة منتدى مدونات بلوجر جاهزة بألاف المواضيع والمشاركات على الفيس بوك لمزيد من الشرح من هنا
شاهد صفحة منتدى مدونات بلوجر جاهزة بألاف المواضيع والمشاركات على الفيس بوك لمزيد من الشرح من هنا
تعرف على ترتيب مواضيع منتدى مدونات بلوجر جاهزة بآلاف المواضيع والمشاركات (حتى لا تختلط عليك الامور) من هنا
ملاحظة هامة: كل عمليات تنزيل، رفع، وتعديل المواضيع الجاهزة تتم بطريقة آلية، ونعتذر عن اي موضوع مخالف او مخل بالحياء مرفوع بالمدونات الجاهزة بآلاف المواضيع والمشاركات، ولكم ان تقوموا بحذف هذه المواضيع والمشاركات والطريقة بسيطة وسهلة. ــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــــسلامـ.
Post a Comment