--Código extraído del homebrew GoodShell, el crédito se lo merecen ellos.
 
function downloadFile(serveur,page,destpath,fichier,image_lib)
	noir_lib = Color.new(0,0,0)
	blanc_lib = Color.new(255,255,255)
	gris_lib = Color.new(150,150,150)
	vert_lib = Color.new(0,255,128)
	arial_lib = Font.load("./polices/arial.ttf")
	Wlan.init()
	local socket , error , bytesSent , header , a , b , len , pos ,file 
 
	screen:clear(noir_lib)
	fontPrint(arial_lib,30,15,"Telechargement", blanc_lib, 10)
	fontPrint(arial_lib,210,265,"O Annuler", blanc_lib, 10)
	drawRectangle(0,20,480,2,blanc_lib, blanc_lib)
	drawRectangle(0,250,480,2,blanc_lib, blanc_lib)
 
	fontPrint(arial_lib,280,124,"Preparation du telechargement...", blanc_lib, 12)
 
	screen.flip()
	screen.waitVblankStart()
 
	socket, error = Socket.connect(serveur, 80)
	while not socket:isConnected() do System.sleep(100) end
	screen:clear(noir_lib)
	fontPrint(arial_lib,30,15,"Telechargement", blanc_lib, 10)
	fontPrint(arial_lib,210,265,"O Annuler", blanc_lib, 10)
	drawRectangle(0,20,480,2,blanc_lib, blanc_lib)
	drawRectangle(0,250,480,2,blanc_lib, blanc_lib)
 
	fontPrint(arial_lib,280,124,"Preparation du telechargement...", blanc_lib, 12)
	drawRectangle(300,140,100,5,gris_lib,gris_lib)
 
	screen.flip()
	screen.waitVblankStart()
	System.sleep(3000)
	bytesSent = socket:send("GET /"..page.." HTTP/1.0\r\n")
	bytesSent = socket:send("host: "..serveur.."\r\n\r\n")
 
	file = io.open(destpath.."/"..fichier,"wb+")
	header = ""
	while not string.find(header, "\r\n\r") do
      header = header .. socket:recv(2)
      screen.waitVblankStart()
    end
    if not string.find(header, "\r\n\r\n") then
      header = header .. socket:recv(1)
      screen.waitVblankStart()
    end
    a,b,len = string.find(header, "Content%-Length: (%d+)\r\n")
    a = nil;b = nil
    len = tonumber(len)
	fin = ""
	while fin == "" do
		screen:clear(noir_lib)
		pos = file:seek("cur")
		file:write(socket:recv(150))
		file:flush()
		fontPrint(arial_lib,30,15,"Telechargement", blanc_lib, 10)
		fontPrint(arial_lib,210,265,"O Annuler", blanc_lib, 10)
		drawRectangle(0,20,480,2,blanc_lib, blanc_lib)
		drawRectangle(0,250,480,2,blanc_lib, blanc_lib)
 
		fontPrint(arial_lib,280,124,"Telechargement en cours...", blanc_lib, 12)
		drawRectangle(300,140,100,5,gris_lib,gris_lib)
		drawRectangle(300,140,math.floor((System.getFileSize(destpath.."/"..fichier)/len)*100),5,vert_lib,vert_lib)
		fontPrint(arial_lib,345,158,tostring(math.floor((System.getFileSize(destpath.."/"..fichier)/len)*100)).."%",blanc_lib, 12)
 
		if image_lib ~= nil and image_lib ~= 0 and image_lib ~= "" then
			screen:blit(50,80,image_lib)
		end
 
		fontPrint(arial_lib,50,180,fichier,blanc_lib,12)
		fontPrint(arial_lib,50,195,string.sub(tostring((System.getFileSize(destpath.."/"..fichier)/1024)/1024),1,5).." / "..string.sub(tostring((len/1024)/1024),1,5).." MB",blanc_lib,12)
		if System.getFileSize(destpath.."/"..fichier) >= len then
			file:close() 
			screen:clear(noir_lib)
			fontPrint(arial_lib,30,15,"Telechargement", blanc_lib, 10)
			fontPrint(arial_lib,210,265,"O Annuler", blanc_lib, 10)
			drawRectangle(0,20,480,2,blanc_lib, blanc_lib)
			drawRectangle(0,250,480,2,blanc_lib, blanc_lib)
 
			fontPrint(arial_lib,280,124,"Telechargement termine !", blanc_lib, 12)
			drawRectangle(300,140,100,5,vert_lib,vert_lib)
 
			if image_lib ~= nil and image_lib ~= 0 and image_lib ~= "" then
				screen:blit(50,80,image_lib)
			end
 
			fontPrint(arial_lib,50,180,fichier,blanc_lib,12)
			fontPrint(arial_lib,50,195,string.sub(tostring((System.getFileSize(destpath.."/"..fichier)/1024)/1024),1,5).." / "..string.sub(tostring((len/1024)/1024),1,5).." MB",blanc_lib,12)
			screen.flip()
			screen.waitVblankStart()
			System.sleep(3000)
			fin = "ok" 
		end
		pad = Controls.read()
 
		if pad:circle() and not oldpad:circle() then 
			file:close() 
			System.removeFile(destpath.."/"..fichier)  
			screen:clear(noir_lib)
			fontPrint(arial_lib,30,15,"Telechargement", blanc_lib, 10)
			fontPrint(arial_lib,210,265,"O Annuler", blanc_lib, 10)
			drawRectangle(0,20,480,2,blanc_lib, blanc_lib)
			drawRectangle(0,250,480,2,blanc_lib, blanc_lib)
 
			fontPrint(arial_lib,280,124,"Telechargement annule !", blanc_lib, 12)
			drawRectangle(300,140,100,5,vert_lib,vert_lib)
 
			if image_lib ~= nil and image_lib ~= 0 and image_lib ~= "" then
				screen:blit(50,80,image_lib)
			end
 
			fontPrint(arial_lib,50,180,fichier,blanc_lib,12)
			fontPrint(arial_lib,50,195,string.sub(tostring((len/1024)/1024),1,5).." MB",blanc_lib,12)
			screen.flip()
			screen.waitVblankStart()
			System.sleep(3000)
			fin = "annule" 
		end
		oldpad = pad
		screen.flip()
		screen.waitVblankStart()
	end
	socket:close()
	return fin
end