In Message in 10.8 , in preference, in alert, select invitation to share your screen
and select the applescript that you will create with the script below
You are going to have to enter the name of the account that you allow to control the computer
in the line
setmembreDeLaFamilleto {“Name FirstName”, ”Name FistName”}
in my case, it was Name Firstname but it depand on what t show on the Aim Windows
Saddly, this system is gone in 10.9
very very sad
using terms from application "Messages"
on received text invitationunTextefromunePersonneQuiAppelleforleChat
if verifieLaPersonne(unePersonneQuiAppelle) then
acceptleChat
end if
end received text invitation
on received audio invitationtheTextfromunePersonneQuiAppelleforleChat
if verifieLaPersonne(unePersonneQuiAppelle) then
acceptleChat
end if
end received audio invitation
on received video invitationunVideofromunePersonneQuiAppelleforleChat
if verifieLaPersonne(unePersonneQuiAppelle) then
acceptleChat
end if
delay 5
tell application "Messages" to activate
set zoomed of front window to true
end received video invitation
on received remote screen sharing invitationfromunePersonneQuiAppelleforleChat
if verifieLaPersonne(unePersonneQuiAppelle) then
acceptleChat
end if
end received remote screen sharing invitation
on received local screen sharing invitationfromunePersonneQuiAppelleforleChat
if verifieLaPersonne(unePersonneQuiAppelle) then
acceptleChat
end if
end received local screen sharing invitation
on received file transfer invitationtheFileTransfer
if verifieLaPersonne(unePersonneQuiAppelle) then
accepttheFileTransfer
end if
end received file transfer invitation
end using terms from
on verifieLaPersonne(laPersonneQuiAppelle)
set utilisateurSecuritaire to false
set membreDeLaFamille to {“Name FirstName”, ”Name FistName”}
set leNomDeLaPersonneQuiAppelle to name of laPersonneQuiAppelle
repeat with i from 1 to number of items in membreDeLaFamille
set unMembreDeLaFamille to itemi of membreDeLaFamille
if leNomDeLaPersonneQuiAppelle = unMembreDeLaFamille then
set utilisateurSecuritaire to true
end if
end repeat
tell application "System Events"
set ss to current screen saver
stopss
end tell
return utilisateurSecuritaire
end verifieLaPersonne
