2 textbox 1 label 2 botones y winsock (lo tienes q agregar desde proyecto>componentes s llama Microsoft windows control 6.0, creo q se llamaba asi) y l cambias el nombre a ws
En el text1 pones la direccion remota ( www.google.com ) y en el text2 pones el puerto (si es una web 80, para ftp 21) y cuando des al 1 boton se conecta
« Última modificación: 29 Marzo 2006, 20:50 pm por seken_C4 »
Secken_C4, con tu permiso, voy a comentar el codigo por peticion de ranslsad...
Código:
Private Sub Command1_Click() ws.RemoteHost = Text1.Text 'Le damos al winsock el nombre del host, en esta caso, la pagina web...esta se colocara en el textbox 2 ws.RemotePort = Text2.Text ' Lo mismo que el anterior, pero aqui pondremos el puerto remoto...por ejemplo: 80 ws.Close ' Cerramos la conexion del winsock ws.Connect 'Abrimos la conexion del winsock End Sub
Private Sub Command2_Click() ws.Close 'Cerramos la conexion del winsock End Sub
Private Sub ws_Connect() Label1.Caption = ws.RemoteHostIP 'Le damos al label1 la ip remota, osea, de la pagina web que pusimos en el textbox 1 End Sub
Private Sub ws_ConnectionRequest(ByVal requestID As Long) ws.Close ' Cerramos conexion con winsock ws.Accept requestID 'Aceptamos cualquier conexion entrante End Sub
Muchas gracias por la respuesta, y otra pregunta... como se aria para redireccionar un ip como hace la empresa NO-IP?? por ejemplo si el ip es 255.255.255.255 la ip redireccionada seria... ip.ip.algo o como sea... si alguien me aclara como se va eso.. y se puede en visual basic?
Autor
En línea
