vipで踊りたいんです　6巡回目

スレッド自動巡回ソフト vipDANCE　

公式ＨＰ
　http://vip.himegimi.jp/
作者酉
　◆DanceB.V2Y
前スレ
　http://anago.2ch.net/test/read.cgi/software/1265864083/

前スレ落ちたみたい

作者のコメント
◇354氏 に引継ぎ　開発を再開

　熱も冷めて開発を停止しておりましたが、
　その後、ソースも酉も紛失してしまい更新を断念しておりました。

　ところが最近バックアップが見つかったため 354氏 に引継いで頂く事でﾏｻｶの開発再開となりました。

　今まで使って頂いて感謝です。今後は354氏を応援してあげてください。

　himegimi◆DanceB.V2Y

354氏（不在）？

$vddata = "F:\APP\vipDANCE\data" # vipDANCE.exe のあるフォルダ\data
$vditem = "F:\MEDIA\2015\2ch\megami\item\03" # vipDANCE の 設定 | 保存設定 | アイテム で指定したフォルダ
$queue = "/media/megami/item/misc_use_srvdate" # irvineで「自動開始」「更新日時を取得する」設定のキューがいいかも

function download([string]$url,[string]$savepath,[string]$queue="/Default",[string]$referer=$url) {
$irvine = New-Object –ComObject Irvine.Api
$item = New-Object –ComObject Irvine.Item
$item.Url = $url
$item.Referer = $referer
$item.Folder = $savepath
$irvine.CurrentQueueFolder = $queue
$irvine.Current.AddItem($item) | Out-Null
Remove-Variable irvine
Remove-Variable item
}

function validate_filename($filename) {
$filename = $filename -replace '\\','￥'
$filename = $filename -replace '/','／'
$filename = $filename -replace ':','：'
# $filename = $filename -replace ',','，'
# $filename = $filename -replace ';','；'
$filename = $filename -replace '\*','＊'
$filename = $filename -replace '\?','？'
$filename = $filename -replace '"','”'
$filename = $filename -replace '<','＜'
# $filename = $filename -replace '>','＞'
$filename = $filename -replace '>','&gt;'
$filename = $filename -replace '\|','｜'
return $filename
}

$item = Import-Csv $vddata\item.txt -Header server,status,amount,cycle,lastwritetime,name,trip,mail,id, `
url,thread_id,thread_title,thread_part,resno,dummy -Encoding UTF8

$yt_video_ids = @()
$yt_video_ids_path = "$env:temp\yt_video_ids.txt" # 消えても構わないと思うが気になる人は変更してください

if (test-path $yt_video_ids_path) {$yt_video_ids = @(gc $yt_video_ids_path)}
$count = $yt_video_ids.count

$item | % {
if ($_.url.Contains("youtu.be")) {
$yt_video_id = ($_.url -split "/")[-1]
if ($yt_video_id -notin $yt_video_ids) { # ダブりcheck
download $_.url (Join-Path $vditem (validate_filename $_.thread_title)) $queue
$yt_video_ids += $yt_video_id # videoidを書きとめる
}
} elseif ($_.url.Contains("www.youtube.com/watch")) {
$yt_video_id = ($_.url.substring(($_.url.indexOf("v=") + 2)) -split "&")[0]
if ($yt_video_id -notin $yt_video_ids) {
download $_.url (Join-Path $vditem (validate_filename $_.thread_title)) $queue
$yt_video_ids += $yt_video_id
}
}
}
if ($yt_video_ids.count -gt $count) {$yt_video_ids | sc $yt_video_ids_path}