Ayuda con winsock no me da bola en NO-IP

[xDie]

hola estoy haciendo un 2 programitas que se conecten entre si,  en una pongo

Código [Seleccionar] Expandir




Conexion.LocalPort = "4000"
Conexion.Listen




y en nel otro

Código [Seleccionar] Expandir



Conexion.RemotePort = "4000"
Conexion.RemoteHost = "mapache.hopto.org"
Conexion.Connect


y en mi manica tengo el Duc y ya tengo el NAT  hecho el problema es de visual, porque no me conecta dice adrees in use, nose que puede ser? mi diea es un troyano de conexion inversa..

[Mr.Chispa]

primero q veo q pusiste, el puerto es de tipo entero, no string.
segundo, no se si es el codigo completo pero te falta haceptar la peticion del cliente.
por si no sabes como:

Código [Seleccionar] Expandir


Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
Winsock1.Close
Winsock1.Accept resquestid
End Sub

yo tambien tengo problemas con el no-ip. si lo corro el cliente y el server en la misma pc, anda perfecto pero no puedo hacerlo desde otra pc .
si entontras cual es el problema postealo. saludos