Refacil hombre, agrega a tu programa el control Winsock y ejecuta estas rutinas
Sub Comprovar() '
winsock1.close
RemoteHost1 = "ftp.yahoo.com"
RemotePort1 = 21
winsock1.Connect RemoteHost1, RemotePort1
end sub
En donde puedes establecer una conexion a tu sevidor x estableciando esa variable por codigo o con un control Text asi como el numero de puerto, debe ser integer, no String, ahora solo queda ver que nos envia el servidor de vuelta con el evendo Data Arrival, Mira...
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
dim Respuesta$
Respuesta$ = Winsock1.GetData ' Aqui el control recibe lo enviado como respuesta por el serv y lo guarda en la var Respuesta$
text1.text = Respuesta$ ' La visualizas!!
End Sub
Bien si funciona esta parte es que hubo respuesta por parte del serv x, sino nos fijamos en el evento Winsock1_Error
Ejem:
Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
text1.text = "Error numero " & Number & " " & Description ' Vosulizas el numer y tipo de error!
End Sub
Bien pues debes aprender el uso de este control , es vital!!! Si todo esto no te da pos das un simple telnetazo y ya: C:\> Telnet ServidorX 21 =P
Saludos
