getter1【超高速】ゲッター１

143 名前：名無しさん＠お腹いっぱい。 [2008/05/07(水) 20:21:14 ID:s+Tzuh/b0] >>142 'dailymotion;dailymotionアドレス変換 Ver.1.2 'dailymotionのビデオ視聴アドレスをビデオファイルダウンロード用アドレスに変換するスクリプト 'S_OriginalURL = 変換前のURL 'S_SourceGetCheck = Trueならソースを取得(デフォルトはFalse) 'S_ScriptCheck = TrueならURL変換を実行した。（ソース取得の場合もTrueにする） '---------------------------------------- Dim dailymotionCheck As integer dailymotionCheck = 1 //dailymotionのアドレスを変換するなら1 しないなら 0 if dailymotionCheck = 1 then if left(S_OriginalURL,27) = "www.dailymotion.com/" then S_ScriptCheck = true//処理を行った場合は必ずTrueにする S_SourceGetCheck = true S_SplitNo = 2//2番目のスクリプトで処理 else S_SourceGetCheck = false end if end if print(S_OriginalURL) //-Split-//2番目のスクリプト 'ここから下はソースを取得する場合のメソッド 'S_SourceURL = ソースのURL 'S_Source = 取得したHTMLソース 'S_DownloadFileName = ファイル名 'MS_NthFieldB = オリジナルNthFieldBメソッド。RbスクリプトでNthFieldBをサポートしていないため。 'MS_DecodeURL = URLデコードメソッド ↑つづく

---

---

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef