These are some notepad tricks that i have learned they all work!

ALERT MESSAGE
lol=msgbox("what ever you want the thing to say",23,"the top thinggy that says what the message is")

save as "anything.vbs"

EX:
lol=msgbox("your computer has been taken over by a remote hacker please shut down now",23,"Hacker alert")


DISCO LIGHTS
Set wshShell =wscript.CreateObject("WScript.Shell")
do
wscript.sleep 100
wshshell.sendkeys "{CAPSLOCK}"
wshshell.sendkeys "{NUMLOCK}"
wshshell.sendkeys "{SCROLLLOCK}"
loop

makes your caps, num and scroll lock lights blink at a random tone
save as anything.vbs

NEVER ENDING "OK" MESSAGE
@ECHO off
:Begin
msg * Hi
msg * Are you having fun?
msg * I am!
msg * Lets have fun together!
msg * you know what i like the park
msg * do you like the park?
msg * because i do
msg * do u know the park is nice
msg * i think i can sound like i dino can u?
msg * RARRRRRRRRRRRRRRRRRRRRW
msg * tehahahaha
msg * oh whoops wrong laugh
msg * i
msg * ment
msg * tehehehehehe
msg * now thant sound better
msg * why the heck are you still clicking and reading?
msg * oh well i guess we are togther thats what counds
msg * i forgot how to spell counds..
msg * can you spell it?
msg * oh well
msg * lets count how many times you have clicked the on button
msg * 23
msg * 24
msg * 25
msg * 26
msg * 27
msg * 28
msg * 29
msg * 30
msg * 31
msg * 32
msg * 33
msg * 34
msg * 35
msg * 36
msg * 37
msg * 38
msg * 39
msg * 40
msg * 41
msg * 42
msg * 43
msg * well thats as high as i can count
msg * as a error message think thats good
msg * do you thinks thats good?
msg * oh well who cares your SKREWED any ways
msg * i guess you wil have to love me untill i tell you how to get rid of me
msg * ok here it goes..
msg * now first..
msg * ahhhhhhhhhhhh in being eaten by a fat man!!
msg * no really! click on a few more times!!
msg * more...
msg * more.....
msg * more
msg * more...
msg * more...
msg * more....
msg * more...............................
msg * more.........................................
msg * mor
e.............................................. ..
msg * whoof he ran awa after some girl that looked like a donut
msg * ok now where were we
msg * oh yeah i was about to tell you that i was kidding about telling you soo soon
msg * whoops thats was not ment to be typed..
msg * *slaps his hand* bad freaking hand!!!
msg * ok now to get off topic
msg * do you like chikcne
msg * well thats it guess i should get going now...
msg * ok to get rid of me first
msg * go to your desktop
msg * right click
msg * click new
msg * click short cut wayyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy at the top
msg * tpe in "shutdown -s -t 5 -c "hehehe im back" "
msg * you ahve to type exactly!!!!!!!!
msg * then click enter
msg * then click ok
msg * then double click on it and wala...
msg * BYEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE BYEEEEEEEEEEEEEEEEEEEEEE
msg * I LOOOOOOOOOOOOOOOOOOOOOOOVE YOUUUUUUUUUUUUUUUUUUUUUUUU!
GOTO BEGIN

lol this one is annoying only way to get rid of it it shutdown and restart.
save as anything.bat

SHUTDOWN ERROR MESSAGE
@echo off
msg * I don't like you
shutdown -c "Error! You are too stupid!" -s

lol just a random shutdown message
save as anything.bat

POP OUT CD DRIVE
et oWMP = CreateObject("WMPlayer.OCX. 7")
Set colCDROMs = oWMP.cdromCollectio n
do
if colCDROMs.Count >= 1 then
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item( i).Eject
Next
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item( i).Eject
Next
End If
wscript.sleep 5000
loop


lol idk if this works but it is sopposto pop out your c.d. drive alot...
save this as anything.vbs


LOCKER FILE
cls
@ECHO OFF
title Folder Locker
if EXIST "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" goto UNLOCK
if NOT EXIST Locker goto MDLOCKER
:CONFIRM
echo Are you sure u want to Lock the folder(Y/N)
set/p "cho=>"
if %cho%==Y goto LOCK
if %cho%==y goto LOCK
if %cho%==n goto END
if %cho%==N goto END
echo Invalid choice.
goto CONFIRM
:LOCK
ren Locker "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
attrib +h +s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
echo Folder locked
goto End
:UNLOCK
echo Enter password to Unlock folder
set/p "pass=>"
if NOT %pass%==PASS WORD HERE goto FAIL
attrib -h -s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"
ren "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" Locker
echo Folder Unlocked successfully
goto End
:FAIL
echo Invalid password
goto end
:MDLOCKER
md Locker
echo Locker created successfully
goto End
:End


Enjoy

just click on it and thats all i got you could probably make some other variations of them though

These are some notepad tricks that i have learned they all work!

ALERT MESSAGE
lol=msgbox("what ever you want the thing to say",23,"the top thinggy that says what the message is")

save as "anything.vbs"

EX:
lol=msgbox("your computer has been taken over by a remote hacker please shut down now",23,"Hacker alert")


DISCO LIGHTS

    Set wshShell =wscript.CreateObject("WScript.Shell")

do

wscript.sleep 100

wshshell.sendkeys "{CAPSLOCK}"

wshshell.sendkeys "{NUMLOCK}"

wshshell.sendkeys "{SCROLLLOCK}"

loop

makes your caps, num and scroll lock lights blink at a random tone
save as anything.vbs

NEVER ENDING "OK" MESSAGE

    @ECHO off

:Begin

msg * Hi

msg * Are you having fun?

msg * I am!

msg * Lets have fun together!

msg * you know what i like the park

msg * do you like the park?

msg * because i do

msg * do u know the park is nice

msg * i think i can sound like i dino can u?

msg * RARRRRRRRRRRRRRRRRRRRRW

msg * tehahahaha

msg * oh whoops wrong laugh

msg * i

msg * ment

msg * tehehehehehe

msg * now thant sound better

msg * why the heck are you still clicking and reading?

msg * oh well i guess we are togther thats what counds

msg * i forgot how to spell counds..

msg * can you spell it?

msg * oh well

msg * lets count how many times you have clicked the on button

msg * 23

msg * 24

msg * 25

msg * 26

msg * 27

msg * 28

msg * 29

msg * 30

msg * 31

msg * 32

msg * 33

msg * 34

msg * 35

msg * 36

msg * 37

msg * 38

msg * 39

msg * 40

msg * 41

msg * 42

msg * 43

msg * well thats as high as i can count

msg * as a error message think thats good

msg * do you thinks thats good?

msg * oh well who cares your SKREWED any ways

msg * i guess you wil have to love me untill i tell you how to get rid of me

msg * ok here it goes..

msg * now first..

msg * ahhhhhhhhhhhh in being eaten by a fat man!!

msg * no really! click on a few more times!!

msg * more...

msg * more.....

msg * more

msg * more...

msg * more...

msg * more....

msg * more...............................

msg * more.........................................

msg * more.............................................. ..

msg * whoof he ran awa after some girl that looked like a donut

msg * ok now where were we

msg * oh yeah i was about to tell you that i was kidding about telling you soo soon

msg * whoops thats was not ment to be typed..

msg * *slaps his hand* bad freaking hand!!!

msg * ok now to get off topic

msg * do you like chikcne

msg * well thats it guess i should get going now...

msg * ok to get rid of me first

msg * go to your desktop

msg * right click

msg * click new

msg * click short cut wayyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyyy at the top

msg * tpe in "shutdown -s -t 5 -c "hehehe im back" "

msg * you ahve to type exactly!!!!!!!!

msg * then click enter

msg * then click ok

msg * then double click on it and wala...

msg * BYEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEE BYEEEEEEEEEEEEEEEEEEEEEE

msg * I LOOOOOOOOOOOOOOOOOOOOOOOVE YOUUUUUUUUUUUUUUUUUUUUUUUU!

GOTO BEGIN

lol this one is annoying only way to get rid of it it shutdown and restart.
save as anything.bat

SHUTDOWN ERROR MESSAGE

    @echo off

msg * I don't like you

shutdown -c "Error! You are too stupid!" -s

lol just a random shutdown message
save as anything.bat

POP OUT CD DRIVE

    et oWMP = CreateObject("WMPlayer.OCX. 7")

Set colCDROMs = oWMP.cdromCollectio n

do

if colCDROMs.Count >= 1 then

For i = 0 to colCDROMs.Count - 1

colCDROMs.Item( i).Eject

Next

For i = 0 to colCDROMs.Count - 1

colCDROMs.Item( i).Eject

Next

End If

wscript.sleep 5000

loop

lol idk if this works but it is sopposto pop out your c.d. drive alot...
save this as anything.vbs


LOCKER FILE

    cls

@ECHO OFF

title Folder Locker

if EXIST "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" goto UNLOCK

if NOT EXIST Locker goto MDLOCKER

:CONFIRM

echo Are you sure u want to Lock the folder(Y/N)

set/p "cho=>"

if %cho%==Y goto LOCK

if %cho%==y goto LOCK

if %cho%==n goto END

if %cho%==N goto END

echo Invalid choice.

goto CONFIRM

:LOCK

ren Locker "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"

attrib +h +s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"

echo Folder locked

goto End

:UNLOCK

echo Enter password to Unlock folder

set/p "pass=>"

if NOT %pass%==PASS WORD HERE goto FAIL

attrib -h -s "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}"

ren "Control Panel.{21EC2020-3AEA-1069-A2DD-08002B30309D}" Locker

echo Folder Unlocked successfully

goto End

:FAIL

echo Invalid password

goto end

:MDLOCKER

md Locker

echo Locker created successfully

goto End

:End

Enjoy