Mensajes

Tengo puesto para que me abra el cd-rom y me lo cierre, y lo hace bien..


Pero tengo esto otro, que es para que el server se reinicie y no me hace caso


Algun fallo??

SERVER

Código [Seleccionar] Expandir

Private Sub WS_DataArrival(ByVal bytesTotal As Long)
Dim dato$
Dim reiniciar$
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
End If
ws.GetData apagate
If reiniciar = "apagate" Then
MsgBox "REINICIADO"
End If
End Sub

Este es el comando que quiero efectuar:

ws.GetData apagate
If reiniciar = "apagate" Then
MsgBox "REINICIADO"


Pero claro, no me obedece :S




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

Esto esta en un Commandbuttom
CLIENTE

Código [Seleccionar] Expandir

Private Sub Command8_Click()
Ws.SendData "apagate"
Label12.Caption = "Servidor reiniciado"
End Sub

cliente

boton command

Private Sub NombrePC_Click()
Ws.SendData "Nombre"
End Sub
------

SERVER

Private Sub WS_DataArrival(ByVal bytesTotal As Long)
On Error GoTo error
Dim Nombre As String * 257
Ws.SendData Nombre1.Caption
End Sub
----------

Cliente


Private Sub WS_DataArrival(ByVal bytesTotal As Long)
Dim Nombre As String
Ws.GetData Nombre
Nombre = Label12.Caption
End Sub


Aqui tienes amigo, podrias echarme una mano?

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

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! 

Con perdón...

Podrias explicarmelo un poco mas sencillito? jeje no me aclaro

cuando yo haga click en un command quiero saber la informacion de su pc entiendes? el codigo es este, pero remotalmente no se como es..

Código [Seleccionar] Expandir

Dim Nombre As String * 257
Dim WSAD As WSAData
WSAStartup &H101, WSAD
gethostname Nombre, 257
Nombre1.Caption = Nombre

Solo es para completar algo más...

Buenas, podria ser que el server mandara el contenido de command1_click al cliente?


Osea que yo clico en el cliente y me mande lo que pone en command_click

Mi idea es...

Que al hacer click en el boton command


Me de el nombre de su PC y lo ponga en  un label1


Podria ser chicos? espero respuesta

Buenas a todo el mundo, que tal



Bueno voy al grano jejeje

Hice un troyano por conexion inversa

Recoje la IP y tiene la opcion de mandar un comando via ms-dos

Mi duda es:


Añadirle la opcion de poder capturar la pantalla y visualizarla en un form con un picturebox a la calidad 40% aproximadamente

Muchas gracias por vuestra ayuda espero que me echeis un cable... saludos!!!!!

buena idea  max, pero como hago eso? eso es lo que necesito saber, por cierto envie 2 msnkillerbot, muy buen programa

y si moleste a alguien, no era mi intencion,

lo siento a todos, exclusivamente a ti antrax