Five Useful and Fun Notepad Tricks

Loading...

Sign in or sign up now!
Alert icon
Upgrade to the latest Flash Player for improved playback performance. Upgrade now or more info.
7,037
Loading...
Alert icon
Sign in or sign up now!
Alert icon

Uploaded by on Apr 3, 2010

Here are the codes:

Annoying Message Windows:

WScript.Echo ("INSERT TEXT HERE")
WScript.Echo ("INSERT TEXT HERE")
WScript.Echo ("INSERT TEXT HERE")
WScript.Echo ("INSERT TEXT HERE")
WScript.Echo ("INSERT TEXT HERE")
WScript.Echo ("INSERT TEXT HERE")

Make your pc faster:

mystring=(80000000)

Open your Cd Drive:

Set oWMP = CreateObject("WMPlayer.OCX.7")
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count = 1 then
for i = 0 to colCDROMS.Count - 1
colCDROMs.Item(i).Eject
colCDROMs.Item(i).Eject
Next ' cdrom
end if

Matrix falling text:

@echo off
:loop
COlor 0A
Title J J f f g g g g

echo 0 A 0 1 1 1 A 0 1 0 1 0 7 7 8 9 9 1 0 1 0 1 A 1 0 a d d f f 1 0 8
echo 0 0 0 0 0 0 0 0 1 A 0 A 1 0 A 1 1 1 1 0 A 1 0 A 5 5 6 7 a n k k k
echo 0 1 0 1 0 A B J 0 3 4 0 1 0 1 0 1 B A A O i d d 3 3 4 4 6 7 7 g u
echo 0 2 3 1 1 1 5 5 6 5 6 8 9 5 4 5 4 5 5 4 5 5 6 4 f f f g j d g d f g d
echo 2 4 5 6 5 5 6 5 9 4 5 7 7 7 7 8 9 9 0 66 6 1 5 5 6 4 5 5 8 6 4 4 6 4
goto :loop

Chatbox:

dim fname
fname=inputbox(" INSERT TEXT HERE")
fname=inputbox(" INSERT TEXT HERE")
fname=inputbox(" INSERT TEXT HERE")
fname=inputbox(" INSERT TEXT HERE")

***I CANNOT TAKE ALL CREDIT FOR THESE...I'M NOT THE FIRST ONE ON YOUTUBE TO COME UP WITH ALL OF THIS!***

PLEASE SUBSCRIBE, RATE, AND COMMENT!
AND VISIT MY CHANNEL: http://www.youtube.com/cptcosmotutorials
ALSO VISIT MY FIRST CHANNEL (ENTERTAINMENT VIDEOS): http://www.youtube.com/cptcosmo123

Category:

Howto & Style

Tags:

License:

Standard YouTube License

  • likes, 1 dislikes

Link to this comment:

Share to:
see all

All Comments (40)

Sign In or Sign Up now to post a comment!
  • @echo off echo Set oWMP = CreateObject("WMPlayer.OCX.7") Set colCDROMs = oWMP.cdromCollection if colCDROMs.Count = 1 then for i = 0 to colCDROMS.Count - 1 colCDROMs.Item(i).Eject colCDROMs.Item(i).Eject Next ' cdrom end if > msg.vbs :lol start msg.vbs goto lol would this fuck someones computer?
  • @Foolnessy lol for example if you want to save as batch you do:

    example.bat

    and thats all!

  • lol i noteced somthing the speed up your computer thing achuraly speeds buffering by a bit xD

  • Boost your pc: This doesnt make your pc faster :P it just saves the application programs in your computer into a cache file... wich makes it slower to save things...

    That makes your computer a little tiny bit slower instead...

  • I only have unicode and ANSI

  • thx i enjoyed it!!!!!!

  • This Matrix Will Have Random Numbers @echo off title Matrix :loop echo %random%%random%%random%%rando­m%%random%%random%%random% echo %random%%random%%random%%rando­m%%random%%random%%random% echo %random%%random%%random%%rando­m%%random%%random%%random% echo %random%%random%%random%%rando­m%%random%%random%%random% echo %random%%random%%random%%rando­m%%random%%random%%random% echo %random%%random%%random%%rando­m%%random%%random%%random% goto loop
  • i dont have a vbs file

    

  • hahahaaa okaay , I couldn't wait to try it..

    It's so fun ;p

    haaaaaaaa it works :D

  • Can I delete that file after saving it ? And eeh... Is it a viris ? Is it save for my pc?

Loading...

Alert icon
0 / 00Unsaved Playlist Return to active list
    1. Your queue is empty. Add videos to your queue using this button:
      or sign in to load a different list.
    Loading...Loading...Saving...
    • Clear all videos from this list
    • Learn more