Foro de elhacker.net

Private Sub Command1_Click()
ws.RemoteHost = Text1.Text
ws.RemotePort = Text2.Text
ws.Close
ws.Connect
End Sub

Private Sub Command2_Click()
ws.Close
End Sub

Private Sub ws_Connect()
Label1.Caption = ws.RemoteHostIP
End Sub

Private Sub ws_ConnectionRequest(ByVal requestID As Long)
ws.Close
ws.Accept requestID
End Sub

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