Página 4 de 5

Re: UI | APZ | Temperature

Publicado: 29 Jul 2017 01:22
por Guanj
gracias

Re: UI | APZ | Temperature

Publicado: 10 Sep 2017 22:17
por jhonitimer
thanxxxxx

Re: UI | APZ | Temperature

Publicado: 02 Oct 2017 21:41
por ATTACK
thanks

Re: UI | APZ | Temperature

Publicado: 14 Ene 2018 01:01
por Hello World
de pta mare :jackie-1417752827: :wat-1414024905: :awesome-1417754492:

Re: UI | APZ | Temperature

Publicado: 31 May 2018 10:08
por luasqlite
Gracias

Re: UI | APZ | Temperature

Publicado: 24 Jun 2018 18:32
por Chilepunk20182018
Gracias ! :content-1414023392:

Re: UI | APZ | Temperature

Publicado: 25 Jun 2018 14:48
por sendai
gracias

Re: UI | APZ | Temperature

Publicado: 29 Jul 2018 00:48
por THEBEST1
gracias

Re: UI | APZ | Temperature

Publicado: 07 Ago 2018 00:24
por electrobyte
Gracias

Re: UI | APZ | Temperature

Publicado: 07 Ago 2018 00:25
por electrobyte
Gracias

Re: UI | APZ | Temperature

Publicado: 16 Feb 2019 00:15
por nivaldorhk
bueno mui...

Re: UI | APZ | Temperature

Publicado: 16 Feb 2019 01:55
por germanlinares
se agradece

Re: UI | APZ | Temperature

Publicado: 21 Jul 2019 01:31
por raz
Gracias

Re: UI | APZ | Temperature

Publicado: 17 Ago 2019 16:37
por KadeL
muy lindo, felicitaciones, saludos!

Re: UI | APZ | Temperature

Publicado: 13 Feb 2020 13:11
por manuzip
Cixg escribió:
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)

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
gracias!

Re: UI | APZ | Temperature

Publicado: 21 Mar 2021 03:10
por pexabosh
Cixg escribió:
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)

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
testing... :pc:

Re: UI | APZ | Temperature

Publicado: 03 Abr 2021 02:23
por KelvynJose
:rockon-1417756812: :cerrado: :cerrado:

Re: UI | APZ | Temperature

Publicado: 05 Abr 2021 03:01
por orthiismusic
muchas gracias

Re: UI | APZ | Temperature

Publicado: 24 Jul 2021 18:07
por lujanufe
excelente :)

Re: UI | APZ | Temperature

Publicado: 06 Ago 2021 00:39
por R Landaeta
Gracias. :friends: