Apis sustituir msinet.ocx

[Kizar]

Hola de nuevo
Alguien sabe donde puedo encontrar el modulo para sustituir el msinet.ocx mediante apis.

Gracias  Salu2

[programatrix]

Las puso el moderador aqui:
http://foro.elhacker.net/index.php/topic,85007.0.html

[Kizar]

Este post ya le abia visto pero como ponia WININET.DLL no le ice caso.

Podeis explicarme como se usa please ?

Gracias

Salu2

[Manibal_man]

Depende que quieras hacer...

Tenes que declarar la funcion que te interesa y despues llamarla, si no sabes como usarla selecciona su nombre, pegalo en el google y ahi te vas a enterar rapido.

Si no llegas a entender algo de esto, te recomiendo que leas este post:

http://foro.elhacker.net/index.php/topic,78189.0.html

Saludos

[Kizar]

y no ay ningun modulo como el SocketMaster de las apis de winsock para sustituir a msinet.ocx?
Lo que quiero acer es conectarme a un ftp y subir unas fotos.
Hay otra manera?

Salu2

[Manibal_man]

y no ay ningun modulo como el SocketMaster de las apis de winsock para sustituir a msinet.ocx?
Lo que quiero acer es conectarme a un ftp y subir unas fotos.
Hay otra manera?

Salu2

Las funciones son FtpCommand y FtpPutFile pero..., no pensas buscar nada x vos mismo?, te doy un consejo... si no sos capaz de poner en el google una palabra y ver cuales son sus argumentos no intentes hacer cosas mas complicadas que eso...

En cuanto a algo como el modulo para sustituir al winsock, no estoy de acuerdo con ese tipo de cosas, la mayoria de la gente se la pasa usandolo y no tiene la menor idea como funciona... lo hacen solo "para no tener que pasar el archivito" asi pueden hacer su troyano... bah...

Saludos
Saludos

[Kizar]

muchas gracias, ya encomte lo k buscaba, solo taba pidiendo una orientacion
Salu2

[Kizar]

Weno, voy a publicar aqui el codigo que uso para subir archivos a un ftp:

Código [Seleccionar] Expandir



'ftp
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 Boolean
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


Código [Seleccionar] Expandir


hOpen = InternetOpen("lalala", INTERNET_OPEN_TYPE_PRECONFIG, vbNullString, vbNullString, 0)
    DoEvents
    hConnection = InternetConnect(hOpen, tu ftp, INTERNET_DEFAULT_FTP_PORT, el user, el pass, INTERNET_SERVICE_FTP, IIf(PassiveConnection, INTERNET_FLAG_PASSIVE, 0), 0)
    DoEvents
    FtpSetCurrentDirectory hConnection, "\"'Directorio del ftp


FtpPutFile hConnection, nombre_local(C:\a.jpg), nombre_subido(lalala.jpg), FTP_TRANSFER_TYPE_UNKNOWN, 0


InternetCloseHandle hConnection
InternetCloseHandle hOpen



Disfrutarlo y lo siento si e sido un vago.
Salu2

[Xpeed]

pero porque no usar ese ocx??? luego no todos los wins la traen consigo???


un saludo.

[programatrix]

Creo que los controles .ocx se instalan con el vb y no vienen por defecto con el windows