Welcome to the leading Carding Forum where carders from around the world share knowledge, tools, and trusted resources. Whether you’re looking for Crdpro discussions, Altenen updates, or non-VBV BIN lists for 2025, you’ll find a secure and active community ready to guide you. Our forum is built for both beginners and experienced carders who want to stay ahead in the latest techniques, marketplaces, and carding tutorials. Join live conversations about trusted shops, security tools, and leaks while connecting with like-minded members who share valuable insights. Guests only see part of the content — by registering, you unlock full access to exclusive BIN lists, Crdpro & Altenen forums, carding guides, and private discussions. Don’t miss out on the chance to build authority, learn proven methods, and grow inside the internet’s most reliable carding community.

how to make spam bot

New member
Joined
May 19, 2019
Messages
29
1 step open notedpad
2 step copy code
3 step save as spammer.vbs




CODE:

[font=Roboto, Arial, sans-serif]set shell = createobject ("wscript.shell")

strtext = inputbox ("Write down your message you like to spam")
strtimes = inputbox ("How many times do you like to spam?")
strspeed = inputbox ("How fast do you like to spam? (1000 = one per sec, 100 = 10 per sec etc)")
strtimeneed = inputbox ("How many SECONDS do you need to get to your victems input box?")
If not isnumeric (strtimes & strspeed & strtimeneed) then
msgbox "You entered something else then a number on Times, Speed and/or Time need. shutting down"
wscript.quit
End If
strtimeneed2 = strtimeneed * 1000
do
msgbox "You have " & strtimeneed & " seconds to get to your input area where you are going to spam."
wscript.sleep strtimeneed2
shell.sendkeys ("Spambot activated" & "{enter}")
for i=0 to strtimes
shell.sendkeys (strtext & "{enter}")
wscript.sleep strspeed
Next
shell.sendkeys ("Spambot deactivated" & "{enter}")
wscript.sleep strspeed * strtimes / 10
returnvalue=MsgBox ("Want to spam again with the same info?",36)
If returnvalue=6 Then
Msgbox "Ok Spambot will activate again"
End If
If returnvalue=7 Then
msgbox "Spambox is shutting down"
wscript.quit
End IF
loop[/font]
 
Top