FC2ブログ

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

曲の再生回数を増やす方法

iTunes内、またはiPod内にある楽曲をワケあって再生回数を増やしたい、
または減らしたいという方に再生回数の変更方法を紹介したいと思う。

ステップ1

まず、下にあるスクリプトをテキストエディタやメモ帳などに
コピーして貼り付けます。



Dim iTunesApp
Dim Tracks, numTracks
Dim i, k
Dim current

set iTunesApp = WScript.CreateObject("iTunes.Application")
set Tracks = iTunesApp.SelectedTracks
numTracks = Tracks.Count
Cnt

Sub Cnt
for i = 1 to numTracks
set current = Tracks.Item(i)
k = current.PlayedCount
k = InputBox(current.Name, "新しい再生回数の設定", k)
if k="" then Exit Sub
current.PlayedCount = k
next
End Sub



ステップ2

「(current.Name, "新しい再生回数の設定", k)」の「k」を
変更したい再生回数に半角数字で書き換える。

それが、できたら拡張子をtxtからvbsに変更して保存。
拡張子の変更方法がわからない方は、コチラを参考に

拡張子が変更できたら
oiuhoiuhiuhy.jpg
上のようなアイコンができます。

ステップ3

iTunesを起動後、再生回数を変更したい曲を選択して
先ほどのスクリプトを実行します。

kfpsafsafdsafsdpi.jpg
(クリックで拡大)
上のように再生回数を変更したい曲を選択。



joijsfoi.jpg
(クリックで拡大)
次に先ほど作ったスクリプト実行すると上のようになります。
ここで、数値を変更することで再生回数を変更できます。



ihyguyg.jpg
(クリックで拡大)
スクリプトを実行後がこのような感じ。
ちゃんと、再生回数が変わっていますね。



スポンサーサイト

テーマ : iPod
ジャンル : コンピュータ

プロフィール

@ちゃま

Author:@ちゃま
管理人は、
このストレス社会の中、日々、勉強に励んで?いる。
現在、バイトを辞めたのでぷー太郎状態・・・

最新記事
iPod周りはコレでOK
iPod用お手軽スピーカー
スポンサードリンク
カテゴリ
ブログランキング



スポンサードリンク
QRコード
QRコード
相互リンク
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。