socket:send("GET /"..File.." HTTPS/1.1\r\n")
socket:send("Host: "..Server.."\r\n\r\n")

socket:send("GET /"..File.." HTTP/SSL\r\n")
socket:send("Host: "..Server.."\r\n\r\n")

 function Descargar(Server,File,Path,Name) 
 
	Wlan.init()
 
	local socket,error,bytesSent,header,a,b,len,pos,file 
 
	socket,error=Socket.connect(Server,80)
 
	while not socket:isConnected() do 
	     System.sleep(20) 
	end
     screen:print(10,10,"Conectando...",negro)
	 screen.flip()
 
	 System.sleep(200)
      bytesSent = socket:send("Host: "..Server.."\r\n\r\n")
	  bytesSent = socket:send("GET /"..File.." HTTP/1.1\r\n")
	 bytesSent = socket:send("Host: ".."205.196.123.186".."\r\n\r\n")
 
     --screen:print(10,30,"Cabecera enviada...",negro)
	 ---screen.flip()
	 -----------------------------------------------
	 --cabesera=""
	 ---while true do
	   --- System.sleep(200)
	   -- resibiendo_cabesera=socket:recv(1)
		--System.sleep(200)
		--if resibiendo_cabesera~="" then
		--    cabesera=cabesera..resibiendo_cabesera
		--end
		--if resibiendo_cabesera=="" then
		--	break
		-- end
	 --end
 
	 file = io.open(Path.."/"..Name,"wb")
 
	 --<a id="download_button" href="http://fs09n5.sendspace.com/dl/32d2beda9ab31d6c7afcdd1b96dcfa50/51561d2b65067221/dxdtmw/Shell%20Files%20Explorer%203.0.rar"
 
 
	 --a,b=string.find(cabesera,"download_button")
 
	 -- while true do
		-- screen:clear(blanco)
	--	 screen:print(10,10,"primera a "..a.."  primera b "..b,negro)
		-- screen.flip()
		-- if Controls.read():cross() then
	----	 break
		-- end
		-- end
 
	 ---nuevo_host=string.sub(cabesera,b+7,b+35)
 
	-- while true do
		-- screen:clear(blanco)
		-- screen:print(10,10,"nuevo host "..nuevo_host,negro)
		-- screen.flip()
		-- if Controls.read():cross() then
	---	 break
		--- end
		-- end
 
	 --a,b=string.find(cabesera,"(%b/%p)",b+35)
 
	 --while true do
		-- screen:clear(blanco)
		-- screen:print(10,10,"segunda a "..a.." segunda b "..b,negro)
		-- screen.flip()
		-- if Controls.read():cross() then
		-- break
		-- end
		-- end
 
	--nuevo_file=string.sub(cabesera,a,b)
 
	--while true do
		-- screen:clear(blanco)
		-- screen:print(10,10,"nuevo file "..nuevo_file,negro)
		-- screen.flip()
		-- if Controls.read():cross() then
		-- break
		-- end
		-- end
 
	 fin = ""
	 System.sleep(200)
	 screen:print(10,30,"Escribiendo...",negro)
		screen.flip()
 
	 --System.sleep(200)
	 --bytesSent = socket:send("GET /"..nuevo_file.." HTTP/1.1\r\n")
	 --bytesSent = socket:send("Host: "..nuevo_host.."\r\n\r\n")
	 --System.sleep(200)
 
 
	while true do
	    System.sleep(200)
	    resivido=socket:recv(1000)
		System.sleep(200)
		if resivido~="" then
		     file:write(resivido)
			 file:flush()
		end
		if resivido=="" then
		    file:flush()
			file:close()
			fin = "ok" 
			break
		 end
	 end
	socket:close()
	return fin
 
end