UI | APZ | Temperature

Aquí pueden poner todos los programas y utilidades que hayan creado con AMS.
He realizado un script sencillo donde tomo la IP Publica de donde se ejecute la aplicación y recojo datos de diferentes servidores para mostrar solamente la temperatura local actual. Los datos son tomados de eltiempo.es | Diseño UI: Cixg (SC ABEL)

Imagen
function FINDANDREPLACE()
	INDEX = String.Find(TEMPERATURA, "Hoy,", 33910, false)
	END = String.Find(TEMPERATURA, "º", INDEX, false) - 2
	TEMPERATURA = String.Left(TEMPERATURA, END)
	TEMPERATURA = String.Right(TEMPERATURA, 3)
	TEMPERATURA = String.Replace(TEMPERATURA, " ", "")
	TEMPERATURA = String.Replace(TEMPERATURA, "	", "")
	TEMPERATURA = String.Replace(TEMPERATURA, ">", "")
	TEMPERATURA = String.Replace(TEMPERATURA, '"', "")
end

function TEMPERATURALOCAL(CONFIG)
	if CONFIG then
		require("CONFIG")
	else
		
		IP_PUBLIC = HTTP.Submit("http://myip.dnsomatic.com", {}, SUBMITWEB_GET, 20, 80)
		--IP_PUBLIC = '0.0.0.0'
		COUNTRY_AND_CITY = HTTP.Submit("http://whatismyipaddress.com/ip/"..IP_PUBLIC, {}, SUBMITWEB_GET, 20, 80)
		PAIS = COUNTRY_AND_CITY:match("Country%:</th><td>(.-)%s<")
		CIUDAD = COUNTRY_AND_CITY:match("City%:</th><td>(.-)<")
		if PAIS == nil then
			PAIS = "NO HAY DATOS"
		end
		if CIUDAD == nil then
			CIUDAD = "NO HAY DATOS"
		end
		TABLE = {"PAIS = ".."'"..PAIS.."'", "CIUDAD = ".."'"..CIUDAD.."'", "IP_PUBLIC = ".."'"..IP_PUBLIC.."'",
		"----"}
		TextFile.WriteFromTable(_SourceFolder.."\\CONFIG.lua", TABLE, false);
	end

	PAISu = String.Replace(PAIS, " ", "-", false)
	CIUDADu = String.Replace(CIUDAD, " ", "-", false)	
	
	TEMPERATURA = HTTP.Submit("http://www.eltiempo.es/"..CIUDADu..".html", {}, SUBMITWEB_GET, 20, 80)
	if  TEMPERATURA ~= "" then
		FINDANDREPLACE()
		Paragraph.SetText("TEMPERATURA", TEMPERATURA)
		else
			TEMPERATURA = HTTP.Submit("http://www.eltiempo.es/"..PAISu.."/"..CIUDADu..".html", {}, SUBMITWEB_GET, 20, 80)
			if  TEMPERATURA ~= "" then
				FINDANDREPLACE()
				Paragraph.SetText("TEMPERATURA", TEMPERATURA)
			else
			File.Run("notepad.exe", _SourceFolder.."\\CONFIG.lua", _TempFolder, SW_SHOWNORMAL, true);
			Application.ExitScript()
		end
	end
	TEMPERATURA = String.ToNumber(TEMPERATURA)

		TABLE = {"PAIS = ".."'"..PAIS.."'", "CIUDAD = ".."'"..CIUDAD.."'", "IP_PUBLIC = ".."'"..IP_PUBLIC.."'",
		"----"}
		TextFile.WriteFromTable(_SourceFolder.."\\CONFIG.lua", TABLE, false);
		
		if TEMPERATURA >= 50 then COLORPAGE('083AB1') Application.ExitScript() end if TEMPERATURA >= 40 then
		COLORPAGE('0477C3') Application.ExitScript() end if TEMPERATURA >= 30 then COLORPAGE('01ABD5')
		Application.ExitScript() end if TEMPERATURA >= 20 then COLORPAGE('25CFAC') Application.ExitScript()
		end if TEMPERATURA >= 10 then COLORPAGE('8AD375') Application.ExitScript() end if TEMPERATURA >= 0
		then COLORPAGE('E6D531') Application.ExitScript() end if TEMPERATURA >= -10 then COLORPAGE('E58C38')
		Application.ExitScript() end if TEMPERATURA >= -20 then COLORPAGE('CA503E') Application.ExitScript()
		end if TEMPERATURA >= -30 then COLORPAGE('8C3044') end
end
Virus Total | APZ [MEGA]

HIDE: ON
Hidebb Message Hidden Description
Muchas gracias.

Hombre esta bien , voy a mirar si mañana me puedo ir a la playa un retico XD.

En serio... buen trabajo, lo subo a ams files.

Buen trabajo +10

Thank you

not bad!

Thank you

muy interesante

Gracias.

se ve muy bueno

Greetings
Muy interesante!

Me gusta, voy a verlo

thanks

thank you

..................

Gracias

Gracias!

felicidade buen trabajo mano

gracias
gracias men