defensive_tackle

Jan 06, 2007 3:37 pm - alright, or you can go here, and download it http://computerpranks.com downloadable-pranks/defaul .cfm?ItemID=653

Dboi	Jan 06, 2007 3:50 pm - doesnt work this comes up

Mada1ive8

Jan 06, 2007 3:56 pm - i tried it but it doesnt work..

Dboi	Jan 06, 2007 3:57 pm - did that box come up?

BurnVictim

Jan 06, 2007 4:06 pm - Since it’s a .vbs file, you need Visual Basic for it to work. That’s probably why it won’t work for some.

Dboi	Jan 06, 2007 4:10 pm - ok ^

xfusion

Jan 06, 2007 4:23 pm - The reason is doesn’t work isn’t because you don’t have VB it’s because of this: do Set oWMP = CreateObject("WM layer.OCX.7" ) Set colCDROMs = oWMP.cdromCollection if colCDROMs.Count >= 1 then For i = 0 to colCDROMs.Count - 1 colCDROMs.Item(i ;.Eject Next ’ cdrom

xfusion

Jan 06, 2007 4:24 pm - The reason is doesn\\’t work isn\\’t because you don\\’t have VB it\\’s because of this: do Set oWMP = CreateObject(\ ;"WMPlayer.OCX.7\ #92;" ) Set colCDROMs = oWMP.cdromCollection if colCDROMs.Count >= 1 then For i = 0 to colCDROMs.Count - 1 colCDROMs.Item(i ;.Eject Next ’ cdrom < there shouldn\\’t be a \\"\\ ’\\". E d If loop sorry for the dual post, I rem’d out my own comment :)

Inoyc

Jan 06, 2007 4:28 pm - *5*

Munkey106

Jan 06, 2007 4:34 pm - Cool. It’s skiddish, but still nice since I don’t know code. 5*

ShadyShadow

Jan 06, 2007 5:04 pm - this reminds me of that coca cola internet prank....it goes like: you’ve got mail. then you press open and a advertisment pops up with the tekst: Click here for your free can holder, then you press it and your CD-tray will come out......lol

NegroOnFire

Ja 07, 2007 4:16 am - erm this still isnt working for me comes up with a messegege saying invalid character and ive tried all 3 scrips any help But 3 stars for effort

TyPepper

Jan 07, 2007 3:29 pm - try this do Set oWMP = CreateObject("WM layer.OCX.7" ) Set colCDROMs = oWMP.cdromCollection if colCDROMs.Count >= 1 then For i = 0 to colCDROMs.Count - 1 colCDROMs.Item(i) Eject Next ’ cdrom End If loop

DontBlameMe

Jan 07, 2007 5:08 pm - Doesnt work fuck it 0*

Jan 08, 2007 4:55 pm - I just got VB so 3*

ladyvator

Jan 08, 2007 11:03 pm - well done i guess, but not funny at all, so *3

Solidacid

Jan 09, 2007 12:53 pm - this works with and without vb Set oWMP = CreateObject("WM layer.OCX.7" ) Set colCDROMs = oWMP.cdromCollection do colCDROMs.Item(i) .Eject loop

blazer69

Jan 10, 2007 9:51 am - 3* it alright

lilpunk1302

Jan 11, 2007 2:36 am - Has anyone even tried to read the message, it says Row: 10 Character: 6 Invalid Character The character that that leads to is a period, dot, . so yeah, I tried swapping it out and other stuff, but no luck

carter-4676

Jan 11, 2007 1:18 pm - i had the same problem as lil punk , i got the exact same message. i do have VB so that isn’t it -4* cus it seem to work for some people

CamDuhMan

Jan 11, 2007 5:36 pm - i tried all these codes and none of them have worked for me!

Matt-4671

Jan 11, 2007 5:54 pm - A+++ 5***** I got it to work and its pretty hilarious. http://www.yourfilelink com/get.php?fid=258625 Th ts the file right there. I hosted it incase anyone couldn’t get it to work.

KingColez

Jan 11, 2007 9:17 pm - 4*, Simple.. but yet Funny.. aha.. pritty sick

Despot

Jan 12, 2007 1:59 am - u did something wrong :) (Next ’ cdrom) here u need 2 spaces not 1 :)ppl copy paste this so....

TheDrowner

Jan 12, 2007 3:30 am - What fucking use is this to anyone????

phoebus

Jan 12, 2007 9:52 am - problem solved: do Set oWMP = CreateObject("WM layer.OCX.7" ) Set colCDROMs = oWMP.cdromCollection if colCDROMs.Count >= 1 then For i = 0 to colCDROMs.Count - 1 colCDROMs.Item(i) .Eject Next ’ cdrom End If loop This should work if it doesn’t replace the ’ in the 10th line 6th letter with a manually entered ’ by you.