08/05/07 20:21:14 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) = "URLﾘﾝｸ(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デコードメソッド
↑つづく