iTunes UDF

SUBMITTED BY: Guest

DATE: May 28, 2013, 5:29 p.m.

FORMAT: Text only

SIZE: 15.0 kB

Raw Download

HITS: 919

Report
  1. #include <array.au3>
  2. #include <File.au3>
  4. $vol_percent = 10
  5. $Lyric_text = ""
  6. $p_name = "Playlist"
  7. $file_path = ""
  8. $i_num = 1
  9. Global $iTunesApp = ""
  10. Global $Library_Tracks = ""
  11. Global $file = ""
  12. Global $path = ""
  13. $Library_Playlist = ""
  14. $Playlist_Handle = ""
  16. Func _iTunes_Start()
  17. $iTunesApp = ObjCreate("iTunes.Application")
  18. $Library_Playlist = $iTunesApp.LibraryPlaylist
  19. $Library_Tracks = $iTunesApp.LibraryPlaylist.Tracks
  20. $sel_Track = $iTunesApp.SelectedTracks
  21. $current_Track = $iTunesApp.CurrentTrack
  22. $Player_State = $iTunesApp.PlayerState
  23. $Playlist_Handle = $iTunesApp.LibrarySource.Playlists
  24. EndFunc ;==>_iTunes_Start
  26. Func _iTunes_Library_Tracks()
  27. Dim $aArray[1]
  28. For $item in $Library_Tracks
  29. _ArrayAdd($aArray, $item.Name)
  30. Next
  31. $aArray[0] = _iTunes_Library_CountTracks()
  32. Return $aArray
  33. EndFunc
  35. Func _iTunes_Vol_Up($vol_percent)
  36. $iTunesApp.SoundVolume = $iTunesApp.SoundVolume + $vol_percent
  37. EndFunc ;==>_iTunes_Vol_Up
  39. Func _iTunes_Vol_Down($vol_percent)
  40. $iTunesApp.SoundVolume = $iTunesApp.SoundVolume - $vol_percent
  41. EndFunc ;==>_iTunes_Vol_Down
  43. Func _iTunes_Prev()
  44. $iTunesApp.PreviousTrack
  45. EndFunc ;==>_iTunes_Prev
  47. Func _iTunes_Next()
  48. $iTunesApp.NextTrack
  49. EndFunc ;==>_iTunes_Next
  51. Func _iTunes_Current_LyricsSet($Lyric_text)
  52. $iTunesApp.CurrentTrack.Lyrics = $Lyric_text
  53. EndFunc ;==>_iTunes_Set_Lyric
  55. Func _iTunes_Current_LyricsGet()
  56. Return $iTunesApp.CurrentTrack.Lyrics
  57. EndFunc ;==>_iTunes_Set_Lyric
  59. Func _iTunes_Current_ArtworkSaveToTmp()
  60. $file = _TempFile(Default, Default, ".jpg")
  61. $iTunesApp.CurrentTrack.Artwork(1).SaveArtworkToFile($file)
  62. Return $file
  63. EndFunc ;==>_iTunes_Current_Artwork_Get_tmp
  65. Func _iTunes_Current_Artwork_Get($path)
  66. $iTunesApp.CurrentTrack.Artwork(1).SaveArtworkToFile($file)
  67. EndFunc ;==>_iTunes_Current_Artwork_Get
  69. Func _iTunes_Current_Artwork_Set($path)
  70. $iTunesApp.CurrentTrack.Artwork(1).SetArtworkFromFile($path)
  71. EndFunc ;==>_iTunes_Current_Artwork_Set
  73. Func _iTunes_Play_Pause()
  74. $iTunesApp.PlayPause
  75. EndFunc ;==>_iTunes_Play_Pause
  77. Func _iTunes_PlayList_Create($p_name)
  78. $iTunesApp.CreatePlaylist($p_name)
  79. EndFunc ;==>_iTunes_PlayList_Create
  81. Func _iTunes_PlayList_Add($PlayList_Name, $song_Name)
  82. $sng_nm = $Library_Tracks.ItemByName($song_Name)
  83. $Playlist_Handle.ItemByName($PlayList_Name).AddTrack($sng_nm)
  84. EndFunc ;==>_iTunes_PlayList_Add
  86. Func _iTunes_Playlist_Delete($PlayList_Name)
  87. $Playlist_Handle.ItemByName($PlayList_Name).Delete
  88. EndFunc ;==>_iTunes_Playlist_Delete
  90. Func _iTunes_Playlist_Info($PlayList_Name)
  91. $playlist = $Playlist_Handle.ItemByName($PlayList_Name)
  92. $pInfo = _ArrayCreate($playlist.Kind,$playlist.duration,$playlist.shuffle,$playlist.size,$playlist.SongRepeat,$playlist.time,$playlist.Visible)
  93. Return $pInfo
  94. EndFunc ;==>_iTunes_Playlist_Info
  96. Func _iTunes_Playlist_PlayFirst($PlayList_Name)
  97. $Playlist_Handle.ItemByName($PlayList_Name).PlayFirstTrack
  98. EndFunc ;==>_iTunes_Playlist_PlayFirst
  100. Func _iTunes_Playlist_Search($PlayList_Name,$search)
  101. dim $return
  102. $sResults = $Playlist_Handle.ItemByName($PlayList_Name).search($search,0)
  103. for $track in $sResults
  104. _ArrayAdd($return,$track)
  105. Next
  106. Return $return
  107. EndFunc
  109. Func _iTunes_Library_CountTracks()
  110. Return $Library_Tracks.Count
  111. EndFunc ;==>_iTunes_Library_CountTracks
  113. Func _iTunes_Library_AddTrack($path)
  114. $Library_Playlist.AddTrack($path)
  115. EndFunc ;==>_iTunes_Library_AddTrack
  117. Func _iTunes_Song_LyricsGet($song_Name)
  118. return $Library_Tracks.ItemByName($song_Name).Lyrics
  119. EndFunc
  121. Func _iTunes_Song_LyricsSet($song_Name,$lyrics)
  122. $Library_Tracks.ItemByName($song_Name).Lyrics = $lyrics
  123. EndFunc
  125. Func _iTunes_Song_ArtworkSaveToTmp($song_Name)
  126. $file = _TempFile(Default, Default, ".jpg")
  127. $Library_Tracks.ItemByName($song_Name).Artwork(1).SaveArtworkToFile($file)
  128. Return $file
  129. EndFunc ;==>_iTunes_Current_Artwork_Get_tmp
  131. Func _iTunes_Song_Artwork_Get($song_Name,$path)
  132. $Library_Tracks.ItemByName($song_Name).Artwork(1).SaveArtworkToFile($file)
  133. EndFunc ;==>_iTunes_Current_Artwork_Get
  135. Func _iTunes_Song_Artwork_Set($song_Name,$path)
  136. $Library_Tracks.ItemByName($song_Name).Artwork(1).SetArtworkFromFile($path)
  137. EndFunc ;==>_iTunes_Current_Artwork_Set
  139. Func _iTunes_Library_DeleteTrack($song_Name)
  140. $Library_Tracks.ItemByName($song_Name).Delete
  141. EndFunc ;==>_iTunes_Library_DeleteTrack
  143. Func _iTunes_Get_Vol()
  144. Return $iTunesApp.SoundVolume
  145. EndFunc ;==>_iTunes_Get_Vol
  147. Func _iTunes_Vol_Set($vol_percent)
  148. $iTunesApp.SoundVolume = $vol_percent
  149. EndFunc ;==>_iTunes_Set_Vol_Percent
  151. ;Func _iTunes_Get_Selected()
  152. ;dim $sTracks
  153. ;for $track in $iTunesApp.SelectedTracks
  154. ;_ArrayAdd($sTracks,$track)
  155. ;Next
  156. ;return $sTracks
  157. ;EndFunc
  159. Func _iTunes_Get_Selected($flag)
  160. Dim $aSelTracks[1]
  162. Switch $flag
  165. Case 1
  166. For $track In $iTunesApp.SelectedTracks
  167. _ArrayAdd($aSelTracks, $track.name)
  168. $aSelTracks[0] = UBound($aSelTracks)-1
  169. Next
  171. Case 2
  172. For $track In $iTunesApp.SelectedTracks
  173. _ArrayAdd($aSelTracks, $track.Location)
  174. $aSelTracks[0] = UBound($aSelTracks)-1
  175. Next
  177. Case 3
  178. For $track In $iTunesApp.SelectedTracks
  179. _ArrayAdd($aSelTracks, $track.Rating)
  180. $aSelTracks[0] = UBound($aSelTracks)-1
  181. Next
  183. Case 4
  184. For $track In $iTunesApp.SelectedTracks
  185. _ArrayAdd($aSelTracks, $track.Time)
  186. $aSelTracks[0] = UBound($aSelTracks)-1
  187. Next
  189. EndSwitch
  191. Return $aSelTracks
  192. EndFunc ;==>_iTunes_Get_Selected
  194. Func _iTunes_Selected_GetInfo()
  195. dim $sInfo
  196. For $track In $iTunesApp.SelectedTracks
  197. $tInfo = $track.Album & "|" & _
  198. $track.artist & "|" & _
  199. $track.BPM & "|" & _
  200. $track.comment & "|" & _
  201. $track.Compilation & "|" & _
  202. $track.Composer & "|" & _
  203. $track.DateAdded & "|" & _
  204. $track.Duration & "|" & _
  205. $track.EQ & "|" & _
  206. $track.Genre & "|" & _
  207. $track.KindAsString & "|" & _
  208. $track.ModificationDate & "|" & _
  209. $track.PlayedCount & "|" & _
  210. $track.PlayedDate & "|" & _
  211. $track.Playlist & "|" & _
  212. $track.Rating & "|" & _
  213. $track.SampleRate & "|" & _
  214. $track.Size & "|" & _
  215. $track.Time & "|" & _
  216. $track.TrackNumber & "|" & _
  217. $track.VolumeAdjustment & "|" & _
  218. $track.Year
  220. _ArrayAdd($sInfo,$tInfo)
  221. Next
  223. Return $sInfo
  224. EndFunc ;==>_iTunes_Selected_GetInfo
  228. Func _iTunes_Song_GetInfo($song_Name)
  229. $song = $Library_Tracks.ItemByName($song_Name)
  230. if IsObj($song) then
  231. $tInfo = _ArrayCreate($song.Album)
  232. _ArrayAdd($tInfo, $song.artist)
  233. _ArrayAdd($tInfo, $song.BPM)
  234. _ArrayAdd($tInfo, $song.comment)
  235. _ArrayAdd($tInfo, $song.Compilation)
  236. _ArrayAdd($tInfo, $song.Composer)
  237. _ArrayAdd($tInfo, $song.DateAdded)
  238. _ArrayAdd($tInfo, $song.Duration)
  239. _ArrayAdd($tInfo, $song.EQ)
  240. _ArrayAdd($tInfo, $song.Genre)
  241. _ArrayAdd($tInfo, $song.KindAsString)
  242. _ArrayAdd($tInfo, $song.ModificationDate)
  243. _ArrayAdd($tInfo, $song.PlayedCount)
  244. _ArrayAdd($tInfo, $song.PlayedDate)
  245. _ArrayAdd($tInfo, $song.Playlist)
  246. _ArrayAdd($tInfo, $song.Rating)
  247. _ArrayAdd($tInfo, $song.SampleRate)
  248. _ArrayAdd($tInfo, $song.Size)
  249. _ArrayAdd($tInfo, $song.Time)
  250. _ArrayAdd($tInfo, $song.TrackNumber)
  251. _ArrayAdd($tInfo, $song.VolumeAdjustment)
  252. _ArrayAdd($tInfo, $song.Year)
  254. Return $tInfo
  255. Else
  256. Return 1
  257. EndIf
  258. EndFunc ;==>_iTunes_Song_GetInfo
  260. Func _iTunes_Current_GetInfo()
  261. $tInfo = _ArrayCreate($iTunesApp.CurrentTrack.Album)
  262. _ArrayAdd($tInfo, $iTunesApp.CurrentTrack.artist)
  263. _ArrayAdd($tInfo, $iTunesApp.CurrentTrack.name)
  264. _ArrayAdd($tInfo, $iTunesApp.CurrentTrack.comment)
  265. _ArrayAdd($tInfo, $iTunesApp.CurrentTrack.Compilation)
  266. _ArrayAdd($tInfo, $iTunesApp.CurrentTrack.Composer)
  267. _ArrayAdd($tInfo, $iTunesApp.CurrentTrack.DateAdded)
  268. _ArrayAdd($tInfo, $iTunesApp.CurrentTrack.Duration)
  269. _ArrayAdd($tInfo, $iTunesApp.CurrentTrack.EQ)
  270. _ArrayAdd($tInfo, $iTunesApp.CurrentTrack.Genre)
  271. _ArrayAdd($tInfo, $iTunesApp.CurrentTrack.KindAsString)
  272. _ArrayAdd($tInfo, $iTunesApp.CurrentTrack.ModificationDate)
  273. _ArrayAdd($tInfo, $iTunesApp.CurrentTrack.PlayedCount)
  274. _ArrayAdd($tInfo, $iTunesApp.CurrentTrack.PlayedDate)
  275. _ArrayAdd($tInfo, $iTunesApp.CurrentTrack.Playlist)
  276. _ArrayAdd($tInfo, $iTunesApp.CurrentTrack.Rating)
  277. _ArrayAdd($tInfo, $iTunesApp.CurrentTrack.SampleRate)
  278. _ArrayAdd($tInfo, $iTunesApp.CurrentTrack.Size)
  279. _ArrayAdd($tInfo, $iTunesApp.CurrentTrack.Time)
  280. _ArrayAdd($tInfo, $iTunesApp.CurrentTrack.TrackNumber)
  281. _ArrayAdd($tInfo, $iTunesApp.CurrentTrack.VolumeAdjustment)
  282. _ArrayAdd($tInfo, $iTunesApp.CurrentTrack.Year)
  284. Return $tInfo
  285. EndFunc ;==>_iTunes_Current_Get_Info
  287. Func _iTunes_Quit()
  288. $iTunesApp.Quit
  289. EndFunc ;==>_iTunes_Quit
  291. Func _iTunes_iPod_Update()
  292. $iTunesApp.iPodSource.UpdateIPod
  293. EndFunc ;==>_iTunes_iPod_Update
  295. Func _iTunes_iPod_Eject()
  296. $iTunesApp.iPodSource.EjectIPod
  297. EndFunc ;==>_iTunes_iPod_Eject
  299. Func _iTunes_iPod_Version()
  300. Return $iTunesApp.iPodSource.SoftwareVersion
  301. EndFunc ;==>_iTunes_iPod_Version
  303. Func _iTunes_Visuals_Enable()
  304. $iTunesApp.VisualsEnabled = 1
  305. EndFunc ;==>_iTUnes_Visuals_Enable
  307. Func _iTunes_Visuals_Disable()
  308. $iTunesApp.VisualsEnabled = 0
  309. EndFunc ;==>_iTunes_Visuals_Disable
  311. Func _iTunes_Get_ITL_Path()
  312. Return $iTunesApp.LibraryXMLPath
  313. EndFunc ;==>_iTunes_Get_ITL_Path
  315. Func _iTunes_Podcast_Subscribe($podcast_url)
  316. $iTunesApp.SubscribeToPodcast($podcast_url)
  317. EndFunc ;==>_iTunes_Podcast_Subscribe
  319. Func _iTunes_Podcast_UpdateFeeds()
  320. $iTunesApp.UpdatePodcastFeeds
  321. EndFunc ;==>_iTunes_Podcast_UpdateFeeds
  323. Func _iTunes_Player_Get_State()
  324. Return $iTunesApp.PlayerState
  325. EndFunc ;==>_iTunes_Player_Get_State
  327. Func _iTunes_MiniPlayer($state = 1)
  328. If $state = 1 Then
  329. $iTunesApp.BrowserWindow.MiniPlayer = 1
  330. Else
  331. $iTunesApp.BrowserWindow.MiniPlayer = 0
  332. EndIf
  334. Return $iTunesApp.BrowserWindow.MiniPlayer
  335. EndFunc ;==>_iTunes_MiniPlayer
  337. Func _iTunes_Unload()
  338. If IsObj($iTunesApp) Then _iTunes_Quit()
  339. $iTunesApp = ""
  340. EndFunc
  342. Func _iTunes_Mute()
  343. $iTunesApp.Mute = String(not $iTunesApp.Mute)
  344. EndFunc
  346. #cs USER CALLTIP ENRTRIES
  347. _iTunes_Start() Starts iTunes If not running and initializes the functions. Required #include <iTunes.au3>
  348. _iTunes_Vol_Up([$vol_percent = 10]) Volume Up. Required #include <iTunes.au3>
  349. _iTunes_Vol_Down([$vol_percent = 10]) Volume Down. Required #include <iTunes.au3>
  350. _iTunes_Prev() Previous Song. Required #include <iTunes.au3>
  351. _iTunes_Next() Next Song. Required #include <iTunes.au3>
  352. _iTunes_Current_LyricsSet($Lyric_text) Set Lyrics to Current Song. Required #include <iTunes.au3>
  353. _iTunes_Current_LyricsGet() Get Lyrics for Current Song. Required #include <iTunes.au3>
  354. _iTunes_Current_ArtworkSaveToTmp() Save Current Song's Artwork to .tmp file (returns the tmp name). Required #include <iTunes.au3>
  355. _iTunes_Current_Artwork_Get($path) Saves Current Song's Artwork to path. Required #include <iTunes.au3>
  356. _iTunes_Current_Artwork_Set($path) Set Current Song's Artwork form image. Required #include <iTunes.au3>
  357. _iTunes_Play_Pause() Play/Pause. Required #include <iTunes.au3>
  358. _iTunes_PlayList_Create($p_name) Create Playlist. Required #include <iTunes.au3>
  359. _iTunes_PlayList_Add($PlayList_Name, $song_Name) Add a Library Song to a Playlist. Required #include <iTunes.au3>
  360. _iTunes_Playlist_Delete($PlayList_Name) Delete Playlist. Required #include <iTunes.au3>
  361. _iTunes_Playlist_Info($PlayList_Name) Get Playlist's info. Required #include <iTunes.au3>
  362. _iTunes_Playlist_PlayFirst($PlayList_Name) Play First Song in Playlist. Required #include <iTunes.au3>
  363. _iTunes_Playlist_Search($PlayList_Name,$search) Search Song in Playlist. Required #include <iTunes.au3>
  364. _iTunes_Library_CountTracks() Count Library Tracks. Required #include <iTunes.au3>
  365. _iTunes_Library_AddTrack($path) Add file to library. Required #include <iTunes.au3>
  366. _iTunes_Library_Tracks() Get the Librarie's Track List. Required <iTunes.au3>
  367. _iTunes_Song_LyricsGet($song_Name) Get Song's Lyrics. Required #include <iTunes.au3>
  368. _iTunes_Song_LyricsSet($song_Name,$lyrics) Set Song's Lyrics. Required #include <iTunes.au3>
  369. _iTunes_Song_ArtworkSaveToTmp($song_Name) Save Song's Artwork to .tmp file. Required #include <iTunes.au3>
  370. _iTunes_Song_Artwork_Get($song_Name,$path) Save Song's Artwork to file. Required #include <iTunes.au3>
  371. _iTunes_Song_Artwork_Set($song_Name,$path) Set Song's Artwork form image. Required #include <iTunes.au3>
  372. _iTunes_Library_DeleteTrack($song_Name) Delete track. Required #include <iTunes.au3>
  373. _iTunes_Get_Vol() Get Volume Percentage. Required #include <iTunes.au3>
  374. _iTunes_Vol_Set($vol_percent) Set Volume Percentage. Required #include <iTunes.au3>
  375. _iTunes_Get_Selected() Get Selected Tracks. Required #include <iTunes.au3>
  376. _iTunes_Selected_GetInfo() Returns an array containing Selected Tracks info. Required #include <iTunes.au3>
  377. _iTunes_Song_GetInfo($song_Name) Returns an array containing Song's info. Required #include <iTunes.au3>
  378. _iTunes_Current_GetInfo() Returns an array containing Current Song's Info. Required #include <iTunes.au3>
  379. _iTunes_Quit() Quit iTunes. Required #include <iTunes.au3>
  380. _iTunes_iPod_Update() Update iPod. Required #include <iTunes.au3>
  381. _iTunes_iPod_Eject() Eject iPod. Required #include <iTunes.au3>
  382. _iTunes_iPod_Version() Get iPod Software Version. Required #include <iTunes.au3>
  383. _iTunes_Visuals_Enable() Enable Visuals. Required #include <iTunes.au3>
  384. _iTunes_Visuals_Disable() Disable Visuals. Required #include <iTunes.au3>
  385. _iTunes_Get_ITL_Path() Returns "library.itl" (XML file containing iTunes library info) path. Required #include <iTunes.au3>
  386. _iTunes_Podcast_Subscribe($podcast_url) Subscribe to podcast. Required #include <iTunes.au3>
  387. _iTunes_Podcast_UpdateFeeds() Update Podcast Feeds. Required #include <iTunes.au3>
  388. _iTunes_Player_Get_State() Get Player State. Required #include <iTunes.au3>
  389. _iTunes_MiniPlayer([$state = 1]) Set MiniPlayer state. Required #include <iTunes.au3>
  390. _iTunes_UnLoad() Unload iTunes COM Object. Required #include <iTunes.au3>
  391. _iTunes_Mute() Mute iTunes. Required #include <iTunes.au3>
  392. #ce
comments powered by Disqus