Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- ' THREAD: http://adf.ly/rt4XB
- ' GIF OF WHAT IT DOES AND LOOKS LIKE: http://adf.ly/rt4YN
- Imports System
- Imports System.ComponentModel
- Imports System.Drawing
- Imports System.Windows.Forms
- Imports googleDocs_Spammer.My.Resources
- Imports System.Collections.Generic
- Imports System.Text.RegularExpressions
- '
- ' /$$$$$$ /$$ /$$ /$$$$$$$
- ' /$$__ $$ | $$ | $$ | $$__ $$
- '| $$ \__/ /$$$$$$ /$$$$$$$ /$$$$$$ /$$$$$$$ | $$ \ $$ /$$ /$$ /$$
- '| $$ /$$__ $$ /$$__ $$ /$$__ $$ /$$__ $$ | $$$$$$$ | $$ | $$|__/
- '| $$ | $$ \ $$| $$ | $$| $$$$$$$$| $$ | $$ | $$__ $$| $$ | $$
- '| $$ $$| $$ | $$| $$ | $$| $$_____/| $$ | $$ | $$ \ $$| $$ | $$ /$$
- '| $$$$$$/| $$$$$$/| $$$$$$$| $$$$$$$| $$$$$$$ | $$$$$$$/| $$$$$$$|__/
- ' \______/ \______/ \_______/ \_______/ \_______/ |_______/ \____ $$
- ' /$$ | $$
- ' | $$$$$$/
- ' \______/
- '
- ' _____ _____ _____ _____ _____ _____ _______ _____
- ' /\ \ /\ \ /\ \ /\ \ /\ \ /\ \ ______ /::\ \ /\ \
- ' /::\ \ /::\ \ /::\ \ /::\ \ /::\____\ /::\ \ |::| | /::::\ \ /::\ \
- ' /::::\ \ /::::\ \ /::::\ \ /::::\ \ /:::/ / /::::\ \ |::| | /::::::\ \ /::::\ \
- ' /::::::\ \ /::::::\ \ /::::::\ \ /::::::\ \ /:::/ / /::::::\ \ |::| | /::::::::\ \ /::::::\ \
- ' /:::/\:::\ \ /:::/\:::\ \ /:::/\:::\ \ /:::/\:::\ \ /:::/ / /:::/\:::\ \ |::| | /:::/~~\:::\ \ /:::/\:::\ \
- ' /:::/__\:::\ \ /:::/__\:::\ \ /:::/__\:::\ \ /:::/__\:::\ \ /:::/____/ /:::/__\:::\ \ |::| | /:::/ \:::\ \ /:::/__\:::\ \
- ' /::::\ \:::\ \ /::::\ \:::\ \ \:::\ \:::\ \ \:::\ \:::\ \ /::::\ \ /::::\ \:::\ \ |::| | /:::/ / \:::\ \ /::::\ \:::\ \
- ' /::::::\ \:::\ \ /::::::\ \:::\ \ ___\:::\ \:::\ \ ___\:::\ \:::\ \ /::::::\ \ _____ /::::::\ \:::\ \ |::| | /:::/____/ \:::\____\ /::::::\ \:::\ \
- ' /:::/\:::\ \:::\ ___\ /:::/\:::\ \:::\ \ /\ \:::\ \:::\ \ /\ \:::\ \:::\ \ /:::/\:::\ \ /\ \ /:::/\:::\ \:::\ \ ______|::|___|___ ____ |:::| | |:::| | /:::/\:::\ \:::\____\
- ' :::/__\:::\ \:::| |/:::/ \:::\ \:::\____\/::\ \:::\ \:::\____\/::\ \:::\ \:::\____\/:::/ \:::\ /::\____\/:::/ \:::\ \:::\____\|:::::::::::::::::| ||:::|____| |:::| |/:::/ \:::\ \:::| |
- '\:::\ \:::\ /:::|____|\::/ \:::\ /:::/ /\:::\ \:::\ \::/ /\:::\ \:::\ \::/ /\::/ \:::\ /:::/ /\::/ \:::\ /:::/ /|:::::::::::::::::|____| \:::\ \ /:::/ / \::/ |::::\ /:::|____|
- ' \:::\ \:::\/:::/ / \/____/ \:::\/:::/ / \:::\ \:::\ \/____/ \:::\ \:::\ \/____/ \/____/ \:::\/:::/ / \/____/ \:::\/:::/ / ~~~~~~|::|~~~|~~~ \:::\ \ /:::/ / \/____|:::::\/:::/ /
- ' \:::\ \::::::/ / \::::::/ / \:::\ \:::\ \ \:::\ \:::\ \ \::::::/ / \::::::/ / |::| | \:::\ /:::/ / |:::::::::/ /
- ' \:::\ \::::/ / \::::/ / \:::\ \:::\____\ \:::\ \:::\____\ \::::/ / \::::/ / |::| | \:::\__/:::/ / |::|\::::/ /
- ' \:::\ /:::/ / /:::/ / \:::\ /:::/ / \:::\ /:::/ / /:::/ / /:::/ / |::| | \::::::::/ / |::| \::/____/
- ' \:::\/:::/ / /:::/ / \:::\/:::/ / \:::\/:::/ / /:::/ / /:::/ / |::| | \::::::/ / |::| ~|
- ' \::::::/ / /:::/ / \::::::/ / \::::::/ / /:::/ / /:::/ / |::| | \::::/ / |::| |
- ' \::::/ / /:::/ / \::::/ / \::::/ / /:::/ / /:::/ / |::| | \::/____/ \::| |
- ' \::/____/ \::/ / \::/ / \::/ / \::/ / \::/ / |::|___| ~~ \:| |
- ' ~~ \/____/ \/____/ \/____/ \/____/ \/____/ ~~ \|___|
- '
- '
- '
- ' OOOOOOOOO SSSSSSSSSSSSSSS
- ' OO:::::::::OO SS:::::::::::::::S
- ' OO:::::::::::::OO S:::::SSSSSS::::::S
- 'O:::::::OOO:::::::O S:::::S SSSSSSS
- 'O::::::O O::::::Oppppp ppppppppp eeeeeeeeeeee nnnn nnnnnnnn S:::::S ooooooooooo uuuuuu uuuuuu rrrrr rrrrrrrrr cccccccccccccccc eeeeeeeeeeee
- 'O:::::O O:::::Op::::ppp:::::::::p ee::::::::::::ee n:::nn::::::::nn S:::::S oo:::::::::::oo u::::u u::::u r::::rrr:::::::::r cc:::::::::::::::c ee::::::::::::ee
- 'O:::::O O:::::Op:::::::::::::::::p e::::::eeeee:::::een::::::::::::::nn S::::SSSS o:::::::::::::::ou::::u u::::u r:::::::::::::::::r c:::::::::::::::::c e::::::eeeee:::::ee
- 'O:::::O O:::::Opp::::::ppppp::::::pe::::::e e:::::enn:::::::::::::::n SS::::::SSSSS o:::::ooooo:::::ou::::u u::::u rr::::::rrrrr::::::rc:::::::cccccc:::::ce::::::e e:::::e
- 'O:::::O O:::::O p:::::p p:::::pe:::::::eeeee::::::e n:::::nnnn:::::n SSS::::::::SS o::::o o::::ou::::u u::::u r:::::r r:::::rc::::::c ccccccce:::::::eeeee::::::e
- 'O:::::O O:::::O p:::::p p:::::pe:::::::::::::::::e n::::n n::::n SSSSSS::::S o::::o o::::ou::::u u::::u r:::::r rrrrrrrc:::::c e:::::::::::::::::e
- 'O:::::O O:::::O p:::::p p:::::pe::::::eeeeeeeeeee n::::n n::::n S:::::So::::o o::::ou::::u u::::u r:::::r c:::::c e::::::eeeeeeeeeee
- 'O::::::O O::::::O p:::::p p::::::pe:::::::e n::::n n::::n S:::::So::::o o::::ou:::::uuuu:::::u r:::::r c::::::c ccccccce:::::::e
- 'O:::::::OOO:::::::O p:::::ppppp:::::::pe::::::::e n::::n n::::n SSSSSSS S:::::So:::::ooooo:::::ou:::::::::::::::uur:::::r c:::::::cccccc:::::ce::::::::e
- ' OO:::::::::::::OO p::::::::::::::::p e::::::::eeeeeeee n::::n n::::n S::::::SSSSSS:::::So:::::::::::::::o u:::::::::::::::ur:::::r c:::::::::::::::::c e::::::::eeeeeeee
- ' OO:::::::::OO p::::::::::::::pp ee:::::::::::::e n::::n n::::n S:::::::::::::::SS oo:::::::::::oo uu::::::::uu:::ur:::::r cc:::::::::::::::c ee:::::::::::::e
- ' OOOOOOOOO p::::::pppppppp eeeeeeeeeeeeee nnnnnn nnnnnn SSSSSSSSSSSSSSS ooooooooooo uuuuuuuu uuuurrrrrrr cccccccccccccccc eeeeeeeeeeeeee
- ' p:::::p
- ' p:::::p
- ' p:::::::p
- ' p:::::::p
- ' p:::::::p
- ' ppppppppp
- '
- '
- 'Yb dP 8 w .d88b. w w dP"Yb
- ' Yb db dP 8d8b. .d88 w8ww YPwww. .d88b .d8b 8 8 8d8b w w8ww Yb dP " d8
- ' YbdPYbdP 8P Y8 8 8 8 d8 8.dP' 8 8b d8 8P 8 8 YbdP dP
- ' YP YP 8 8 `Y88 Y8P `Y88P' `Y88P `Y8P `Y8P8 8 8 Y8P dP w
- ' dP
- '
- '
- Public Class Form1
- Private ReadOnly RanDIM As New Random()
- Private Const _chars As String = "AbCdEfGhIjKlMnOpQrStUvWxYz$#!-_" '_ YOU CAN CHANGE THIS ACCORDINGLY TO RANDOM STRING YOUR TRYING TO GENERATE :)
- Private Const EmailHash As String = "AbCdEfGhIjKlMnOpQrStUvWxYz1234567890" '_ YOU CAN CHANGE THIS ACCORDINGLY TO RANDOM STRING YOUR TRYING TO GENERATE :)
- Private Function RandomNumber(ByVal size As Integer, ByVal size2 As Integer, ByVal size3 As Integer, ByVal subtract As Integer) As Integer
- Dim rnd As New Random()
- Dim Num1 As Integer = rnd.Next(size)
- Dim Num2 As Integer = rnd.Next(size2)
- Dim Num3 As Integer = rnd.Next(size3)
- Dim minus As Integer = rnd.Next(subtract)
- Dim outcome As Integer = (Num1 + Num2 + Num3) - minus
- Return (outcome)
- End Function
- Private Function RandomEmail(ByVal size As Integer) As String
- Dim buffer(size - 1) As Char
- For i As Integer = 0 To size - 1
- buffer(i) = EmailHash.Chars(RanDIM.Next(EmailHash.Length))
- Next i
- Return New String(buffer)
- End Function
- Private Function RandomString(ByVal size As Integer) As String
- Dim buffer(size - 1) As Char
- For i As Integer = 0 To size - 1
- buffer(i) = _chars.Chars(RanDIM.Next(_chars.Length))
- Next i
- Return New String(buffer)
- End Function
- Private Function randomPass() As String
- Dim strPwdchar As String = "abcdefghijklmnopqrstuvwxyz0123456789#+@&$ABCDEFGHIJKLMNOPQRSTUVWXYZ"
- Dim strPwd As String = ""
- Dim rnd As New Random()
- For i As Integer = 0 To 11
- Dim iRandom As Integer = rnd.Next(0, strPwdchar.Length - 1)
- strPwd &= strPwdchar.Substring(iRandom, 1)
- Next i
- Return strPwd
- End Function
- Dim RandGen As New Random
- Dim RandBool As Boolean
- Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
- TextBox3.Text = googleDocs_Spammer.My.Settings.URLgo
- WebBrowser1.Navigate(TextBox3.Text)
- End Sub
- Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
- Timer1.Stop()
- WebBrowser1.Navigate(TextBox3.Text)
- googleDocs_Spammer.My.Settings.URLgo = TextBox3.Text
- googleDocs_Spammer.My.Settings.Save()
- Timer1.Start()
- End Sub
- Private Sub Label1_Click(sender As Object, e As EventArgs)
- End Sub
- Private Sub TextBox2_TextChanged(sender As Object, e As EventArgs)
- End Sub
- Private Sub Label2_Click(sender As Object, e As EventArgs)
- End Sub
- Dim randomBool As Boolean
- Public Function Rand()
- Dim rng As New Random()
- randomBool = rng.Next(0, 2) > 0
- Return randomBool
- End Function
- Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick
- Try
- Dim document As HtmlDocument = Me.WebBrowser1.Document
- 'NAME
- document.GetElementById("entry_1860725911").SetAttribute("value", randomPass())
- 'Age
- document.GetElementById("entry_1041008777").SetAttribute("value", randomPass())
- 'how long for moddin
- document.GetElementById("entry_1738889966").SetAttribute("value", randomPass())
- 'portfolio
- document.GetElementById("entry_303465052").SetAttribute("value", randomPass())
- 'Why should we?
- document.GetElementById("entry_1367840364").SetAttribute("value", randomPass())
- 'Email, skype or NGU?
- document.GetElementById("entry_925826936").SetAttribute("value", "SPAMMED")
- '----------------------'
- '-------CHECKBOX-------'
- '----------------------'
- 'C/C++
- document.GetElementById("group_1847588236_1").SetAttribute("Checked", Rand())
- 'VB
- document.GetElementById("group_1847588236_2").SetAttribute("Checked", Rand())
- 'C#
- document.GetElementById("group_1847588236_3").SetAttribute("Checked", Rand())
- 'PHP/HTML/CSS
- document.GetElementById("group_1847588236_4").SetAttribute("Checked", Rand())
- 'None
- document.GetElementById("group_1847588236_6").SetAttribute("Checked", Rand())
- WebBrowser1.Document.GetElementById("ss-submit").InvokeMember("Click")
- Timer1.Stop()
- Timer2.Start()
- Catch ex As Exception
- Timer1.Stop()
- Timer2.Start()
- End Try
- End Sub
- Private Sub Timer2_Tick(sender As Object, e As EventArgs) Handles Timer2.Tick
- Try
- If (WebBrowser1.Url.ToString = TextBox3.Text) Then
- ' SendKeys.Send("{DOWN}") ---IGNORE THIS, THIS WAS TO INVOKE KEYPRESS FOR JAVASCRIPT POPUP for PAGE NAVIGATION
- ' SendKeys.Send("{Enter}") ---IGNORE THIS, THIS WAS TO INVOKE KEYPRESS FOR JAVASCRIPT POPUP for PAGE NAVIGATION
- WebBrowser1.Document.GetElementById("ss-submit").InvokeMember("Click")
- Timer2.Stop()
- Timer1.Start()
- Else
- Timer2.Stop()
- WebBrowser1.Navigate(TextBox3.Text)
- 'SendKeys.Send("{Enter}") ' LEAVE PAGE
- Timer1.Start()
- End If
- Catch
- 'DO NOTHING
- Timer1.Start()
- End Try
- End Sub
- Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
- Timer1.Stop()
- Timer2.Stop()
- End Sub
- Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs)
- End Sub
- Private Sub WebBrowser1_DocumentCompleted(sender As Object, e As WebBrowserDocumentCompletedEventArgs) Handles WebBrowser1.DocumentCompleted
- WebBrowser1.ScriptErrorsSuppressed = True
- Dim Document As HtmlDocument = Me.WebBrowser1.Document
- End Sub
- Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
- WebBrowser1.Document.GetElementById("ss-submit").InvokeMember("Click")
- End Sub
- Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
- End Sub
- Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
- Timer1.Stop()
- Timer2.Stop()
- TextBox3.Text = "https://docs.google.com/forms/d/17NH8ruF3vpChPNUailP9tYhMk5yW6EhzDygnEnzZa5I/viewform?fbzx=1039479243069787340"
- End Sub
- End Class
Add Comment
Please, Sign In to add comment