Message Writer

If you ever want to prank your friends so if they open the internet it will open a program that randomly types unicorn, then this is a code that will help you.  Just type in this code into notepad and save as unicorn.vbs.  Save it in the documents folder.

set shellobj = CreateObject("WScript.Shell")

do

shellobj.sendkeys "Unicorns!!!"
wscript.sleep 5000
loop

Then you right click it and select create shortcut.  Move the shortcut to the desktop and right click it. Then select properties.  Once you are the properties click on the shortcut tab at the top of the box. Once you are in the shortcut tab click the change icon button.  Select the Internet Explorer icon and then apply it.  Rename the shortcut to Internet Explorer and you are done.

If you want it to be Google Chrome or a different browser then put a different browsers shortcut onto the desktop and go to its properties tab.  Once you are there click change icon and a different list of icons for that browser should show up.  There is a text box at the top of the change icon tab.  Click on it and select all the text, then copy it.  Go back to the unicorn file shortcut and go to its change icon page.  Then click on the text box in that one and paste all of the text from the other browser's icons in it and press enter.  Then those other icons will appear and you can change it and apply it then rename it to Safari or Google Chrome.

To change the words that the program writes just change the part that says Unicorns!!! to the text you want it to be.  Make sure you don't delete the quotation marks or it won't work.  To change the speed at which it types in unicorns then just change the number that says 5000 to a number of your choice.  Do not try to change it to negative numbers though.  Have fun pranking your friends.