注目コメント算出アルゴリズムの一部にLINEヤフー株式会社の「建設的コメント順位付けモデルAPI」を使用しています
下記のスクリプトをテキストエディタやメモ帳などにコピペ 15行目「(current.Name, "新しい再生回数の設... 下記のスクリプトをテキストエディタやメモ帳などにコピペ 15行目「(current.Name, "新しい再生回数の設定", k)」の「k」を変更したい再生回数に書き換える(半角数字で記入) 拡張子をtxtからvbsに変更して、countedit.vbsとでも名前をつけて保存 あとはダブルクリックして実行 Dim iTunesApp Dim Tracks, numTracks Dim i, k Dim current set iTunesApp = WScript.CreateObject("iTunes.Application") set iShell = CreateObject("Wscript.Shell") iShell.AppActivate("iTunes") set Tracks = iTunesApp.SelectedTracks numTracks = Tracks.Co
2011/10/04 リンク