Yahoo Sound Stationをハックしてみる

YahooSoundStationは、IEでいろいろな技術を駆使して右クリックできなかったり、URLが出なかったりといろいろやっているようだが、そのウィンドウのURLを取得してみたいと思う。
とりあえず、IEを使ってるので、どんな仕掛けをしたところでShell.Applicationからは絶対にアクセスできる。

Set Shell = CreateObject("Shell.Application")
'WScript.Echo Shell.Windows.item(0).Document.body.innerHTML
WScript.Echo Shell.Windows.item(0).LocationUrl

結果:
http://station.music.yahoo.co.jp/player/ss_player?c=791601142&p=791601162

ちなみに、このURLから直接サウンドステーションを見ることもできるようだ。
勢いでソースも見てみたが、どうやらフレームに分割されまくっているようだ。

<FRAME name=header marginWidth=0 marginHeight=0 src="ssp_header?c=791601142&p=791601162" frameBorder=0 noResize scrolling=no>
<FRAME name=navi   marginWidth=0 marginHeight=0 src="ssp_navi  ?c=791601142&p=791601162" frameBorder=0 noResize scrolling=no>
<FRAME name=info   marginWidth=0 marginHeight=0 src="ssp_tuning?c=791601142&p=791601162" frameBorder=0 noResize scrolling=no>
<FRAME name=player marginWidth=0 marginHeight=0 src="ssp_plugin?c=791601142&p=791601162" frameBorder=0 noResize scrolling=no>
<FRAME src="#" noResize>

上から
・ログアウトとヘルプが表示されているところ
・ジャンル名＞チャンネル名と表示しているところ
・メイン画面（音楽名と映像)
・ボリュームと再生ボタンが表示されているところ
のようだ。それぞれ単独で動かそうとすると動かない。
……私の力ではこの辺が限界かなあ……。