Hola de nuevo
Alguien sabe donde puedo encontrar el modulo para sustituir el msinet.ocx mediante apis.
Gracias Salu2
Las puso el moderador aqui:
http://foro.elhacker.net/index.php/topic,85007.0.html
Este post ya le abia visto pero como ponia WININET.DLL no le ice caso.
Podeis explicarme como se usa please ?
Gracias
Salu2
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
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
Cita de: Dexonline en 19 Septiembre 2005, 23:59 PM
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
muchas gracias, ya encomte lo k buscaba, solo taba pidiendo una orientacion
Salu2
Weno, voy a publicar aqui el codigo que uso para subir archivos a un ftp:
'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
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
pero porque no usar ese ocx??? luego no todos los wins la traen consigo???
un saludo.
Creo que los controles .ocx se instalan con el vb y no vienen por defecto con el windows :D
Microsoft Windows XP Profesional incorpora esa OCX por defecto, en otros sistemas operativos no tengo ni ídea...
lo digo porque que yo supiera ese ocx lo usaba el internet explorer 6.0 o superior, por lo tanto la mayoria de los wins la tendran ...
un saludo.