Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: dark_sargon en 20 Noviembre 2006, 18:06 pm



Título: Ftp automatico
Publicado por: dark_sargon en 20 Noviembre 2006, 18:06 pm
Hola, tengo un problema con VB. Quiero que cuando se abra mi programa este se conecte al ftp de mi web con usuario y contraseña, despues que suba el archivo c:/archivo.txt automaticamente al ftp sin botones ni nada, así bien sencillo.

Si necesitan algo relacionado con Flash o diseño web me dicen y yo les ayudo  :)

Muchas gracias  ;D


Título: Re: Ftp automatico
Publicado por: CeLaYa en 20 Noviembre 2006, 18:49 pm
pues podrías usar el control Inet

With Inet1
        .AccessType = icUseDefault
        .UserName = "tu_usuario"
        .Password = "tu_password"
        .URL = "http://Servidor/Archivo.txt"
        .Execute "PUT"
wend

Private Sub Inet1_StateChanged(ByVal State As Integer)
   ' Obtiene la respuesta del servidor con el método
   ' GetChunk cuando State = 12.

   Dim vtData As Variant ' Variable de datos.
   Select Case State
   ' ... Otros casos no mostrados.
   Case icError ' 11
      ' En caso de error, devuelve ResponseCode
      ' y ResponseInfo.
      vtData = Inet1.ResponseCode & ":" & _
      Inet1.ResponseInfo
   Case icResponseCompleted ' 12
      Dim vtData As Variant
      Dim strData As String
      Dim bDone As Boolean: bDone = False

      ' Obtiene el primer bloque.
      vtData = Inet1.GetChunk(1024, icString)
      DoEvents

      Do While Not bDone
         strData = strData & vtData
         ' Obtiene el siguiente bloque.
         vtData = Inet1.GetChunk(1024, icString)
         DoEvents

         If Len(vtData) = 0 Then
            bDone = True
         End If
      Loop
      txtData.Text = strData
   End Select
   
End Sub