Home
My Posts

Archive
Login
Signup

Recent Posts

Free subdomains

Want your own xyz.kpaste.net sub-domain for your community? Just type the address into your browser address bar (foo.xyz.kpaste.net is also supported).

Suggestions/Bugs?

Email us at . Try to include as much info as possible.

About

Pastebin is a tool for collaborative debugging or editing.

 

Weathertool
Posted by Anonymous on Fri 4th Jun 2010 04:49
raw | new post

Submit a correction or amendment below (click here to make a fresh posting)
After submitting an amendment, you'll be able to view the differences between the old and new posts easily.

Syntax highlighting: None Bash C C++ CSS Diff HTML mIRC Script Perl PHP Python Smarty XML ---------------------------- ABAP Actionscript ADA Apache Log AppleScript APT sources.list ASM ASP AutoIT Bash C C# C++ C++ (with QT) CSS Diff HTML INI (Config Files) Java Javascript Lua Make mIRC Script MySQL NSIS Perl PHP Python Q(uick)BASIC robots Ruby Ruby on Rails SDLBasic Smarty SQL TCL Text VB.NET Visual BASIC Visual Fox Pro Visual Prolog Windows Registry Files XML Xorg.conf

To highlight particular lines, prefix each line with {%HIGHLIGHT}
;Desktop weather tool - http://www.autohotkey.com/forum/viewtopic.php?t=58716 ;Weather tool from google api v0.95 ;By bekihito SetBatchLines, -1 #SingleInstance, Force #NoEnv #Include %A_ScriptDir%\lib\Xpath.ahk SetWorkingDir %A_ScriptDir% ;reading the start location from ini file or taking defaults IniRead ,place, location.ini, locat, place,Zagreb IniRead ,cntr, location.ini, locat, cntr, Hr IniRead, Xwin, location.ini, position,Xwin IniRead, Ywin, location.ini, position,Ywin IniRead, trans, location.ini, position,trans,255 Menu,Tray, nostandard Menu,Tray, Add, Change Location, Location Menu,Tray, Add, Update weather, Update Menu,Tray, Add, About, About Menu,Tray, Add Menu,Tray, Add, Exit, GuiClose Gosub ,download ;changing the transparency and always on top !1:: IfWinExist,Weather { trans :=255 Gui, Submit,Nohide WinSet ,Transparent ,%trans%, Weathertool } Return !2:: IfWinExist,Weather { trans :=180 Gui, Submit,Nohide WinSet ,Transparent ,%trans%, Weathertool } Return !3:: IfWinExist,Weather { trans :=90 Gui, Submit,Nohide WinSet ,Transparent ,%trans%, Weathertool } Return !4:: IfWinExist,Weather { WinGet, ExStyle, ExStyle, Weathertool if (ExStyle & 0x8) ; 0x8 is WS_EX_TOPMOST. { Winset, AlwaysOnTop, off, Weathertool } else { WinSet, AlwaysOnTop, on, Weathertool } } Return ;gui, showing the data GuiShow: Gui, +Owner +Owndialogs +ToolWindow Gui, Font, S12 CDefault, Arial bold Gui, Add, Text, x5 y5 h20 w200 Center, %City% ;Gui, Add, Edit, x5 y5 h20 w200 ReadOnly, %City% Gui Add , Pic , x5 y40 h70 w70, visual.gif Gui, Font, S8 CDefault, Arial bold Gui Add , Text , x85 y35 h14 w150, Date:%Forecastdate% Gui Add , Text , x85 y50 h14 w150, %Condition% Gui Add , Text , x85 y65 h14 w150, Temperature: %tempf%¦F/%tempc%¦C Gui Add , Text , x85 y80 h14 w150, %humidity% Gui Add , Text , x85 y95 h14 w150, %windcondition% ;Today Gui, Font, S8 CDefault, Arial bold Gui Add , Text, x5 y125 h12 w60 center, %day_of_week1% Gui Add , Pic , x15 y140 h40 w40, visual1.gif Gui, Font, S6 CDefault, Arial Gui Add , Text , x5 y190 h12 w60, %condition1% Gui Add , Text , x5 y202 h14 w60, High:%High1%¦F/%temphigh1%¦C Gui Add , Text , x5 y214 h14 w60, Low:%low1%¦F/%templow1%¦C ;Tomorrow Gui, Font, S8 CDefault, Arial bold Gui Add , Text, x90 y125 h12 w60 center, %day_of_week2% Gui Add , Pic , x100 y140 h40 w40, visual2.gif Gui, Font, S6 CDefault, Arial Gui Add , Text , x90 y190 h12 w60, %condition2% Gui Add , Text , x90 y202 h14 w60, High:%High2%¦F/%temphigh2%¦C Gui Add , Text , x90 y214 h14 w60, Low:%low2%¦F/%templow2%¦C ;Day after Tomorrow Gui, Font, S8 CDefault, Arial bold Gui Add , Text, x175 y125 h12 w60 center, %day_of_week3% Gui Add , Pic , x185 y140 h40 w40, visual3.gif Gui, Font, S6 CDefault, Arial Gui Add , Text , x175 y190 h12 w60, %condition3% Gui Add , Text , x175 y202 h14 w60, High:%High3%¦F/%temphigh3%¦C Gui Add , Text , x175 y214 h14 w60, Low:%low3%¦F/%templow3%¦C ;Two days from now Gui, Font, S8 CDefault, Arial bold Gui Add , Text, x260 y125 h12 w60 center, %day_of_week4% Gui Add , Pic , x270 y140 h40 w40, visual4.gif Gui, Font, S6 CDefault, Arial Gui Add , Text , x260 y190 h12 w60, %condition4% Gui Add , Text , x260 y202 h14 w60, High:%High4%¦F/%temphigh4%¦C Gui Add , Text , x260 y214 h14 w60, Low:%low4%¦F/%templow4%¦C ;Action Buttons Gui, Font, S10 CDefault, Arial bold Gui Add, Button, x225 y5 w100 h40 gLocation, Change location Gui Add, Button, x225 y50 w100 h40 gUpdate, Update weather Gui Add, Button, x225 y95 w100 h20 gAbout, About Gui, +Owndialogs Gui, Show, w330 h250 x%Xwin% y%Ywin%, Weathertool WinSet ,Transparent ,%trans%, Weathertool Return download: ;downloading the xml file from google weather api locat=%place%,%cntr% URLDownloadToFile,http://www.google.com/ig/api?weather=%locat%, %A_ScriptDir%\weather.xml /* parsing the data from google api xml file unfortunatelly the data is set to attributes value rather then text value so some additional triming is needed */ xpath_load(XML, "weather.xml") City:= Xpath(XML, "/xml_api_reply/weather/forecast_information/city") blah=&#44 StringTrimLeft , City , City, 12 StringTrimRight , City, City, 9 StringReplace ,City, City, %blah% Postal:= Xpath(XML, "/xml_api_reply/weather/forecast_information/postal_code") bla=#44 StringTrimLeft , Postal , Postal, 19 StringTrimRight , Postal, Postal,16 StringReplace ,Postal, Postal, %bla% ;weather at the moment Forecastdate:= Xpath(XML, "/xml_api_reply/weather/forecast_information/forecast_date") StringTrimLeft , Forecastdate , Forecastdate, 21 StringTrimRight , Forecastdate,Forecastdate,18 Condition:= Xpath(XML, "/xml_api_reply/weather/current_conditions/condition") StringTrimLeft , Condition , Condition, 17 StringTrimRight , Condition,Condition,14 tempf:= Xpath(XML, "/xml_api_reply/weather/current_conditions/temp_f") StringTrimLeft , tempf , tempf, 14 StringTrimRight , tempf,tempf,11 tempc:= Xpath(XML, "/xml_api_reply/weather/current_conditions/temp_c") StringTrimLeft , tempc , tempc, 14 StringTrimRight , tempc,tempc,11 humidity:= Xpath(XML, "/xml_api_reply/weather/current_conditions/humidity") StringTrimLeft , humidity , humidity, 16 StringTrimRight , humidity,humidity,13 visual:= Xpath(XML, "/xml_api_reply/weather/current_conditions/icon") StringTrimLeft , visual ,visual, 12 StringTrimRight , visual , visual,9 windcondition:= Xpath(XML, "/xml_api_reply/weather/current_conditions/wind_condition") StringTrimLeft , windcondition ,windcondition, 22 StringTrimRight , windcondition , windcondition, 19 ;weather forecast for today and 3 days ahead loop, { day_of_week%A_Index% := xpath(XML, "/xml_api_reply/weather/forecast_conditions[" . A_Index . "]/day_of_week") StringTrimLeft , day_of_week%A_Index% ,day_of_week%A_Index%, 19 StringTrimRight , day_of_week%A_Index% , day_of_week%A_Index%, 16 low%A_Index% := xpath(XML, "/xml_api_reply/weather/forecast_conditions[" . A_Index . "]/low") StringTrimLeft , low%A_Index% ,low%A_Index%, 11 StringTrimRight , low%A_Index% , low%A_Index%, 8 high%A_Index% := xpath(XML, "/xml_api_reply/weather/forecast_conditions[" . A_Index . "]/high") StringTrimLeft , high%A_Index% , high%A_Index%, 12 StringTrimRight , high%A_Index% , high%A_Index%, 9 visual%A_Index% := xpath(XML, "/xml_api_reply/weather/forecast_conditions[" . A_Index . "]/icon") StringTrimLeft , visual%A_Index% ,visual%A_Index%, 12 StringTrimRight , visual%A_Index% , visual%A_Index%, 9 condition%A_Index% := xpath(XML, "/xml_api_reply/weather/forecast_conditions[" . A_Index . "]/condition") StringTrimLeft , condition%A_Index% ,condition%A_Index%, 17 StringTrimRight , condition%A_Index% , condition%A_Index%, 14 ;calculation of Farenheit to Celsius SetFormat ,float, 2.1 templow%A_Index% :=(low%A_Index%-32)*5/9 temphigh%A_Index%:=(high%A_Index%-32)*5/9 if !day_of_week%A_Index% Break } ;weather represented in a visual manner Urldownloadtofile , http://www.google.com/%visual%, visual.gif Urldownloadtofile , http://www.google.com/%visual1%, visual1.gif Urldownloadtofile , http://www.google.com/%visual2%, visual2.gif Urldownloadtofile , http://www.google.com/%visual3%, visual3.gif Urldownloadtofile , http://www.google.com/%visual4%, visual4.gif Gui, Submit, NoHide Gosub GuiShow return ;change location Location: Gui, +Owner +Owndialogs +ToolWindow WinGetPos,Xwin,Ywin,,,Weathertool InputBox ,place,New town, , , 100,100,Xwin+90,Ywin+50 InputBox ,cntr,New country, , , 100, 100,Xwin+90,Ywin+50 Gui, Submit,No Hide If (place=""){ IniRead ,place, Location.ini, Locat, place } Gui, Submit,No Hide @@;Replace space with + @@IfInString, place, %A_Space% @@ StringReplace, place, place, %A_Space%, +, All IniWrite ,%place%, Location.ini, Locat, place IniWrite ,%cntr%, Location.ini, Locat, cntr Gosub , download Return ;update current weather Update: @@IniRead ,place, Location.ini, Locat, place @@IniRead ,cntr, Location.ini, Locat, cntr Gosub, download Return About: Gui , +Owner +Owndialogs +ToolWindow Gui 2: +Toolwindow Gui 2:add ,Text, x5 y5 w195 h15 center, WeatherTool v0.95 Gui 2:add ,Text, x5 y20 w195 h15 center, Copyright Bekihito,May 2010 Gui 2:add ,Text, x5 y40 w195 h15 , Change location: doh! Gui 2:add ,Text, x5 y55 w195 h15 , Update weather: Update current weather Gui 2:add ,Text, x5 y70 w195 h15 , Alt+1,2,3: Change transparency Gui 2:add ,Text, x5 y85 w195 h15 , Alt+4: Toggle AlwaysOnTop ;Gui 2:Show , x%Xwin%+90 y%Ywin%+50 w205 h105,About Xwin2:=Xwin+350 Gui 2:Show , x%Xwin2% y%Ywin%+50 w205 h105,About ;Gui, Show, w330 h250 x%Xwin% y%Ywin%, Weathertool Return GuiClose: WinGetPos,Xwin,Ywin,,,Weathertool Gui, Submit, NoHide IniWrite, %Xwin%, location.ini, position,Xwin IniWrite, %Ywin%, location.ini, position,Ywin IniWrite, %trans%, location.ini, position,trans ExitApp

Title:

Privacy: Public Private

How long should your post be retained?

15 mins an hour a day a week a month forever

All content is user-submitted.
The administrators of this site (kpaste.net) are not responsible for their content.
Abuse reports should be emailed to us at