Hola a todos, tengo una pregunta, como puedo bajar archivos viaHTTP, osea por el puerto 80.
Actualmente se bajar archivos por FTP, unicamente usas una API es algo asi:
Código:
Private Sub Command1_Click()
inter = InternetOpen(scUserAgent, INTERNET_OPEN_TYPE_DIRECT, vbNullString, vbNullString, 0)
conexion = InternetConnect(inter, "172.16.123.123", INTERNET_INVALID_PORT_NUMBER, "user", "***", INTERNET_SERVICE_FTP, 0, 0)
ret = FtpGetFile(conexion, "archivoabajar", App.Path + "\destino", 0, 0, -2147483648#, 0)
InternetCloseHandle conexion
End Sub
solo se usan un par de API's ya ya, mi pregunta es como le hago para que pueda bajar archivos por el puerto 80??
thanks!!