ArtSaltのサイドストーリー

音楽、フリーウェア、WEBサービス、食べものなどに関する日記。トラックバック、コメント歓迎。

livedoorのWeatherHacks

走り梅雨の時期。天気が気になる日が続く。そんなときは以下の方法で情報を得ている。

1) 【Insert】キーを2回押す ━━ ArtTipsのランチャーのポップアップメニューが表示される。
2) 【W】キーを押す ━━ WthrHck_sizu.vbsというプログラムが起動し、当地(静岡県中部地方)の今日の天気と最高気温が表示される。
3) 【Space】または【Enter】キーを押す ━━ 当地の明日の天気と最高気温が表示される。
4) 【Space】または【Enter】キーを押す ━━ WthrHck_sizu.vbsが終了する。

表示はこんな感じ
bossa_antigua
これはlivedoorのWeather Hacksを利用している。

⇒ Weather Hacks - livedoor 天気情報

ここのサービスは気象情報のRSSフィードを提供している。それをちゃっかり利用して簡単なプログラムWthrHck_sizu.vbsをつくったわけだ。
プログラムのつくりかたは数ヶ月前のデジタルARENAの記事を参考にした。

⇒ Weather Hacks(ウェザーハックス)をいじりたおそう。これがWeb2.0の楽しさだ / デジタルARENA

ソースコードは…

 
place = "静岡"
xmlFile = "http://weather.livedoor.com/forecast/rss/22/34.xml"
Set xmlDoc = CreateObject("Microsoft.XMLDOM")
xmlDoc.async = False
returnCode = xmlDoc.Load(xmlFile)
If returnCode = False Then
MsgBox("読み込みエラー")
WScript.Quit()
End If
Call xmlDoc.setProperty("SelectionLanguage","XPath")
Set titleNodes = xmlDoc.selectNodes("//item[title=contains(title,'"&place&"')]/title")
Call MsgBox(titleNodes(1).text,vbInformation,"livedoor天気情報(C)")
Call MsgBox(titleNodes(2).text,vbInformation,"livedoor天気情報(C)")
Set xmlDoc = nothing

VBScriptというものらしい。

最初の一発目の起動時にはMcAfee(のPersonal Firewall Plusだったかな)が反応した。許可してあげれば、もちろん問題なく動く。残念ながら、PCのプログラミング経験のない私の力量では東京地方の天気を静岡地方の天気に変更することしかできない。
(T_T)

これと同じ感じで、現在の月齢のイメージをデスクトップに表示するフリーウェアを探しているが、なにかいいものないかな。自分でつくるという方法もあるが。
Google
WWW ArtSaltのサイドストーリー
Web site (optional)
Comment - Need to type CAPTCHA, an image of distorted Japanese Hiragana or Katakana afterward.
Password - Not allowed to modify your comment later if password not entered.
On secret mode?
 

http://art2006salt.blog60.fc2.com/tb.php/56-f88a2d4d

このブログについて

最近のエントリ

カテゴリー
あわせて読みたいブログ

あわせて読みたい

最近のコメント
Internet Explorer
よりも便利です

Opera 9 - Always secure with Opera Firefoxをダウンロード!!

相互リンク