Ya ya, eso ya lo entiendo
lo que quiero saber es como tendria q hacer para que el servidor ejecutase eso, por ejemplo:
Cliente
========
Private Sub Command1_Click()
If TextIP.Text = "" Then
err1 = MsgBox ("Tienes que introducir una direccion IP",, "Aviso")
Else:
Winsock1.Close
Winsock1.Connect TextIP.Text, (Puerto)
End If
End Sub
'Entonces se Conectaria al servidor
Servidor
======
Private Sub Form_Load()
Winsock1.LocalPort = (Puerto)
Winsock1.Listen
End Sub
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
If Winsock1.State <> sckClosed Then
Winsock1.Close
Winsock1.Accept requestID
End If
End Sub
========================================
Esque no entiendo, se como hacer para que se abra el cd, pero apartir de aqui ya no se continuar, luego pongo el codigo de arriba en el servidor ( lo de la resolucion ) y Ahora q tngo q hacer? m puedes ayudar plis?
Autor