Spam Your Friends App


-- Spammer v1.1 (17/8/2011) 
-- Fixed Error Bug When Cancelling 
-- Added Additional Buttons 
-- Added Welcome Menu
-- Added Key Stoking 
-- Fixed Some Messy Script
--
-- Spammer v1.0 (3/2/2011)
-- First Release 
--
try
	set welcome to display dialog "Welcome To iSpammer [Version v1.1]" & return & return & "How To Use iSpammer:" & return & return & "Follow The Instructions On Each Window (Its Easy A Dummy Could Do This!)" & return & return & "WARNING!!:" & return & "DO NOT USE THIS FOR INLEGAL USES AS THIS PROGRAM IS TO BE USED AT YOUR OWN RISK!." & return & return & "ENJOY!..." buttons {"I Don't Agree OR Understand!.", "Start iSpammer..."} with title "Welcome To iSpammer [Version v1.1]" default button 2 with icon note
	if button returned of welcome = "I Don't Agree OR Understand!." then
		set dam to display dialog "IF YOU DO NOT WISH TO USE THIS APP ANYMORE PLEASE MOVE IT TO THE TRASH!." buttons {"Thanks"} giving up after 5
		if button returned of dam = "Thanks" then
			quit
		end if
	end if
	if button returned of welcome = "Start iSpammer..." then
		set var1 to (display dialog "Type Spam?:" default answer "" with title "iSpammer v1.1 By AudialRedux (STEP 1)" buttons {"Cancel", "Continue To Step 2"})
		set var2 to text returned of var1
	end if
	if button returned of var1 = "Cancel" then
		quit
	end if
	if button returned of var1 = "Continue To Step 2" then
		--delay 0.5
		set numoftimes to (display dialog "How Many Times Do You Wish To Automatically Write It?:" default answer "" with title "iSpammer v1.1 By AudialRedux (STEP 2)" buttons {"Cancel", "Continue To (Step 3)"})
		set numoftimes2 to text returned of numoftimes
	end if
	if button returned of numoftimes = "Cancel" then
		quit
	end if
	if button returned of numoftimes = "Continue To (Step 3)" then
		set infotimer to display dialog "How Step 3 Works!:" & return & return & "Ok, Once The Count Down Has Started! Click On Where You Would Of Put The Spam Yourself." & return & return & "DON'T CLICK ANYWHERE ELSE OR DO ANYTHING UNTIL THE APPLICATION PROMPTS YOU SAYING THE COMMAND IS COMPLETE!" buttons {"What?, Cancel", "Start Count Down To (iSpamming.)"} with title "iSpammer v1.1 By AudialRedux (STEP 3)" default button 2 with icon note
	end if
	if button returned of infotimer = "Start Count Down To (iSpamming.)" then
		set timer to display dialog "Spamming Will Begin In: [10 seconds.]" buttons "Cancel" with title "iSpammer v1.1 By AudialRedux (COUNT DOWN.)" giving up after 1
		set timer to display dialog "Spamming Will Begin In: [9 seconds.]" buttons "Cancel" with title "iSpammer v1.1 By AudialRedux (COUNT DOWN.)" giving up after 1
		set timer to display dialog "Spamming Will Begin In: [8 seconds..]" buttons "Cancel" with title "iSpammer v1.1 By AudialRedux (COUNT DOWN..)" giving up after 1
		set timer to display dialog "Spamming Will Begin In: [7 seconds...]" buttons "Cancel" with title "iSpammer v1.1 By AudialRedux (COUNT DOWN...)" giving up after 1
		set timer to display dialog "Spamming Will Begin In: [6 seconds.]" buttons "Cancel" with title "iSpammer v1.1 By AudialRedux (COUNT DOWN.)" giving up after 1
		set timer to display dialog "Spamming Will Begin In: [5 seconds..]" buttons "Cancel" with title "iSpammer v1.1 By AudialRedux (COUNT DOWN..)" giving up after 1
		set timer to display dialog "Spamming Will Begin In: [4 seconds...]" buttons "Cancel" with title "iSpammer v1.1 By AudialRedux (COUNT DOWN...)" giving up after 1
		set timer to display dialog "Spamming Will Begin In: [3 seconds.]" buttons "Cancel" with title "iSpammer v1.1 By AudialRedux (COUNT DOWN.)" giving up after 1
		set timer to display dialog "Spamming Will Begin In: [2 seconds..]" buttons "Cancel" with title "iSpammer v1.1 By AudialRedux (COUNT DOWN..)" giving up after 1
		set timer to display dialog "Spamming Will Begin In: [1 seconds...]" buttons "Cancel" with title "iSpammer v1.1 By AudialRedux (COUNT DOWN.)" giving up after 1
		say "Starting" using "Vicki"
		repeat numoftimes2 times
			tell application "System Events"
				tell process "finder"
					keystroke var2 & (key code 36)
				end tell
			end tell
			tell application "System Events"
				tell process "finder"
					keystroke return
				end tell
			end tell
			delay 0.4
			--end if 
			set endofroad to display dialog "iSpamming Completed!." buttons {"WOW!, Thanks!."} with title "This Is The End Of The Road!."
			say "i spamming completed"
			if button returned of endofroad = "WOW!, Thanks!." then
				quit
			end if
		end repeat
		--	end if
		--end if
		--end if
	end if
	--end if
end try
end

(WARNING!!! THIS NEW VERSION 1.2 IS UNTESTED AS IT WAS EDITED ON A WINDOWS COMPUTER “WILL BE TESTED TONIGHT AND UPLOADED AGAIN IF ANY BUGS ARE FOUND!”)

COMING SOON!: Version 1.3
Which Will Include (BELOW)
*Custom Enter Key Time Delay
*Custom Timing Of Spamming
*Inpproarite Language Filtering (If You Dont Want This Then Remove The Code That Stops inpproarite Language)
*And More…

(ENJOY AND ONLY USE IN A NON HARMFUL WAY!)


-- Spammer v1.2 (19/8/2011)
-- Improved Enter Key Fuction 
-- Key Fuction Delays To Number Of Times Wanting To Use
--
-- Spammer v1.1 (17/8/2011) 
-- Fixed Error Bug When Cancelling 
-- Added Additional Buttons 
-- Added Welcome Menu
 -- Added Key Stoking 
-- Fixed Some Messy Script
 --
 -- Spammer v1.0 (3/2/2011)
 -- First Release 
--
 try
    set welcome to display dialog "Welcome To iSpammer [Version v1.2]" & return & return & "How To Use iSpammer:" & return & return & "Follow The Instructions On Each Window (Its Easy A Dummy Could Do This!)" & return & return & "WARNING!!:" & return & "DO NOT USE THIS FOR INLEGAL USES AS THIS PROGRAM IS TO BE USED AT YOUR OWN RISK!." & return & return & "ENJOY!..." buttons {"I Don't Agree OR Understand!.", "Start iSpammer..."} with title "Welcome To iSpammer [Version v1.2]" default button 2 with icon note
    if button returned of welcome = "I Don't Agree OR Understand!." then
        set dam to display dialog "IF YOU DO NOT WISH TO USE THIS APP ANYMORE PLEASE MOVE IT TO THE TRASH!." buttons {"Thanks"} giving up after 5
        if button returned of dam = "Thanks" then
            quit
        end if
    end if
    if button returned of welcome = "Start iSpammer..." then
        set var1 to (display dialog "Type Spam?:" default answer "" with title "iSpammer v1.2 By AudialRedux (STEP 1)" buttons {"Cancel", "Continue To Step 2"})
        set var2 to text returned of var1
    end if
    if button returned of var1 = "Cancel" then
        quit
    end if
    if button returned of var1 = "Continue To Step 2" then
        --delay 0.5
        set numoftimes to (display dialog "How Many Times Do You Wish To Automatically Write It?:" default answer "" with title "iSpammer v1.2 By AudialRedux (STEP 2)" buttons {"Cancel", "Continue To (Step 3)"})
        set numoftimes2 to text returned of numoftimes
    end if
    if button returned of numoftimes = "Cancel" then
        quit
    end if
    if button returned of numoftimes = "Continue To (Step 3)" then
        set infotimer to display dialog "How Step 3 Works!:" & return & return & "Ok, Once The Count Down Has Started! Click On Where You Would Of Put The Spam Yourself." & return & return & "DON'T CLICK ANYWHERE ELSE OR DO ANYTHING UNTIL THE APPLICATION PROMPTS YOU SAYING THE COMMAND IS COMPLETE!" buttons {"What?, Cancel", "Start Count Down To (iSpamming.)"} with title "iSpammer v1.2 By AudialRedux (STEP 3)" default button 2 with icon note
    end if
    if button returned of infotimer = "Start Count Down To (iSpamming.)" then
        set timer to display dialog "Spamming Will Begin In: [10 seconds.]" buttons "Cancel" with title "iSpammer v1.2 By AudialRedux (COUNT DOWN.)" giving up after 1
        set timer to display dialog "Spamming Will Begin In: [9 seconds.]" buttons "Cancel" with title "iSpammer v1.2 By AudialRedux (COUNT DOWN.)" giving up after 1
        set timer to display dialog "Spamming Will Begin In: [8 seconds..]" buttons "Cancel" with title "iSpammer v1.2 By AudialRedux (COUNT DOWN..)" giving up after 1
        set timer to display dialog "Spamming Will Begin In: [7 seconds...]" buttons "Cancel" with title "iSpammer v1.2 By AudialRedux (COUNT DOWN...)" giving up after 1
        set timer to display dialog "Spamming Will Begin In: [6 seconds.]" buttons "Cancel" with title "iSpammer v1.2 By AudialRedux (COUNT DOWN.)" giving up after 1
        set timer to display dialog "Spamming Will Begin In: [5 seconds..]" buttons "Cancel" with title "iSpammer v1.2 By AudialRedux (COUNT DOWN..)" giving up after 1
        set timer to display dialog "Spamming Will Begin In: [4 seconds...]" buttons "Cancel" with title "iSpammer v1.2 By AudialRedux (COUNT DOWN...)" giving up after 1
        set timer to display dialog "Spamming Will Begin In: [3 seconds.]" buttons "Cancel" with title "iSpammer v1.2 By AudialRedux (COUNT DOWN.)" giving up after 1
        set timer to display dialog "Spamming Will Begin In: [2 seconds..]" buttons "Cancel" with title "iSpammer v1.2 By AudialRedux (COUNT DOWN..)" giving up after 1
        set timer to display dialog "Spamming Will Begin In: [1 seconds...]" buttons "Cancel" with title "iSpammer v1.2 By AudialRedux (COUNT DOWN.)" giving up after 1
        say "Starting" using "Vicki"
        repeat numoftimes2 times
          tell application "System Events"
                tell process "finder"
                    keystroke var2 
                end tell
            end tell
try 
delay numoftimes2
end try
tell application "System Events"
                tell process "finder"
                try 
                set key to key code 36
                end try
                    key  
                end tell
else 
key code 36
            end tell
            delay 0.4
            --end if 
           set endofroad to display dialog "iSpamming Completed!." buttons {"WOW!, Thanks!."} with title "This Is The End Of The Road!."
            say "i spamming completed"
            if button returned of endofroad = "WOW!, Thanks!." then
                quit
            end if
        end repeat
        --    end if
        --end if
        --end if
    end if
    --end if
 end try
 end

There Was Issues In 1.2 Which Are Now Fixed And Added So Much More!!.


-- iSpammer v1.3 (20/8/201)
-- Added Inpproarite Langauge DataBase (Basic Addition)
-- Added 
-- iSpammer v1.2 (19/8/2011)
-- Improved Enter Key Fuction 
-- Key Fuction Delays To Number Of Times Wanting To Use
--
-- iSpammer v1.1 (17/8/2011) 
-- Fixed Error Bug When Cancelling 
-- Added Additional Buttons 
-- Added Welcome Menu
-- Added Key Stoking 
-- Fixed Some Messy Script
--
-- iSpammer v1.0 (3/2/2011)
-- First Release 
--
set test_3 to do shell script "ping -c 1 [url=http://www.google.com]www.google.com[/url]"
tell application "Finder"
	set p to number of paragraphs in test_3
	if p < 5 then
		set sorry to display dialog "[Error!:] Sorry But No Internet Connection Was Detected!." with title "iSpammer v1.3 By AudialRedux" buttons {"Close iSpammer v1.3"}
		if button returned of sorry = "Close iSpammer v1.3" then
			quit
		end if
	else
		set yourwelcome to display dialog "Internet Connection Enabled!, You May Use iSpammer Now!." with title "iSpammer v1.3 By AudialRedux" buttons {"Start!."}
	end if
end tell
if button returned of yourwelcome = "Start!." then
	try
		set welcome to display dialog "Welcome To iSpammer [Version v1.3]" & return & return & "How To Use iSpammer:" & return & return & "Follow The Instructions On Each Window (Its Easy A Dummy Could Do This!)" & return & return & "WARNING!!:" & return & "DO NOT USE THIS FOR INLEGAL USES AS THIS PROGRAM IS TO BE USED AT YOUR OWN RISK!." & return & return & "ENJOY!..." buttons {"I Don't Agree OR Understand!.", "Start iSpammer.", "Settings"} with title "Welcome To iSpammer [Version v1.3]" default button 2 with icon note
		if button returned of welcome = "I Don't Agree OR Understand!." then
			set dam to display dialog "IF YOU DO NOT WISH TO USE THIS APP ANYMORE PLEASE MOVE IT TO THE TRASH!." buttons {"Thanks"} giving up after 5
			if button returned of dam = "Thanks" then
				quit
			end if
		end if
		if button returned of welcome = "Settings" then
			display dialog "Meh, Couldnt Be Bothered! Be Released In Next Release 1.4!." buttons {"Omg AudialRedux Is Lazy!."}
		end if
		if button returned of welcome = "Start iSpammer..." then
			set var1 to (display dialog "Type Spam?:" default answer "" with title "iSpammer v1.3 By AudialRedux (STEP 1)" buttons {"Cancel", "Continue To Step 2"})
			set var2 to text returned of var1
			
		end if
		if button returned of var1 = "Cancel" then
			quit
		end if
		if button returned of var1 = "Continue To Step 2" then
			if text returned of var1 contains {"penis"} then
				set naughty to display dialog "Sorry But The Database Detected Naughty Words!." buttons {"Re-write what I Said!."}
				if button returned of naughty = "Re-write What I Said!." then
					quit
				end if
			end if
			if text returned of var1 contains {"fuck"} then
				set naughty to display dialog "Sorry But The Database Detected Naughty Words!." buttons {"Re-write what I Said!."}
				if button returned of naughty = "Re-write What I Said!." then
					quit
				end if
			end if
			if text returned of var1 contains {"cunt"} then
				set naughty to display dialog "Sorry But The Database Detected Naughty Words!." buttons {"Re-write what I Said!."}
				if button returned of naughty = "Re-write What I Said!." then
					quit
				end if
			end if
			if text returned of var1 contains {"shit"} then
				set naughty to display dialog "Sorry But The Database Detected Naughty Words!." buttons {"Re-write what I Said!."}
				if button returned of naughty = "Re-write What I Said!." then
					quit
				end if
			end if
			--delay 0.5
			set numoftimes to (display dialog "How Many Times Do You Wish To Automatically Write It?:" default answer "" with title "iSpammer v1.3 By AudialRedux (STEP 2)" buttons {"Cancel", "Continue To (Step 3)"})
			set numoftimes2 to text returned of numoftimes
		end if
		if button returned of numoftimes = "Cancel" then
			quit
		end if
		if button returned of numoftimes = "Continue To (Step 3)" then
			set infotimer to display dialog "How Step 3 Works!:" & return & return & "Ok, Once The Count Down Has Started! Click On Where You Would Of Put The Spam Yourself." & return & return & "DON'T CLICK ANYWHERE ELSE OR DO ANYTHING UNTIL THE APPLICATION PROMPTS YOU SAYING THE COMMAND IS COMPLETE!" buttons {"What?, Cancel", "Start Count Down To (iSpamming.)"} with title "iSpammer v1.3 By AudialRedux (STEP 3)" default button 2 with icon note
		end if
		if button returned of infotimer = "Start Count Down To (iSpamming.)" then
			set timer to display dialog "Spamming Will Begin In: [10 seconds.]" buttons "Cancel" with title "iSpammer v1.3 By AudialRedux (COUNT DOWN.)" giving up after 1
			set timer to display dialog "Spamming Will Begin In: [9 seconds.]" buttons "Cancel" with title "iSpammer v1.3 By AudialRedux (COUNT DOWN.)" giving up after 1
			set timer to display dialog "Spamming Will Begin In: [8 seconds..]" buttons "Cancel" with title "iSpammer v1.3 By AudialRedux (COUNT DOWN..)" giving up after 1
			set timer to display dialog "Spamming Will Begin In: [7 seconds...]" buttons "Cancel" with title "iSpammer v1.3 By AudialRedux (COUNT DOWN...)" giving up after 1
			set timer to display dialog "Spamming Will Begin In: [6 seconds.]" buttons "Cancel" with title "iSpammer v1.3 By AudialRedux (COUNT DOWN.)" giving up after 1
			set timer to display dialog "Spamming Will Begin In: [5 seconds..]" buttons "Cancel" with title "iSpammer v1.3 By AudialRedux (COUNT DOWN..)" giving up after 1
			set timer to display dialog "Spamming Will Begin In: [4 seconds...]" buttons "Cancel" with title "iSpammer v1.3 By AudialRedux (COUNT DOWN...)" giving up after 1
			set timer to display dialog "Spamming Will Begin In: [3 seconds.]" buttons "Cancel" with title "iSpammer v1.3 By AudialRedux (COUNT DOWN.)" giving up after 1
			set timer to display dialog "Spamming Will Begin In: [2 seconds..]" buttons "Cancel" with title "iSpammer v1.3 By AudialRedux (COUNT DOWN..)" giving up after 1
			set timer to display dialog "Spamming Will Begin In: [1 seconds...]" buttons "Cancel" with title "iSpammer v1.3 By AudialRedux (COUNT DOWN.)" giving up after 1
			say "Starting" using "Vicki"
			repeat numoftimes2 times
				tell application "System Events"
					tell process "finder"
						keystroke var2
					end tell
				end tell
				try
					delay 2.4
				end try
				tell application "System Events"
					tell process "finder"
						try
							set key to key code 36
						end try
						key
						key code 36
					end tell
				end tell
				delay 0.4
				--end if 
				set endofroad to display dialog "iSpamming Completed!." buttons {"WOW!, Thanks!."} with title "This Is The End Of The Road!."
				say "i spamming completed"
				
				if button returned of endofroad = "WOW!, Thanks!." then
					quit
				end if
				
			end repeat
			-- end if
			--end if
			--end if
		end if
	end try
	
end if


These Applescripts No Longer Work!, As Of Facebook Feature Changes!. (But Code Is Still Usefull If Wish To Mess Around With It On Different Web Sites. [I’m No Longer Supporting These Scripts Anymore Ethier Sorry! So No Updates Anymore.]