★三　【スクリプト改造工房 PART 9 】　★三

★三　【スクリプト� ..

509:508
09/09/27 13:13:22
---　get_flash_videos-1.15.orig　2009-09-27　11:48:37.000000000　+0900
+++　get_flash_videos-1.15　　2009-09-27　13:12:42.000000000　+0900
@@　-2010,7　+2010,7　@@　use　URI::Escape;
　
　sub　find_video　{
　　my　($self,　$browser,　$embed_url)　=　@_;
-　my　$id　=　($embed_url　=~　/(sm\d+)/)[0];
+　my　$id　=　($embed_url　=~　/([sn]m\d+)/)[0];
　　die　"No　ID　found\n"　unless　$id;
　
　　my　$base　=　"URLﾘﾝｸ(ext.nicovideo.jp)";
@@　-2029,7　+2029,9　@@　sub　find_video　{
　　$browser->get($base　.　"/$playkey");
　　my　$url　=　uri_unescape(($browser->content　=~　/url=([^&]+)/)[0]);
　
-　return　$url,　title_to_filename($title);
+　$url　=~　m{/smile\?(.)=}　or　die;
+　my　$type　=　{　qw(　v　flv　m　mp4　s　swf　)　}->{$1}　or　die;
+　return　$url,　title_to_filename($title,　$type);
　}
　
　1;
@@　-3318,6　+3320,9　@@　sub　check_magic　{
　　#　Other　QuickTime
　　}　elsif(substr($data,　4,　4)　eq　'moov'　||　substr($data,　4,　4)　eq　'mdat')　{
　　　return　1;
+　#　SWF
+　}　elsif(substr($data,　0,　3)　eq　'CWS')　{
+　　return　1;
　　}
　
　　return　0;

次ページ