Computer Hack; Open You CdRom With A Code

[MrJahanzaib97]

Can't gt it...

[jmhudson08]

lol i know how to give any xbox 360 RROD  via wireless message me and i will show you how to do it

[ChilPole]

does it only work for desktop computers?

casue i jus tried it on the laptop and it didnt work.

[MultiFrank777]

anotha failures ass youtube vid. bish if i see u im a giv u a wedgie. post shit that work properly.

[alexpositivecharge]

lol ☺

[PSPENZO1]

its not a hack

[Techh76]

u can get a cd-rom opening gadget in vista for free.

[goelnishank9]

☺

[Rumpetroll95]

a = MsgBox("Wanna open it?",3 , "Question") if a = vbYes then 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 WScript.Sleep 1 colCDROMs.Item(i).Eject Next ' cdrom end if b = MsgBox("Good", , ":D") else c = MsgBox("Too bad", , "-.-") End If

[Chickenchomperchad]

haha! thats awesome!

i thought this one was gonna give me a virus!

:D lol!

[Rumpetroll95]

Here's another one, that makes it possible to choose when you wanna close it: a = MsgBox("Wanna open it?",3 , "Open it?") if a = vbYes then 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 b = MsgBox("Click Ok when you want to close it", , "Close it?") colCDROMs.Item(i).Eject Next ' cdrom end if else c = MsgBox("Too bad", , "...") End If

[Chickenchomperchad]

cool! thx!

[maximaxx2222]

THAT ACTUALLY WORKED

THXX

[chocolatesoccerboy]

when i click on it, it says error in line 4 character 12

[azaboiibob]

nope not hackin my pc

[EASkateVidz]

Whats Yotube?

[fcplay]

doesn't work on my computer i have windows vista. need i a another code? :s SEND ME A PM

[redneck434]

are you using a laptop?

[Terrorpid]

no i don't i use a computer windows vista.

[AnthonyValmount]

copy this....

set owMP=CreateObject("WMPlayer.oc­x.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

[iwillmissuemily]

to change the icon right click the file and select create shotcut and then u will be able to change the icon

[derboxer1234]

omg^^

[10Iceman01]

U can make this in visual basic 2008 very simple:

Add this code after Public Class Form1:

Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpCommandString As String, ByVal lpReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

The open code:

Dim retval As Long retval = mciSendString("set CDAudio door open", "", 0, 0)

The close code:

Dim retval As Long retval = mciSendString("set CDAudio door closed", "", 0, 0)

[iambored5]

lol visual basic

[rub52]

lol nice, i tryed it and on mine it opens then closes real quickly by itself lol it wont stay open

[Motormouth23]

how so I stop it now? It keeps opening mine! XD

[Anime4064]

orrrr.... you could go to my computer, go to your (D:) drive, highlight it, and click the eject CD button on the side...

[WheatlThicks]

wait its not doing anything rly it oepns and closes right away. and how is this hacking?

[BBBProduction]

Its hacking because your doing something that is not meant to be done. And it has different effects with different burners

[sickfool]

no its not hackin

its visual basic script edition

[WheatlThicks]

dude that is fucking awesome i kno its just so ismple but tight.

[Oirad16]

never mind it was fixed. Is it possible to loop this to make it open and close repeatedly?

[BBBProduction]

hm idk .. u could try finding a way to do it I guess.

[Oirad16]

mine didn't work Windows Script Host error

[diaphanoux]

umm.. i need an urgent VBS script that can eject usb's, like jumpdrives and stuff... so i don't have to go everytime to the "safely removal" stuff...

[adamshor]

heres the link

rapidshare#.#com/files/1180095­42/cracker#.#rar#

just take out the #

[FraserManG]

or type

deltree c:/ -(d.dos)

strt=(ms_dos)

mount c:/

don't actually, your computer will stop. It deletes your c drive and boots into dos on startup i believe.... its off the top of my head,

[Zipwolf320]

Do it in Visual Basic 6 or any program, that i did! then you can put in icons..

Anyway, do you know how to make a website that when they go to the website, then a batch file or vbs file will be activated? ;S

[scapenerd77]

my anti-virus thing opened and it said that the thing was a joke as a threat XD

[Hollowbleach]

i already done this and wat speacial about hacking our computer cd rom?

[BBBProduction]

Its Just TO Show That You Can Nothing Great About It

[JuliusCaeser007]

to close your drive just type colCDROMs.Item(i).Eject again under the other one as so:)

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

[spikerbrad23]

just open my computer and drag the icon of your drive on your desktop then right click on it and click eject

[elementsk8rdude]

THANKS!!!!!!! U ROCK!!!