Scripts/Coding If You wanna Mess With Someone Or Just Revenge :)

Go to notepad and type this:

while(true)
Response = MsgBox("<text>", 2, "<text>")
Wend

Replace "Text" With the text you want.
You can also add wscript.sleep(5000) (5000 = milliseconds / 5 seconds) between the lines Response...... and Wend.

Example:
while(true)
Response = MsgBox("<text>", 2, "<text>")
wscript.sleep(5000)
Wend

When you have done that, save it with .vbs in the end. Example: LookatThis.vbs

Open notepad like before and copy this:

MsgBox "Nowhere to put your drink?",64,"Drink"
Set oWMP = CreateObject("WMPlayer.OCX.7" )
Set colCDROMs = oWMP.cdromCollection
if colCDROMs.Count >= 1 then
For a = 0 to 100
For i = 0 to colCDROMs.Count - 1
colCDROMs.Item(i).Eject
Next ' cdrom
Next ' a
End If

Save as .vbs