09/08/06 15:14:24 b6fh+Sub0
youtube は結局完全に新仕様になっちゃったみたいですね。
もしいまだに Irvine + IrvineSaveAs.vbs を使用している人が居たら、21行目
（Set sh = Create… という行の直前）に以下のコードを追加してください。
（IrvineSaveAs.vbs は、TubePlayer の配布パッケージにも含まれています）
取り合えず、Irvineでならダウンロードできるようになります（ただし youtube 限定です）。
'Youtube アドレス修正 (21 Jul 2009)
Dim re
Set re = New RegExp
re.Pattern = "&keywords=.*$"
If re.Test(sUrl) Then sURL = re.Replace(sURL,"")
'Youtube アドレス修正 (21 Jul 2009) ここまで