itunes 10 添加音乐专辑后会自动添加封面，但歌曲本身并没有被写入封面，请问如何提取自动添加的封面？

itunes10 专辑没封面，专辑里面的歌曲有封面。还有就是单独一首歌始终加不进专辑里面~

是因为只有三首歌,位置太小了所它不显示封面了,不信你就看看别的专辑是不是也是这种情况,还是用coverflow吧。

方法一：点选高级，里面有个一获取专辑插图
方法二：选中一首歌，再去看itunes左下角，有四个图标，其中一个是方形里面有个三角的，点开，再将你要给歌曲配的图片拖进去就行了

如果你是在store上购买的音乐或者用正版cd导入的音乐，这样才可以自动添加封面，点歌曲或者专辑右键自动获取专辑封面就可以。如果是自己在其它地方下载音乐只能手动添加专辑封面，选择歌曲或者专辑右键选择显示简介，可以添加你电脑上已经下载好的专辑封面。

你在itunes里右键那首歌，再点可以给歌曲改名字，加歌词那里，里面有个专辑封面，就是最后一个选项，你点那个图片，然后ctrl+c，再打开windows自带画图，进去再ctrl+v，保存图片即可，
希望对你有帮助

要找到文件存哪了 导出来就好 但是自动添加的 它的格式可能不符合你喜欢这个图片想留存的意图呦 建议你自己找找图片吧 别费劲了

' ==============
' EmbediTunesArt
' ==============
' Version 1.0.0.1 - September 18th 2020
' Copyright ?Steve MacGuire 2010-2020
' http://samsoft.org.uk/iTunes/EmbediTunesArt.vbs
' Please visit http://samsoft.org.uk/iTunes/scripts.asp for updates

' =======
' Licence
' =======

' This program is free software: you can redistribute it and/or modify it under the terms
' of the GNU General Public License as published by the Free Software Foundation, either
' version 3 of the License, or (at your option) any later version.

' This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY;
' without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
' See the GNU General Public License for more details.

' Please visit http://www.gnu.org/licenses/gpl-3.0-standalone.html to view the GNU GPLv3 licence.

' ===========
' Description
' ===========
' Creates a cache of iTunes downloaded or embedded artwork, then embeds art into any track that doesn't have embedded art

' Related scripts: CleanDeadArt, CreateFolderArt, EmbedFolderArt, EmbediTunesArt

' =========
' ChangeLog
' =========
' Version 1.0.0.1 - Initial version

' ==========
' To-do List
' ==========
' Add things to do

' =============================
' Declare constants & variables
' =============================
' Core values for reusable code
' Modified 2014-04-06
Option Explicit ' Declare all variables before use
Const Kimo=False ' True if script expects "Keep iTunes Media folder organised" to be disabled
Const Min=1 ' Minimum number of tracks this script should work with
Const Max=0 ' Maximum number of tracks this script should work with, 0 for no limit
Const Warn=500 ' Warning level, require confirmation for processing above this level
Dim Intro,Outro,Check ' Manage confirmation dialogs
Dim PB,Prog,Debug ' Control the progress bar
Dim Clock,T1,T2,Timing ' The secret of great comedy
Dim Named,Source ' Control use on named playlist
Dim Playlist,List ' Name for any generated playlist, and the object itself
Dim iTunes ' Handle to iTunes application
Dim Tracks ' A collection of track objects
Dim Count ' The number of tracks
Dim D,M,P,S,U,V ' Counters
Dim nl,tab ' New line/tab strings
Dim IDs ' A dictionary object used to ensure each object is processed once
Dim Rev ' Control processing order, usually reversed
Dim Quit ' Used to abort script
Dim Title,Summary ' Text for dialog boxes
Dim Tracing ' Display/suppress tracing messages

' Additional variables for this particular script
' Modified 2020-09-18
Dim FSO ' Handle to FileSystemObject
Dim N ' Timestamp

' =======================
' Initialise user options
' =======================
' Custom values for this script
' Modified 2020-09-18
Intro=True ' Set false to skip initial prompts, avoid if non-reversible actions
Outro=True ' Produce summary report
Check=False ' Track-by-track confirmation
Prog=False ' Display progress bar
Debug=True ' Include any debug messages in progress bar
Timing=True ' Display running time in summary report
Named=False ' Force script to process specific playlist rather than current selection or playlist
Rev=False ' Control processing order, usually reversed
Source="" ' Named playlist to process, use "Library" for entire library
Tracing=False ' Display/suppress tracing messages

Title="Embed iTunes Art"
Summary="Creates a cache of iTunes downloaded or embedded artwork, then embeds art into any track that doesn't have embedded art"

' ============
' Main program
' ============

Init ' Set things up
ProcessTracks ' Main process
Report ' Summary

' ===================
' End of main program
' ===================

' ===============================
' Declare subroutines & functions
' ===============================

' Format time interval from x.xxx seconds to hh:mm:ss
' Modified 2011-11-07
Function FormatTime(T)
If T<0 Then T=T+86400 ' Watch for timer running over midnight
If T<2 Then
FormatTime=FormatNumber(T,3) & " seconds"
ElseIf T<10 Then
FormatTime=FormatNumber(T,2) & " seconds"
ElseIf T<60 Then
FormatTime=Int(T) & " seconds"
Else
Dim H,M,S
S=T Mod 60
M=(T\60) Mod 60 ' \ = Div operator for integer division
'S=Right("0" & (T Mod 60),2)
'M=Right("0" & ((T\60) Mod 60),2) ' \ = Div operator for integer division
H=T\3600
If H>0 Then
FormatTime=H & Plural(H," hours "," hour ") & M & Plural(M," mins"," min")
'FormatTime=H & ":" & M & ":" & S
Else
FormatTime=M & Plural(M," mins "," min ") & S & Plural(S," secs"," sec")
'FormatTime=M & " :" & S
'If Left(FormatTime,1)="0" Then FormatTime=Mid(FormatTime,2)
End If
End If
End Function

' Get album art from Artwork folder where the script is in the form <Artist> - <Album>.jpg
' Modified 2020-09-18
Function GetArt(T)
Dim AA,AL,Art,File,Folder,Img,R,Update
File=""
With T
AA=.AlbumArtist & "" : If AA="" Then AA=.Artist & "" : If AA="" Then AA="Unknown Artist"
AL=.Album & "" : If AL="" Then AL=.Name : If AL="" Then AL="Unknown Album"
Folder=FSO.GetParentFolderName(WScript.ScriptFullName) & "\Artwork"
File=Folder & "\" & ValidName(AA & " - " & AL,".jpg")
If FSO.FileExists(File) Then ' Found an image, now embed it if necessary
If .Artwork.Count=1 Then ' Erase any downloaded artwork
If .Artwork.Item(1).IsDownloadedArtwork Then
.Artwork.Item(1).Delete ' Then remove the store art
End If
End If
If .Artwork.Count=0 Then ' Now art if a track doesn't have art
.AddArtworkFromFile(File) ' Should probably add an error handler here
U=U+1 ' Increment update counter
Else
V=V+1 ' Increment counter of unchanged tracks
End If
End If
End With
End Function

' Group digits and separate with commas
' Modified 2014-04-29
Function GroupDig(N)
GroupDig=FormatNumber(N,0,-1,0,-1)
End Function

' Initialise track selections, quit script if track selection is out of bounds or user aborts
' Modified 2020-09-18
Sub Init
Dim R,T
' Initialise global variables
D=0
M=0
P=0
S=0
U=0
V=0
Quit=False
nl=vbCr & vbLf
' Initialise global objects
Set FSO=CreateObject("Scripting.FileSystemObject")
Set iTunes=CreateObject("iTunes.Application")
' Set SH=CreateObject("Shell.Application")
Set Tracks=iTunes.SelectedTracks ' Will error if open modal dialog box
If Tracks is Nothing Then
If iTunes.BrowserWindow.SelectedPlaylist.Source.Name<>"Library" Then
Set Tracks=iTunes.LibraryPlaylist.Tracks
Else
Set Tracks=iTunes.BrowserWindow.SelectedPlaylist.Tracks
End If
End If
Count=Tracks.Count
' Check there is a suitable number of suitable tracks to work with
IF Count<Min Or (Count>Max And Max>0) Then
If Max=0 Then
MsgBox "Please select " & Min & " or more tracks in iTunes before calling this script!",0,Title
WScript.Quit
Else
MsgBox "Please select between " & Min & " and " & Max & " tracks in iTunes before calling this script!",0,Title
WScript.Quit
End If
End If
' Check if the user wants to proceed and how
If Intro Then
T=Summary & nl & nl & "Process " & GroupDig(Count) & " track" & Plural(Count,"s","") & "?"
R=MsgBox(T,vbOKCancel+vbQuestion,Title)
If R=vbCancel Then WScript.Quit
End If
End Sub

' Return relevant string depending on whether value is plural or singular
' Modified 2011-10-04
Function Plural(V,P,S)
If V=1 Then Plural=S Else Plural=P
End Function

' Format a list of values for output
' Modified 2012-08-25
Function PrettyList(L,N)
If L="" Then
PrettyList=N & "."
Else
PrettyList=Replace(Left(L,Len(L)-1)," and" & nl,"," & nl) & " and" & nl & N & "."
End If
End Function

' Loop through track selection processing suitable items
' Modified 2020-09-18
Sub ProcessTracks
Dim I,T,SA
StartTimer
For I=1 To Count ' First pass, cache any new artwork images
Set T=Tracks.Item(I)
If T.Kind=1 Then ' Only process "File" tracks
P=P+1
SaveArt T
End If
Next
For I=1 To Count ' Second pass to insert fresh art in tracks that need it
Set T=Tracks.Item(I)
If T.Kind=1 Then ' Only process "File" tracks
If T.Location<>"" Then ' Cannot embed art in missing tracks
GetArt T
Else
M=M+1 ' Increment mIssing tracks
End If
End If
Next
StopTimer
End Sub

' Output report
' Modified 2020-09-18
Sub Report
If Not Outro Then Exit Sub
Dim L,T
T=GroupDig(P) & " track" & Plural(P,"s","")
If P<Count Then T=T & " of " & GroupDig(Count)
T=T & Plural(P," were"," was") & " processed of which " & nl
If D>0 Then L=PrettyList(L,GroupDig(D) & Plural(D," were duplicates"," was a duplicate") & " in the list")
If V>0 Then L=PrettyList(L,GroupDig(V) & " did not need updating")
If U>0 Or V=0 Then L=PrettyList(L,GroupDig(U) & Plural(U," were"," was") & " updated")
If M>0 Then L=PrettyList(L,GroupDig(M) & Plural(M," were"," was") & " missing")
L=L & nl & GroupDig(S) & " new image" & Plural(S,"s were"," was") & " saved."
T=T & L
If Timing Then
T=T & nl & nl & "Running time: " & FormatTime(Clock) & "."
End If
MsgBox T,vbInformation,Title
End Sub

' Save album art in an Artwork folder where the script is in the form <Artist> - <Album>.jpg
' Modified 2020-09-18
Function SaveArt(T)
Dim AA,AL,Art,File,Folder,Img,R,Update
File=""
With T
If .Location<>"" Then ' Cannot save art from a file that cannot be found
AA=.AlbumArtist & "" : If AA="" Then AA=.Artist & "" : If AA="" Then AA="Unknown Artist"
AL=.Album & "" : If AL="" Then AL=.Name : If AL="" Then AL="Unknown Album"
Set Art=.Artwork
If Art.Count>0 Then ' Found some art, try to save
Update=True
Folder=FSO.GetParentFolderName(WScript.ScriptFullName) & "\Artwork"
If FSO.FolderExists(Folder)=False Then FSO.CreateFolder(Folder)
File=Folder & "\" & ValidName(AA & " - " & AL,".jpg")
If FSO.FileExists(File) Then
Update=FSO.GetFile(File).DateLastModified<.ModificationDate
' MsgBox "File date = " & FSO.GetFile(File).DateLastModified & nl & "Track date = " & .ModificationDate & nl & "Update = " & Update
End If
If Update Then ' Update existing image if potentially newer
Set Img=Art.Item(1)
On Error Resume Next ' Catch any error saving the file
Img.SaveArtworkToFile(File)
If Err.Number<>0 Then
On Error Goto 0
R=MsgBox("Error Message: &" & Hex(Err.Number) & " " & Err.Description & nl & "while saving image to:" & nl & File,vbExclamation+vbOKCancel,Title)
If R=vbCancel Then wscript.quit
File="" ' Failed to save, don't export file path
Else
S=S+1 ' Update saved art counter
End If
On Error Goto 0
End If
End If
End If
End With
SaveArt=File
End Function

' Start timing session
' Modified 2011-10-08
Sub StartTimer
T1=Timer
End Sub

' Stop timing session and add elapased time to running clock
' Modified 2011-10-08
Sub StopTimer
Clock=Clock+Timer-T1
If Clock<0 Then Clock=Clock+86400 ' Watch for timer running over midnight
End Sub

' Replace invalid filename characters: \ / : * ? " < > | per http://support.microsoft.com/kb/177506
' Strip leading/trailing spaces & leading periods, trailing periods allowed except for folders
' Change the replacement characters on the right for other valid characters if required
' A name consisting only of spaces or periods is changed to a single underscore
' Pass name and extention, extention="" for folders
' Modified 2012-01-04
Function ValidName(I,E)
If I="" Then ValidName="" : Exit Function
Dim N : N=I ' Prevent pass by reference error
N=Replace(N,"\","-")
N=Replace(N,"/","-")
N=Replace(N,":",";")
N=Replace(N,"*","-")
N=Replace(N,"?","")
N=Replace(N,"""","''")
N=Replace(N,"<","{")
N=Replace(N,">","}")
N=Replace(N,"|","!")
Do While (Left(N,1)=" " Or Left(N,1)=".")
N=Mid(N,2)
If N=" " Or N="." Then N="_" ' Prevent name from vanishing
Loop
Do While Right(N,1)=" " Or (E="" And Right(N,1)=".")
N=Left(N,Len(N)-1)
' If N=" " Or N="." Then N="_" ' Prevent name from vanishing - Redundant!
Loop
ValidName=N & E
End Function

' ==============
' End of listing
' ==============

---

张北县18468283284： itunes 10 添加音乐专辑后会自动添加封面,但歌曲本身并没有被写入封面,请问如何提取自动添加的封面? - ？
傅要益心： 如果你是在store上购买的音乐或者用正版cd导入的音乐,这样才可以自动添加封面,点歌曲或者专辑右键自动获取专辑封面就可以.如果是自己在其它地方下载音乐只能手动添加专辑封面,选择歌曲或者专辑右键选择显示简介,可以添加你电脑上已经下载好的专辑封面.

张北县18468283284： 将歌曲添加到itunes然后再同步到设备上,itunes是不是会自动给歌曲添加专辑封面和专辑信息啊 - ？
傅要益心： 你好!楼主!将歌曲添加到itunes然后再同步到设备上,itunes会自动给歌曲添加专辑封面和专辑信息.但前提是你的音频文件含有歌曲信息及封面信息才行!苹果商店里卖的正版音乐都含有歌曲信息和高清封面,i信息会自动导入tune...

张北县18468283284： 高手进:在itunes里给歌曲添加了专辑封面,源文件会变吗? - ？
傅要益心： 是这么个回事,给你俩建议,一个是直接给源文件添加封面,还有一个就是你以后去google下音乐谷歌的音乐都是有专辑封面的

张北县18468283284： iTunes添加新专辑 - ？
傅要益心： 按ctrl选定多文件,你打开iTunes的右上角搜索左边有三个方框,点最左边一个 ,然后会变成列表形式,你按ctrl选定几个文件后点鼠标右键,点击第一个显示简介,把表演者,专辑名称重新编辑成你想要的,就可以分开了~ 添加的话,文件选项的添加文件就好了 你的意思不就是把专辑分开嘛,就是按上边说的做就好了,还可以添加封面类

张北县18468283284： 用itunes给iphone中的歌曲添加了专辑信息和封面,但是在iphone中不显示,在touch中可以,为什么呢? - ？
傅要益心： 有一个馊主意,首先把音乐集中到一个文件,删除itunes资料库,同步手机.把刚刚所有的音乐添加到itunes,同步资料……这样就不会让itunes认为这首歌你已经在iphone里而不修改这个歌曲了

张北县18468283284： 最新版iTunes怎么同步音乐到iPhone手机 - ？
傅要益心： 你好!1、打开iTunes,从菜单栏上选择“文件-将文件添加到资料库”选项. 2、从电脑导入需要同步到iPhone手机的音乐,随后再在iTunes界面上方单击手机图标. 3、在界面左方“设置”一栏中单击“音乐”,然后在右方操作界面上先单击勾选“同步音乐”,再从“表演者”和“专辑”框中单击勾选刚才添加到资料库中的音乐文件.最后单击“应用”按钮. 4、最后,点击“同步”按钮来完成最后的同步工作即可.希望可以帮助你

张北县18468283284： 苹果电脑怎么把音乐导入itunes - ？
傅要益心： 点击itunes图标打开itunes程序选择音乐从文件菜单中,选取 将文件添加到资料库浏览并选择要添加的文件,按Ctrl 可以多选,按Shift 可以连续多选添加完成后看到添加的专辑点击专辑图片,内部音乐列表会展开双击列表中喜欢的音乐就可以开始欣赏了.

张北县18468283284： IPOD 用ITUNES 加完专集封面以后歌曲变大吗 - ？
傅要益心： 歌曲文件(mp3)不会变大,是分开保存的,会把图片放在另一个文件夹在电脑上保存在我的文档/我的音乐/iTunes/Album Artwork中,加密了,没法看的在iPod上是保存在iPod_Control(被隐藏了)文件夹中的Artwork文件夹下用iTune加专集封面音乐文件是不变大的用WINDOWS MEDIA PLAYER添封面则是把它植入音乐文件中,会变大

张北县18468283284： itunes10怎么为歌曲添加专辑图片? - ？
傅要益心： 打开ITUNES,选择资料库,找到你要插图的歌右键点击,选择显示简介,选择插图,找到你要插的图片OK,然后同步到IP.

张北县18468283284： itunes怎么导入音乐 向iTunes 添加电脑中的文件 - ？
傅要益心： 方法/步骤 点击itunes图标 打开itunes程序 选择音乐 从文件菜单中,选取 将文件添加到资料库 浏览并选择要添加的文件,按Ctrl 可以多选,按Shift 可以连续多选 添加完成后看到添加的专辑 点击专辑图片,内部音乐列表会展开 双击列表中喜欢的音乐就可以开始欣赏了.