-
- Usuario
06 Ene 2014 06:39
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)
Virus Total | APZ [MEGA]
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
