gracias!Cixg escribió: ↑06 Ene 2014 06:39He 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
testing...Cixg escribió: ↑06 Ene 2014 06:39He 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