AppleScript för att underlätta iTunesdelning

Tråden skapades och har fått 10 svar. Det senaste inlägget skrevs .
1
  • Medlem
  • Höganäs
  • 2003-05-02 16:57

Kod för att skapa mail med rätt sorts länk för att leda andra till sin egen iTunesdelning, förutsatt att den är på. (Kräver Mail.app och iTunes4)

Starta Manusredigeraren (Program/ApplerScript/ )
Klistra in följande i ett nytt fönster:

(*
Script för att enkelt dela med sig av sin musik via iTunes4.
Funktion: Öppnar Mail.app med aktuellt IP-nr och rätt prefix på länken.
micke_fors "at" mac.com ©2003
*)

-- hämtar aktuellt IP mha ifconfig
set myip to ¬
	do shell script "ifconfig | grep 'broadcast' | awk '{print $2}'" 

(*
alternativ IP-hämtning:
set myip to characters 1 thru -2 of (words 31 thru 32 of ¬
	((do shell script "curl http://checkip.dyndns.org/") ¬
as international text) as text) as text
*)
tell application "Mail"
	-- titel på mailet:
	set theTitle to "Min delade musik!"
	-- Mailets innehåll:
	set theText to "Klicka på
daap://" & myip & "
(Kräver iTunes4)

"
	set accountAddresses to (email addresses of first account)
	set fromAddress to first item of accountAddresses
	set theMessage to make new outgoing message
	set visible of theMessage to true
	set subject of theMessage to theTitle
	set content of theMessage to theText
	activate
end tell

- Spara som kompilarat manus med lämpligt namn i ~/Bibliotek/Scripts
- Använd genom at köra ScriptMenu (/Program/AppleScript/Script Menu.menu)

/Micke

Verkar inte funka ifall man sitter bakom en roater...

  • Medlem
  • Höganäs
  • 2003-05-02 20:18
Citat:

Skrevs ursprungligen av macgunde
Verkar inte funka ifall man sitter bakom en roater...

FUnkar inte scriptet eller funkar inte delningen?
Tror inte det går att surfa till sitt eget iTunes.
Prova klicka på daap://213.115.115.83 (min iTUnes, länk skapat med scriptet)

Källa : macosxhints.com

Jag får bara upp den interna ip adressen, men det kanske bara är att ändra till till den externa i mailet när man kör scriptet...

jag kan dock inte så mycket i detta område

  • Medlem
  • Höganäs
  • 2003-05-02 20:32
Citat:

Skrevs ursprungligen av Micke F
Kod för att skapa mail med rätt sorts länk för att leda andra till sin egen iTunesdelning, förutsatt att den är på.

Alltså ska din egen IP-adress dyka upp så att du kan skicka den till andra!

Funkar iaf på min Bredbandsbolagskoppling, med dynamisk tilldelning.

Prova annars alternativet i scriptet genom att avmarkera )* *(

I mailet får jag upp detta..

Citat:

Klicka på
daap://192.168.0.2
(Kräver iTunes4)

Dvs den interna ip adressen...
det hjälpte inte att ta bort det du sa...

  • Medlem
  • Höganäs
  • 2003-05-02 20:49
Citat:

Skrevs ursprungligen av macgunde
I mailet får jag upp detta..

Dvs den interna ip adressen...
det hjälpte inte att ta bort det du sa...

Ok.
Prova ändra {print $2} till ex awk '{print $6}'" eller någon annan siffra.
Annars vet jag inte

Citat:

Skrevs ursprungligen av Micke F
Ok.
Prova ändra {print $2} till ex awk '{print $6}'" eller någon annan siffra.
Annars vet jag inte

Jag testade ändra lite, men fick det inte att funka...

  • Oregistrerad
  • 2003-05-04 08:59
Citat:

Skrevs ursprungligen av macgunde
Jag testade ändra lite, men fick det inte att funka...

Om du flyttar parentesen från den andra till den första söksträngen så hämtas ditt externa IP från <http://checkip.dyndns.org/> istället
då kommer det att funka...
så här...

(*-- hämtar aktuellt IP mha ifconfig
set myip to ¬
do shell script "ifconfig | grep 'broadcast' | awk '{print $2}'"*)

--alternativ IP-hämtning:
set myip to characters 1 thru -2 of (words 31 thru 32 of ¬
((do shell script "curl http://checkip.dyndns.org/ ") ¬
as international text) as text) as text

tell application "Mail"
-- titel på mailet:
set theTitle to "Min delade musik!"
-- Mailets innehåll:
set theText to "Klicka på
daap://" & myip & "
(Kräver iTunes4)

"
set accountAddresses to (email addresses of first account)
set fromAddress to first item of accountAddresses
set theMessage to make new outgoing message
set visible of theMessage to true
set subject of theMessage to theTitle
set content of theMessage to theText
activate
end tell

Lycka till

/Teeway

(edit) ändrade mellan första och andra söksträngen...virr virr

Senast redigerat 2003-05-04 09:10

Nu funkar det...

Skulle vilja lära mig lite mer inom detta område, finns det någon guide eller hemsida som beskriver hur man skriver?

Mvh Daniel

  • Medlem
  • Höganäs
  • 2003-05-04 12:08
Citat:

Skrevs ursprungligen av macgunde
Nu funkar det...

Skulle vilja lära mig lite mer inom detta område, finns det någon guide eller hemsida som beskriver hur man skriver?

Mvh Daniel

http://www.apple.com/applescript/
http://www.macscripter.net/
http://www.malcolmadams.com/itunes/index.shtml

1
Bevaka tråden