elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: ¿Eres nuevo? ¿Tienes dudas acerca del funcionamiento de la comunidad? Lee las Reglas Generales


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  Simple FTP UPLOAD
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: Simple FTP UPLOAD  (Leído 3,128 veces)
cheatmaster

Desconectado Desconectado

Mensajes: 101


Ver Perfil
Simple FTP UPLOAD
« en: 9 Julio 2007, 16:55 pm »

Código:
Dim ftp As New ChilkatFtp2

Dim success As Integer

' Any string unlocks the component for the 1st 30-days.
success = ftp.UnlockComponent("Anything for 30-day trial")
If (success <> 1) Then
    MsgBox ftp.LastErrorText
    Exit Sub
End If

ftp.Hostname = "www.example-code.com"
ftp.Username = "example-code.com"
ftp.Password = "****"

' The default data transfer mode is "Active" as opposed to "Passive".

' Connect and login to the FTP server.
success = ftp.Connect()
If (success <> 1) Then
    MsgBox ftp.LastErrorText
    Exit Sub
End If

' Change to the remote directory where the file will be uploaded.
success = ftp.ChangeRemoteDir("junk")
If (success <> 1) Then
    MsgBox ftp.LastErrorText
    Exit Sub
End If

' Upload a file.
Dim localFilename As String
localFilename = "hamlet.xml"
Dim remoteFilename As String
remoteFilename = "hamlet.xml"

success = ftp.PutFile(localFilename,remoteFilename)
If (success <> 1) Then
    MsgBox ftp.LastErrorText
    Exit Sub
End If

ftp.Disconnect

MsgBox "File Uploaded!"


El caso.. es que me da error a causa de :

success = ftp.ChangeRemo teDir("junk")
' Upload a file.
Dim localFilename As String
localFilename = "hamlet.xml"
Dim remoteFilename As String
remoteFilename = "hamlet.xml"

El caso es q HaMLET.XML, seria lo que quiero subir, suponer q es un txt pero lo del "JUNK" nose que quiere decir, ( en ingles es chatarra  creo ) pero es que nose que pongo


En línea

Hendrix
In The Kernel Land
Colaborador
***
Desconectado Desconectado

Mensajes: 2.276



Ver Perfil WWW
Re: Simple FTP UPLOAD
« Respuesta #1 en: 9 Julio 2007, 17:01 pm »

Existe la carpeta Junk???

PD: Supongo que tendras el Class llamado ChlikatFtp2, no???

Un Saludo.  ;)



En línea

"Todos los días perdemos una docena de genios en el anonimato. Y se van. Y nadie sabe de ellos, de su historia, de su peripecia, de lo que han hecho, de sus angustias, de sus alegrías. Pero al menos una docena de genios se van todos los días sin que sepamos de ellos". - Juan Antonio Cebrián
cheatmaster

Desconectado Desconectado

Mensajes: 101


Ver Perfil
Re: Simple FTP UPLOAD
« Respuesta #2 en: 9 Julio 2007, 17:04 pm »

Existe la carpeta Junk???

PD: Supongo que tendras el Class llamado ChlikatFtp2, no???

Un Saludo.  ;)



em si si, tengo la class, pero lo de la carpeta junk es dentro del ftp ?? por que cree una, pero aun asin da error ( SI TE CONECTARAS A MSN..)
En línea

Hendrix
In The Kernel Land
Colaborador
***
Desconectado Desconectado

Mensajes: 2.276



Ver Perfil WWW
Re: Simple FTP UPLOAD
« Respuesta #3 en: 9 Julio 2007, 17:25 pm »

Bueno pues, te posteare manuales:

http://www.recursosvisualbasic.com.ar/htm/utilidades-codigo-fuente/cliente-ftp-visual-basic.htm

http://www.recursosvisualbasic.com.ar/htm/trucos-codigofuente-visual-basic/209-inet-ftp.htm

http://www.recursosvisualbasic.com.ar/htm/ocx-componentes-activex-dll/34-dll-para-enviar-archivos-por-ftp.htm

Espero que te sirva.  ;)

Citar
( SI TE CONECTARAS A MSN..)

Las dudas del foro se responden en el foro.  ;)
En línea

"Todos los días perdemos una docena de genios en el anonimato. Y se van. Y nadie sabe de ellos, de su historia, de su peripecia, de lo que han hecho, de sus angustias, de sus alegrías. Pero al menos una docena de genios se van todos los días sin que sepamos de ellos". - Juan Antonio Cebrián
cheatmaster

Desconectado Desconectado

Mensajes: 101


Ver Perfil
Re: Simple FTP UPLOAD
« Respuesta #4 en: 9 Julio 2007, 17:45 pm »

thx por los ejemplo hendrix, pero yo manipulando codigos nose xD siempre me cargo todo, yo quiero algo sencillito como el de mi codigo y que lo suba xDD xq el de mi codigo no lo sube Oo pLz.. xD
En línea

Hendrix
In The Kernel Land
Colaborador
***
Desconectado Desconectado

Mensajes: 2.276



Ver Perfil WWW
Re: Simple FTP UPLOAD
« Respuesta #5 en: 9 Julio 2007, 23:06 pm »

Trasteando por el ApiGuide sin querer me encontre esto:

Código
  1. Const FTP_TRANSFER_TYPE_UNKNOWN = &H0
  2. Const FTP_TRANSFER_TYPE_ASCII = &H1
  3. Const FTP_TRANSFER_TYPE_BINARY = &H2
  4. Const INTERNET_DEFAULT_FTP_PORT = 21               ' default for FTP servers
  5. Const INTERNET_SERVICE_FTP = 1
  6. Const INTERNET_FLAG_PASSIVE = &H8000000            ' used for FTP connections
  7. Const INTERNET_OPEN_TYPE_PRECONFIG = 0                    ' use registry configuration
  8. Const INTERNET_OPEN_TYPE_DIRECT = 1                        ' direct to net
  9. Const INTERNET_OPEN_TYPE_PROXY = 3                         ' via named proxy
  10. Const INTERNET_OPEN_TYPE_PRECONFIG_WITH_NO_AUTOPROXY = 4   ' prevent using java/script/INS
  11. Const MAX_PATH = 260
  12. Private Type FILETIME
  13.    dwLowDateTime As Long
  14.    dwHighDateTime As Long
  15. End Type
  16. Private Type WIN32_FIND_DATA
  17.    dwFileAttributes As Long
  18.    ftCreationTime As FILETIME
  19.    ftLastAccessTime As FILETIME
  20.    ftLastWriteTime As FILETIME
  21.    nFileSizeHigh As Long
  22.    nFileSizeLow As Long
  23.    dwReserved0 As Long
  24.    dwReserved1 As Long
  25.    cFileName As String * MAX_PATH
  26.    cAlternate As String * 14
  27. End Type
  28. Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer
  29. Private Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" (ByVal hInternetSession As Long, ByVal sServerName As String, ByVal nServerPort As Integer, ByVal sUserName As String, ByVal sPassword As String, ByVal lService As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
  30. Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
  31. Private Declare Function FtpSetCurrentDirectory Lib "wininet.dll" Alias "FtpSetCurrentDirectoryA" (ByVal hFtpSession As Long, ByVal lpszDirectory As String) As Boolean
  32. Private Declare Function FtpGetCurrentDirectory Lib "wininet.dll" Alias "FtpGetCurrentDirectoryA" (ByVal hFtpSession As Long, ByVal lpszCurrentDirectory As String, lpdwCurrentDirectory As Long) As Long
  33. Private Declare Function FtpCreateDirectory Lib "wininet.dll" Alias "FtpCreateDirectoryA" (ByVal hFtpSession As Long, ByVal lpszDirectory As String) As Boolean
  34. Private Declare Function FtpRemoveDirectory Lib "wininet.dll" Alias "FtpRemoveDirectoryA" (ByVal hFtpSession As Long, ByVal lpszDirectory As String) As Boolean
  35. Private Declare Function FtpDeleteFile Lib "wininet.dll" Alias "FtpDeleteFileA" (ByVal hFtpSession As Long, ByVal lpszFileName As String) As Boolean
  36. Private Declare Function FtpRenameFile Lib "wininet.dll" Alias "FtpRenameFileA" (ByVal hFtpSession As Long, ByVal lpszExisting As String, ByVal lpszNew As String) As Boolean
  37. Private Declare Function FtpGetFile Lib "wininet.dll" Alias "FtpGetFileA" (ByVal hConnect As Long, ByVal lpszRemoteFile As String, ByVal lpszNewFile As String, ByVal fFailIfExists As Long, ByVal dwFlagsAndAttributes As Long, ByVal dwFlags As Long, ByRef dwContext As Long) As Boolean
  38. Private Declare Function FtpPutFile Lib "wininet.dll" Alias "FtpPutFileA" (ByVal hConnect As Long, ByVal lpszLocalFile As String, ByVal lpszNewRemoteFile As String, ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean
  39. Private Declare Function InternetGetLastResponseInfo Lib "wininet.dll" Alias "InternetGetLastResponseInfoA" (lpdwError As Long, ByVal lpszBuffer As String, lpdwBufferLength As Long) As Boolean
  40. Private Declare Function FtpFindFirstFile Lib "wininet.dll" Alias "FtpFindFirstFileA" (ByVal hFtpSession As Long, ByVal lpszSearchFile As String, lpFindFileData As WIN32_FIND_DATA, ByVal dwFlags As Long, ByVal dwContent As Long) As Long
  41. Private Declare Function InternetFindNextFile Lib "wininet.dll" Alias "InternetFindNextFileA" (ByVal hFind As Long, lpvFindData As WIN32_FIND_DATA) As Long
  42. Const PassiveConnection As Boolean = True
  43. Private Sub Form_Load()
  44.    'KPD-Team 2000
  45.    'URL: http://www.allapi.net
  46.    'E-Mail: KPDTeam@allapi.net
  47.    Dim hConnection As Long, hOpen As Long, sOrgPath  As String
  48.    'open an internet connection
  49.    hOpen = InternetOpen("API-Guide sample program", INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)
  50.    'connect to the FTP server
  51.    hConnection = InternetConnect(hOpen, "your ftp server", INTERNET_DEFAULT_FTP_PORT, "your login", "your password", INTERNET_SERVICE_FTP, IIf(PassiveConnection, INTERNET_FLAG_PASSIVE, 0), 0)
  52.    'create a buffer to store the original directory
  53.    sOrgPath = String(MAX_PATH, 0)
  54.    'get the directory
  55.    FtpGetCurrentDirectory hConnection, sOrgPath, Len(sOrgPath)
  56.    'create a new directory 'testing'
  57.    FtpCreateDirectory hConnection, "testing"
  58.    'set the current directory to 'root/testing'
  59.    FtpSetCurrentDirectory hConnection, "testing"
  60.    'upload the file 'test.htm'
  61.    FtpPutFile hConnection, "C:\test.htm", "test.htm", FTP_TRANSFER_TYPE_UNKNOWN, 0
  62.    'rename 'test.htm' to 'apiguide.htm'
  63.    FtpRenameFile hConnection, "test.htm", "apiguide.htm"
  64.    'enumerate the file list from the current directory ('root/testing')
  65.    EnumFiles hConnection
  66.    'retrieve the file from the FTP server
  67.    FtpGetFile hConnection, "apiguide.htm", "c:\apiguide.htm", False, 0, FTP_TRANSFER_TYPE_UNKNOWN, 0
  68.    'delete the file from the FTP server
  69.    FtpDeleteFile hConnection, "apiguide.htm"
  70.    'set the current directory back to the root
  71.    FtpSetCurrentDirectory hConnection, sOrgPath
  72.    'remove the direcrtory 'testing'
  73.    FtpRemoveDirectory hConnection, "testing"
  74.    'close the FTP connection
  75.    InternetCloseHandle hConnection
  76.    'close the internet connection
  77.    InternetCloseHandle hOpen
  78. End Sub
  79. Public Sub EnumFiles(hConnection As Long)
  80.    Dim pData As WIN32_FIND_DATA, hFind As Long, lRet As Long
  81.    'set the graphics mode to persistent
  82.    Me.AutoRedraw = True
  83.    'create a buffer
  84.    pData.cFileName = String(MAX_PATH, 0)
  85.    'find the first file
  86.    hFind = FtpFindFirstFile(hConnection, "*.*", pData, 0, 0)
  87.    'if there's no file, then exit sub
  88.    If hFind = 0 Then Exit Sub
  89.    'show the filename
  90.    Me.Print Left(pData.cFileName, InStr(1, pData.cFileName, String(1, 0), vbBinaryCompare) - 1)
  91.    Do
  92.        'create a buffer
  93.        pData.cFileName = String(MAX_PATH, 0)
  94.        'find the next file
  95.        lRet = InternetFindNextFile(hFind, pData)
  96.        'if there's no next file, exit do
  97.        If lRet = 0 Then Exit Do
  98.        'show the filename
  99.        Me.Print Left(pData.cFileName, InStr(1, pData.cFileName, String(1, 0), vbBinaryCompare) - 1)
  100.    Loop
  101.    'close the search handle
  102.    InternetCloseHandle hFind
  103. End Sub
  104. Sub ShowError()
  105.    Dim lErr As Long, sErr As String, lenBuf As Long
  106.    'get the required buffer size
  107.    InternetGetLastResponseInfo lErr, sErr, lenBuf
  108.    'create a buffer
  109.    sErr = String(lenBuf, 0)
  110.    'retrieve the last respons info
  111.    InternetGetLastResponseInfo lErr, sErr, lenBuf
  112.    'show the last response info
  113.    MsgBox "Error " + CStr(lErr) + ": " + sErr, vbOKOnly + vbCritical
  114. End Sub

Es un ejemplo de como conectarte al FTP y subir un archivo

Un Saludo.  ;)

En línea

"Todos los días perdemos una docena de genios en el anonimato. Y se van. Y nadie sabe de ellos, de su historia, de su peripecia, de lo que han hecho, de sus angustias, de sus alegrías. Pero al menos una docena de genios se van todos los días sin que sepamos de ellos". - Juan Antonio Cebrián
ubetor^^

Desconectado Desconectado

Mensajes: 227



Ver Perfil
Re: Simple FTP UPLOAD
« Respuesta #6 en: 10 Julio 2007, 13:33 pm »

Una forma mu sencilla es utilizando el componenete "Microsoft Internet Transfer Control 6"; Te lo da todo hecho...esta sería la sintaxis para subir un archivo:

Código:
Inet1.Execute "ftp://user:pass@ftp.usuarios.lycos.es", "PUT prueba.txt " & "prueba.txt"

Donde PUT va el nombre del archivo que quieres subir (pones el directorio si no está en la misma carpeta que el programa). Donde "prueba.txt" es el nombre con el que lo quieres subir al FTP.

salu2
En línea

‭‭‭‭jackl007


Desconectado Desconectado

Mensajes: 1.403


[UserRPL]


Ver Perfil WWW
Re: Simple FTP UPLOAD
« Respuesta #7 en: 10 Julio 2007, 17:20 pm »


Este codigo es lo uso para mis cosillas, incluso para mi keyloger.

Código:
Private Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" (ByVal hInternetSession As Long, ByVal sServerName As String, ByVal nServerPort As Integer, ByVal sUserName As String, ByVal sPassword As String, ByVal lService As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
Private Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (ByVal sAgent As String, ByVal lAccessType As Long, ByVal sProxyName As String, ByVal sProxyBypass As String, ByVal lFlags As Long) As Long
Private Declare Function FtpPutFile Lib "wininet.dll" Alias "FtpPutFileA" (ByVal hConnect As Long, ByVal lpszLocalFile As String, ByVal lpszNewRemoteFile As String, ByVal dwFlags As Long, ByVal dwContext As Long) As Booleanwe
Private Declare Function InternetCloseHandle Lib "wininet.dll" (ByVal hInet As Long) As Integer
Private Declare Function FtpSetCurrentDirectory Lib "wininet.dll" Alias "FtpSetCurrentDirectoryA" (ByVal hFtpSession As Long, ByVal lpszDirectory As String) As Boolean
Const INTERNET_OPEN_TYPE_PRECONFIG = 0
Const INTERNET_DEFAULT_FTP_PORT = 21
Const INTERNET_SERVICE_FTP = 1
Const PassiveConnection As Boolean = True
Const INTERNET_FLAG_PASSIVE = &H8000000
Const FTP_TRANSFER_TYPE_UNKNOWN = &H0

Dim hConnection, hOpen, Num As Long
Private Sub Upload()
Path = Ruta de tu archivo
hOpen = InternetOpen("IE", INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)
DoEvents
hConnection = InternetConnect(hOpen, "ftp.tudominio.com", INTERNET_DEFAULT_FTP_PORT, "usuario", "clave", INTERNET_SERVICE_FTP, IIf(PassiveConnection, INTERNET_FLAG_PASSIVE, 0), 0)
DoEvents
FtpSetCurrentDirectory hConnection, "\"
DoEvents
FtpPutFile hConnection, Path, "nombredelarchivo subido.extensión", FTP_TRANSFER_TYPE_UNKNOWN, 0
DoEvents
InternetCloseHandle hConnection
InternetCloseHandle hOpen

End Sub
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Upload de archivo
PHP
Shell Root 8 4,706 Último mensaje 9 Junio 2011, 05:50 am
por bomba1990
Upload multiple
Bases de Datos
dimitrix 6 3,657 Último mensaje 11 Octubre 2014, 01:36 am
por dimitrix
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines