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