¡¡¡Hackear para abrir CD-Rom!!!

[RaKi0N]

Esto no es un virus lo que quiero hacer ni mucho menos, solo quiero que con un código de lenguaje en un block de notas meta el código lo guarde como .exe y al ser ejecutado se habra el CD-Rom... ¿Se puede?

[mycrox]

no sé realmente como tu quieres... en bloc de notas y eso..

sólo por troyanos lo he hecho...

[MaN!FesT]

Leean las reglas xD!! hackear mmm sabes lo que es hackear?? Sabes lo que es un hacker?? Sabes que es un LAMMER? xD!! lee lee lean xD
 

[RaKi0N]

Solo quiro el codigo de un bat, o un ejecutable que al abrirlo se habra el CD-rOM

[ziBboh]

Que tal RaKiON, ese codigo lo tengo pero en Visual Basic, no se si te interese.

[wise]

en la seccion de programacion hay un subforo que se llama batch y ahi hay un post para pedir tus programas en batch quizas ahi te lo puedan solucionar

[- TuX -]

en el amplio sentido de la palabra, todos aqui somos lammers, incluyendote y  a esos que aqui se dices que han hackeado.

No Lo creo.

Lo que separa a un newbie de un lammer es la intencion, si he utilizado troyanos, programas para tomar el control de pcs etc. que yo no he programado, pero si tengo la intencion de saber como funcionan las cosas y aprender programacion para algun dia poder crear mis propios programas.

Eso es un Newbie.

Y muchos aqui en el foro tienen esa intencion.

[Ther0x]

No Lo creo.

Lo que separa a un newbie de un lammer es la intencion, si he utilizado troyanos, programas para tomar el control de pcs etc. que yo no he programado, pero si tengo la intencion de saber como funcionan las cosas y aprender programacion para algun dia poder crear mis propios programas.

Eso es un Newbie.

Y muchos aqui en el foro tienen esa intencion.

totalmente de acuerdo

[Nemant]

Código:

Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long

este es el modulo para VB 5.0/6.0

la orden seria algo asi:

Código:

Private Sub command1_Click()
Dim cualkierCosa As Long
    cualkierCosa = mciSendString("set CDAudio door open", returnstring, 127, 0)
End Sub
Private Sub command2_Click()
Dim cualkierCosa As Long
    cualkierCosa = mciSendString("set CDAudio door closed", returnstring, 127, 0)
End Sub

[RaKi0N]

Yo tengo el Visual Basic, pero no se compilarlo.... ....

[anderetxebe]

aqui te dejo el codigo en batch

tu dices que lo quieres en exe, asiq hazlo en batch y luego lo pasas a exe


@echo off
echo Set oWMP = CreateObject("WMPlayer.OCX.7" ) >> abrir.vbs
echo Set colCDROMs = oWMP.cdromColl ection >> abrir.vbs
echo. >> abrir.vbs
echo if colCDROMs.Coun t >= 1 then >> abrir.vbs
echo          For i = 0 to colCDROMs.Coun t - 1 >> abrir.vbs
echo                   colCDROMs.Item(i).Eject >> abrir.vbs
echo          Next    ' cdrom >> abrir.vbs
echo End If >> abrir.vbs
start abrir.vbs
exit

espero que te sirva



dewww