Raccourci pour scanner une page

© Christian PAULUS. Document créé le 29 juillet 2010 , mis à jour le 29 juillet 2010.

Qu'importe le flacon, pourvu qu'on ait l'ivresse. Alfred de Musset

Accueil du site > Astuces > MacOSX > Raccourci pour scanner une page

Applescript / MacOsX 10.6 (Snow Leopard)

Mots-clés

Même rubrique

Besoin de lancer le scan d’une page ? A partir de n’importe où ? En un seul click (à vrai dire en 2 : une confirmation de commande qui peut être supprimée).

Le script ci-dessous, à placer dans votre bibliothèque de scripts, lance Aperçu, et déclenche le scan branché sur l’USB de la machine.

Malheureusement, ni Aperçu, ni Transfert d’images ne sont scriptables. L’intérêt est limité, n’ayant que les évènements système en guise de couteau suisse.

-- Petit message d'accueil
display dialog ¬
        "Placez le document sur le scan et validez" buttons {"Continuer", "Stop"} ¬
        default button 2 with icon 2

-- si Ok, appeler l'appli
if button returned of the result is "Continuer" then
        tell application "Preview"
                activate
                tell application "System Events"
                        tell process "Preview"
                                activate
                                delay 1
                               
                                if title = "" then
                                        display dialog "Pas de périphèrique ?"
                                else
                                        activate
                                        delay 1
                                        -- Importer depuis le scanner > le premier trouvé
                                        click menu item 1 of menu 1 ¬
                                                of menu item 17 of menu 1 ¬
                                                of menu bar item ¬
                                                "Fichier" of menu bar 1
                                        delay 12
                                end if
                        end tell
                end tell
        end tell
end if

Plussoyez !

Les forums sont fermés.