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

★三　【スクリプト� ..

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

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　=　"http://ext.nicovideo.jp/thumb_watch/$id"; 
@@　-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;

次ページ