Jump to content

CygnusTM

Members
  • Posts

    2
  • Joined

  • Last visited

Everything posted by CygnusTM

  1. The files are supposed to be copied to the root dir on C, right? Everything appears to be working (i.e. the songs are showing up in the 3tunes window) but I can't find the files anywhere.
  2. I've made a couple of changes, and I'm just going to post the source so we can all collaborate. Changes: - Added sleep in main loop so it doesn't peg the processor. Checking the title every 5 second should be sufficient. - Added "access" to plugdir checks. I have a number of "plugdirs" but only one was for Pandora. ; ---------------------------------------------------------------------------- ; ; AutoIt Version: 3.1.0 ; Author: Jang ; ; Script Function: ; Get Pandora mp3s ; ; ---------------------------------------------------------------------------- ; Define get partial title match and Wait for downloading AutoItSetOption("WinTitleMatchMode", 2) ; Get the handle of a Firefox window that contains "Pandora" in title $handle = WinGetHandle("Pandora") If @error Then MsgBox(4096, "Error", "Could not find the correct window") Else ;Define Bogus Tile Global $title = "nothing" $tempdir1 = @UserProfileDir & "Local SettingsTempplugtmp" $tempdir2 = @UserProfileDir & "Local SettingsTempplugtmp-" $increment = 1 ; Check which plugtemp exists ; Change by CygnusTM While Not FileExists ($tempdir1 & "access") While Not FileExists ($tempdir2 & $increment & "access") ; End change $increment = $increment + 1 WEnd $tempdir1 = $tempdir2 & $increment WEnd ;Used later Global $number = 1 Global $notspecified = $tempdir1 & "access-" Global $previous = $tempdir1 & "access" Global $next = $notspecified & $number Global $saveto = IniRead(@ScriptDir & "config.ini", "SaveTo", "dir", @UserProfileDir & "Desktop") If FileExists ($saveto) Then Else DirCreate ($saveto) EndIf while 1=1 ; Change by CygnusTM sleep(5000) ; End change ;MsgBox(0, "caixa", "while") While $title<>WinGetTitle($handle) If "(Paused)"=StringLeft(WinGetTitle($handle), 8) OR "Pandora -"=StringLeft(WinGetTitle($handle), 9) OR "Mozilla"=StringLeft(WinGetTitle($handle), 7) Then Else ;MsgBox(0, "caixa", "whilenot") ;Get the window Title $title=WinGetTitle($handle) ;Isolate the music Title from the rest $array = StringSplit($title, " - P",1) $titlefinal = $array[1] $stop = 1 While $stop=1 ;MsgBox(0, "caixa", "whilestop") If FileExists ($next) Then ;MsgBox(0, "caixa", "seexiste" & $next) $Previous = $next $number = $number + 1 $next = $notspecified & $number Else ;MsgBox(0, "caixa", "achou") $stop = 0 If FileExists ($previous) Then If $previous<>$tempdir1 & "access" Then FileCopy($previous, $saveto & $titlefinal & ".mp3") Else $stop2 = 1 While $stop2=1 If FileExists($next) Then $stop2 = 0 EndIf WEnd FileCopy($previous, $saveto & $titlefinal & ".mp3") EndIf Else MsgBox(4096, "Error", "Could not find the music") EndIf EndIf WEnd EndIf WEnd WEnd EndIf
×
×
  • Create New...