可以使用AppleScript訪問右鍵單擊上下文嗎？

Question

我想使用類似AppleScript的東西來爲鍵盤快捷方式指定一個右鍵單擊上下文。

例如：

如果我右鍵單擊Dropbox的它給了我一個「分享Dropbox的鏈接」菜單中的文件夾。是否可以在不使用鼠標的情況下訪問它？

Answer 1

您可以使用下面的腳本訪問上下文菜單，您需要通過Google找到MouseLocation和cliclick。

您可能需要對其進行編輯（並將硬編碼路徑調整爲MouseLocation和cliclick），但它確實沒有問題，我認爲您可以使用System Events和關鍵代碼命令來導航上下文菜單。

set mouseLoc to (do shell script "/usr/local/opt/MouseLocation") 
set {astid, AppleScript's text item delimiters} to {AppleScript's text item delimiters, ","} 
tell mouseLoc to set {mouseX, mouseY} to {it's text item 1, it's text item 2} 
set {mouseX, mouseY} to {(mouseX as integer), 1200 - (mouseY as integer)} 

tell application "System Events" 
    set frontProcessName to name of every process whose frontmost is true 
    -- tell a to set aa to (get its name) 
    set wnCount to count of windows of process named frontProcessName 
    if wnCount > 0 then 
     tell window 1 of process named frontProcessName 
      set wnPos to its position 
      set wnsize to its size 
     end tell 
     set {wnX, wnY, wnWidth, wnHeight} to {item 1 of wnPos, item 2 of wnPos, item 1 of wnsize, item 2 of wnsize} 

     set {leftBound, RightBound, upperBound, lowerBound} to {wnX + 1, (wnX + wnWidth - 21), wnY + 50, (wnY + wnHeight - 51)} 
     if mouseX ≥ leftBound and mouseX ≤ RightBound then 
     else if mouseX < leftBound then 
      set mouseX to leftBound 
      log "a" 
     else 
      set mouseX to RightBound 
      log "b" 
     end if 

     if mouseY ≥ upperBound and mouseY ≤ lowerBound then 
     else if mouseY < upperBound then 
      set mouseY to upperBound 
      log "c" 
     else 
      set mouseY to lowerBound 
      log "d" 
     end if 

    end if 
end tell 
set mouseLoc to "c" & mouseX & " " & mouseY 
do shell script "/usr/local/opt/cliclick " & mouseLoc 
set AppleScript's text item delimiters to astid 

編輯：

我不知道，你無法通過谷歌找到MouseLocation了，我對此感到遺憾 如果編譯在這個線程在崗＃3中發現的代碼問題（http://www.macscripter.net/viewtopic.php?id=33468），那麼我建議你使用MouseTool在這裏找到:(http://www.hamsoftengineering.com/codeSharing/MouseTools/MouseTools.html）代替，那麼您需要需要腳本的前四行更改爲類似：

set mouseLoc to (do shell script "MouseTools -location") 
set {astid, AppleScript's text item delimiters} to {AppleScript's text item delimiters, return} 
tell mouseLoc to set {mouseX, mouseY} to {it's text item 1, it's text item 2} 
set {mouseX, mouseY} to {(mouseX as integer),(mouseY as integer)} 

（你必須調整到M的路徑ouseTools以及cliclick）

Answer 2

根據this post，似乎可以在系統內使用Universal Access進行此操作。