デフォルトのブラウザを変更する(set defaultbrowser)修正

ダウンロード - defaultbrowserapp.zip

---

【スクリプトエディタで開く】| クリップボードへコピー

#!/usr/bin/env osascript

----+----1----+----2----+-----3----+----4----+----5----+----6----+----7

(*

https://quicktimer.cocolog-nifty.com/icefloe/2023/06/post-f91978.html

*)

----+----1----+----2----+-----3----+----4----+----5----+----6----+----7

##自分環境がos12なので2.8にしているだけです

use AppleScript version "2.8"

use framework "Foundation"

use framework "AppKit"

use framework "UniformTypeIdentifiers"

use scripting additions

property refMe : a reference to current application

###設定項目ドキュメントのURL

set strScheme to "https://" as text

###NSURL

set ocidScheme to refMe's NSURL's URLWithString:(strScheme)

###ワークスペース初期化

set appShardWorkspace to refMe's NSWorkspace's sharedWorkspace()

###URLタイプのデフォルトアプリケーション

set ocidAppURLArray to appShardWorkspace's URLsForApplicationsToOpenURL:(ocidScheme)

###ダイアログ用のアプリケーション名リスト

set listAppName to {} as list

###アプリケーションのURLを参照させるためのレコード

set ocidBrowserDictionary to refMe's NSMutableDictionary's alloc()'s initWithCapacity:0

####################################################

####httpがスキームとして利用可能なアプリケーション一覧を取得する

####################################################

repeat with itemAppPathURL in ocidAppURLArray

  ###アプリケーションの名前

  set listResponse to (itemAppPathURL's getResourceValue:(reference) forKey:(refMe's NSURLNameKey) |error|:(missing value))

  set strAppName to (item 2 of listResponse) as text

  log "ブラウザの名前は：" & strAppName & "です"

  copy strAppName to end of listAppName

  ####パス

  set aliasAppPath to itemAppPathURL's absoluteURL() as alias

  log "ブラウザのパスは：" & aliasAppPath & "です"

  ####バンドルID取得

  set ocidAppBunndle to (refMe's NSBundle's bundleWithURL:(itemAppPathURL))

  set ocidBunndleID to ocidAppBunndle's bundleIdentifier

  set strBundleID to ocidBunndleID as text

  log "ブラウザのBunndleIDは：" & strBundleID & "です"

(ocidBrowserDictionary's setObject:(itemAppPathURL) forKey:(strAppName))

end repeat

################################

##ダイアログ

################################

###ダイアログを前面に

tell current application

  set strName to name as text

end tell

####スクリプトメニューから実行したら

if strName is "osascript" then

  tell application "Finder"

    activate

  end tell

else

  tell current application

    activate

  end tell

end if

try

  set listResponse to (choose from list listAppName with title "選んでください" with prompt "URLを開くアプリケーションを選んでください" default items (item 1 of listAppName) OK button name "OK" cancel button name "キャンセル" without multiple selections allowed and empty selection allowed)

on error

  log "エラーしました"

return "エラーしました"

end try

if listResponse is false then

return "キャンセルしました"

end if

set strResponse to (item 1 of listResponse) as text

################################

##アプリケーションのURLを取得する

################################

###アプリケーションのURLを取り出す

set ocidAppPathURL to ocidBrowserDictionary's objectForKey:(strResponse)

log className of ocidAppPathURL as text

log ocidAppPathURL's absoluteString() as text

################################

##デフォルトに設定する

################################

appShardWorkspace's setDefaultApplicationAtURL:(ocidAppPathURL) toOpenURLsWithScheme:("http") completionHandler:(missing value)

appShardWorkspace's setDefaultApplicationAtURL:(ocidAppPathURL) toOpenURLsWithScheme:("https") completionHandler:(missing value)

---

デフォルトのブラウザを変更する(set defaultbrowser)

---

【スクリプトエディタで開く】| クリップボードへコピー

#!/usr/bin/env osascript

----+----1----+----2----+-----3----+----4----+----5----+----6----+----7

(*

com.cocolog-nifty.quicktimer.icefloe

*)

----+----1----+----2----+-----3----+----4----+----5----+----6----+----7

##自分環境がos12なので2.8にしているだけです

use AppleScript version "2.8"

use framework "Foundation"

use framework "AppKit"

use scripting additions

property refMe : a reference to current application

###設定項目ドキュメントのURL

set strScheme to "https://" as text

###NSURL

set ocidScheme to refMe's NSURL's URLWithString:(strScheme)

###ワークスペース初期化

set appShardWorkspace to refMe's NSWorkspace's sharedWorkspace()

###URLタイプのデフォルトアプリケーション

set ocidAppPathURL to appShardWorkspace's URLsForApplicationsToOpenURL:(ocidScheme)

###ダイアログ用のアプリケーション名リスト

set listAppName to {} as list

###アプリケーションのURLを参照させるためのレコード

set ocidBrowserDictionary to refMe's NSMutableDictionary's alloc()'s initWithCapacity:0

####################################################

####httpがスキームとして利用可能なアプリケーション一覧を取得する

####################################################

repeat with itemAppPathURL in ocidAppPathURL

  ###アプリケーションの名前

  set listResponse to (itemAppPathURL's getResourceValue:(reference) forKey:(refMe's NSURLNameKey) |error|:(missing value))

  set strAppName to (item 2 of listResponse) as text

  log "ブラウザの名前は：" & strAppName & "です"

  copy strAppName to end of listAppName

  ####パス

  set aliasAppPath to itemAppPathURL's absoluteURL() as alias

  log "ブラウザのパスは：" & aliasAppPath & "です"

  ####バンドルID取得

  set ocidAppBunndle to (refMe's NSBundle's bundleWithURL:(itemAppPathURL))

  set ocidBunndleID to ocidAppBunndle's bundleIdentifier

  set strBundleID to ocidBunndleID as text

  log "ブラウザのBunndleIDは：" & strBundleID & "です"

(ocidBrowserDictionary's setObject:(itemAppPathURL) forKey:(strAppName))

end repeat

################################

##ダイアログ

################################

###ダイアログを前面に

tell current application

  set strName to name as text

end tell

####スクリプトメニューから実行したら

if strName is "osascript" then

  tell application "Finder"

    activate

  end tell

else

  tell current application

    activate

  end tell

end if

try

  set listResponse to (choose from list listAppName with title "選んでください" with prompt "URLを開くアプリケーションを選んでください" default items (item 1 of listAppName) OK button name "OK" cancel button name "キャンセル" without multiple selections allowed and empty selection allowed)

on error

  log "エラーしました"

return "エラーしました"

end try

if listResponse is false then

return "キャンセルしました"

end if

set strResponse to (item 1 of listResponse) as text

################################

##アプリケーションのURLを取得する

################################

###アプリケーションのURLを取り出す

set ocidAppPathURL to ocidBrowserDictionary's objectForKey:(strResponse)

log className of ocidAppPathURL as text

log ocidAppPathURL as alias

################################

##デフォルトに設定する

################################

appShardWorkspace's setDefaultApplicationAtURL:(ocidAppPathURL) toOpenURLsWithScheme:("http") completionHandler:(missing value)

appShardWorkspace's setDefaultApplicationAtURL:(ocidAppPathURL) toOpenURLsWithScheme:("https") completionHandler:(missing value)

---

[openURLs:withApplicationAtURL:]URLをアプリケーションを選んで開く

openURLs:withApplicationAtURL:configuration:completionHandler:

---

【スクリプトエディタで開く】| クリップボードへコピー

#!/usr/bin/env osascript

----+----1----+----2----+-----3----+----4----+----5----+----6----+----7

#

(*

error number -128

com.cocolog-nifty.quicktimer.icefloe

*)

#

----+----1----+----2----+-----3----+----4----+----5----+----6----+----7

##自分環境がos12なので2.8にしているだけです

use AppleScript version "2.8"

use framework "Foundation"

use framework "AppKit"

use scripting additions

property refMe : a reference to current application

###

set strOpenURL to "https://news.yahoo.co.jp" as text

###開くURLをNSURLに

set ocidOpenURL to refMe's NSURL's URLWithString:(strOpenURL)

###設定項目ドキュメントのURL

set strScheme to "https://" as text

###ワークスペース初期化

set appShardWorkspace to refMe's NSWorkspace's sharedWorkspace()

###NSURL

set ocidLocalHostURL to refMe's NSURL's URLWithString:(strScheme)

###URLタイプのデフォルトアプリケーション

set ocidAppPathURL to appShardWorkspace's URLsForApplicationsToOpenURL:(ocidLocalHostURL)

log className() of ocidAppPathURL as text

###ダイアログ用のアプリケーション名リスト

set listAppName to {} as list

###アプリケーションのURLを参照させるためのレコード

set ocidBrowserDictionary to refMe's NSMutableDictionary's alloc()'s initWithCapacity:0

repeat with itemAppPathURL in ocidAppPathURL

  ###アプリケーションの名前

  set listResponse to (itemAppPathURL's getResourceValue:(reference) forKey:(refMe's NSURLNameKey) |error|:(missing value))

  set strAppName to (item 2 of listResponse) as text

  log "ブラウザの名前は：" & strAppName & "です"

  copy strAppName to end of listAppName

  ####パス

  set aliasAppPath to itemAppPathURL's absoluteURL() as alias

  log "ブラウザのパスは：" & aliasAppPath & "です"

  ####バンドルID取得

  set ocidAppBunndle to (refMe's NSBundle's bundleWithURL:(itemAppPathURL))

  set ocidBunndleID to ocidAppBunndle's bundleIdentifier

  set strBundleID to ocidBunndleID as text

  log "ブラウザのBunndleIDは：" & strBundleID & "です"

(ocidBrowserDictionary's setObject:(itemAppPathURL) forKey:(strAppName))

end repeat

################################

##ダイアログ

################################

try

  set listResponse to (choose from list listAppName with title "選んでください" with prompt "URLを開くアプリケーションを選んでください" default items (item 1 of listAppName) OK button name "OK" cancel button name "キャンセル" without multiple selections allowed and empty selection allowed)

on error

  log "エラーしました"

return "エラーしました"

end try

if listResponse is false then

return "キャンセルしました"

end if

set strResponse to (item 1 of listResponse) as text

################################

##URLを開く

################################

###アプリケーションのURLを取り出す

set ocidAppPathURL to ocidBrowserDictionary's objectForKey:(strResponse)

###オプション

set ocidOpenConfiguration to refMe's NSWorkspaceOpenConfiguration's configuration()

ocidOpenConfiguration's setActivates:(true as boolean)

ocidOpenConfiguration's setHides:(false as boolean)

ocidOpenConfiguration's setRequiresUniversalLinks:(false as boolean)

ocidOpenConfiguration's setCreatesNewApplicationInstance:(true as boolean)

###開く

###openURLsはArrayで渡さないとクラッシュする

appShardWorkspace's openURLs:{ocidOpenURL} withApplicationAtURL:(ocidAppPathURL) configuration:(ocidOpenConfiguration) completionHandler:(missing value)

return

---

[URLForApplicationToOpenURL]デフォルトのブラウザ

---

【スクリプトエディタで開く】| クリップボードへコピー

#!/usr/bin/env osascript

----+----1----+----2----+-----3----+----4----+----5----+----6----+----7

#

(*

error number -128

com.cocolog-nifty.quicktimer.icefloe

*)

#

----+----1----+----2----+-----3----+----4----+----5----+----6----+----7

##自分環境がos12なので2.8にしているだけです

use AppleScript version "2.8"

use framework "Foundation"

use framework "AppKit"

use scripting additions

property refMe : a reference to current application

###設定項目ドキュメントのURL

###(スキームだけでも取得できる)

set strScheme to "slack://"

###ワークスペース初期化

set appShardWorkspace to refMe's NSWorkspace's sharedWorkspace()

###NSURL

set ocidLocalHostURL to refMe's NSURL's URLWithString:(strScheme)

###URLタイプのデフォルトアプリケーション

set ocidAppPathURL to appShardWorkspace's URLForApplicationToOpenURL:(ocidLocalHostURL)

###アプリケーションの名前

set listResponse to (ocidAppPathURL's getResourceValue:(reference) forKey:(refMe's NSURLNameKey) |error|:(missing value))

set strAppName to (item 2 of listResponse) as text

log "デフォルトブラウザの名前は：" & strAppName & "です"

####パス

set aliasAppPath to ocidAppPathURL's absoluteURL() as alias

log "デフォルトブラウザのパスは：" & aliasAppPath & "です"

####バンドルID取得

set ocidAppBunndle to (refMe's NSBundle's bundleWithURL:(ocidAppPathURL))

set ocidBunndleID to ocidAppBunndle's bundleIdentifier

set strBundleID to ocidBunndleID as text

log "デフォルトブラウザのBunndleIDは：" & strBundleID & "です"

---

---

【スクリプトエディタで開く】| クリップボードへコピー

#!/usr/bin/env osascript

----+----1----+----2----+-----3----+----4----+----5----+----6----+----7

#

(*

error number -128

com.cocolog-nifty.quicktimer.icefloe

*)

#

----+----1----+----2----+-----3----+----4----+----5----+----6----+----7

##自分環境がos12なので2.8にしているだけです

use AppleScript version "2.8"

use framework "Foundation"

use framework "AppKit"

use scripting additions

property refMe : a reference to current application

###設定項目ドキュメントのURL

set strScheme to "http://localhost"

###ワークスペース初期化

set appShardWorkspace to refMe's NSWorkspace's sharedWorkspace()

###NSURL

set ocidLocalHostURL to refMe's NSURL's URLWithString:(strScheme)

###URLタイプのデフォルトアプリケーション

set ocidAppPathURL to appShardWorkspace's URLForApplicationToOpenURL:(ocidLocalHostURL)

###アプリケーションの名前

set listResponse to (ocidAppPathURL's getResourceValue:(reference) forKey:(refMe's NSURLNameKey) |error|:(missing value))

set strAppName to (item 2 of listResponse) as text

log "デフォルトブラウザの名前は：" & strAppName & "です"

####パス

set aliasAppPath to ocidAppPathURL's absoluteURL() as alias

log "デフォルトブラウザのパスは：" & aliasAppPath & "です"

####バンドルID取得

set ocidAppBunndle to (refMe's NSBundle's bundleWithURL:(ocidAppPathURL))

set ocidBunndleID to ocidAppBunndle's bundleIdentifier

set strBundleID to ocidBunndleID as text

log "デフォルトブラウザのBunndleIDは：" & strBundleID & "です"

---

[URLForApplicationToOpenContentType]デフォルトのブラウザを調べる

---

【スクリプトエディタで開く】| クリップボードへコピー

#!/usr/bin/env osascript

----+----1----+----2----+-----3----+----4----+----5----+----6----+----7

#

(*

error number -128

com.cocolog-nifty.quicktimer.icefloe

*)

#

----+----1----+----2----+-----3----+----4----+----5----+----6----+----7

##自分環境がos12なので2.8にしているだけです

use AppleScript version "2.8"

use framework "Foundation"

use framework "AppKit"

use scripting additions

property refMe : a reference to current application

###設定項目ドキュメントのコンテンツタイプ

set strContentTypeUTI to "public.html"

###ワークスペース初期化

set appShardWorkspace to refMe's NSWorkspace's sharedWorkspace()

###UTType

set strContentUTType to refMe's UTType's typeWithIdentifier:(strContentTypeUTI)

###コンテンツタイプのデフォルトアプリケーション

set ocidAppPathURL to appShardWorkspace's URLForApplicationToOpenContentType:(strContentUTType)

###アプリケーションの名前

set listResponse to (ocidAppPathURL's getResourceValue:(reference) forKey:(refMe's NSURLNameKey) |error|:(missing value))

set strAppName to (item 2 of listResponse) as text

log "デフォルトブラウザの名前は：" & strAppName & "です"

####パス

set aliasAppPath to ocidAppPathURL's absoluteURL() as alias

log "デフォルトブラウザのパスは：" & aliasAppPath & "です"

####バンドルID取得

set ocidAppBunndle to (refMe's NSBundle's bundleWithURL:(ocidAppPathURL))

set ocidBunndleID to ocidAppBunndle's bundleIdentifier

set strBundleID to ocidBunndleID as text

log "デフォルトブラウザのBunndleIDは：" & strBundleID & "です"

---

[defaultbrowser]デフォルトのブラウザを変更する(AppleScript)

ダウンロード - defaultbrowser.zip

↑
バイナリー入り

---

【スクリプトエディタで開く】| クリップボードへコピー

#!/usr/bin/env osascript

----+----1----+----2----+-----3----+----4----+----5----+----6----+----7

#

(*

ブラウザ切り替え

20200121　エッジに対応

20200123　作り直し…

20230604 作り直し

kerma

defaultbrowser　を含んでいます

https://github.com/kerma/defaultbrowser

ライセンスはMITになります

https://github.com/kerma/defaultbrowser/blob/master/LICENSE

com.cocolog-nifty.quicktimer.icefloe

*)

#

----+----1----+----2----+-----3----+----4----+----5----+----6----+----7

##自分環境がos12なので2.8にしているだけです

use AppleScript version "2.8"

use framework "Foundation"

use scripting additions

property refMe : a reference to current application

tell application "Finder"

  set aliasPathToMe to (path to me) as alias

  set aliasContainerDirPath to (container of aliasPathToMe) as alias

  set aliasBinFilePath to (file "defaultbrowser" of folder "bin" of folder aliasContainerDirPath) as alias

  set strBinFilePath to (POSIX path of aliasBinFilePath) as text

end tell

#####ブラウザ名収集

set strCommandText to ("\"" & strBinFilePath & "\"") as text

try

  set strResultText to (do shell script strCommandText) as text

on error

return "エラーしました"

end try

#####文字列の整形

set strResultText to doReplace(strResultText, "\r", "\t")

set strResultText to doReplace(strResultText, "\n", "\t")

set strResultText to doReplace(strResultText, "*", "")

set strResultText to doReplace(strResultText, " ", "")

set AppleScript's text item delimiters to "\t"

set listChooser to text items of strResultText as list

set AppleScript's text item delimiters to ""

##############################

#####ダイアログを前面に

##############################

tell current application

  set strName to name as text

end tell

####スクリプトメニューから実行したら

if strName is "osascript" then

  tell application "Finder"

    activate

  end tell

else

  tell current application

    activate

  end tell

end if

##############################

#####ダイアログ

##############################

try

  set listResponse to (choose from list listChooser with title "選んでください" with prompt "デフォルトブラウザを選んでください" default items {"safari"} without multiple selections allowed and empty selection allowed)

on error

  log "エラーしました"

return "エラーしました"

end try

if listResponse is false then

return "キャンセルしました"

end if

set strResponse to (item 1 of listResponse) as text

##############################

#####戻り値をデフォルトに設定する

##############################

set strCommandText to ("\"" & strBinFilePath & "\" " & strResponse & "") as text

try

  do shell script strCommandText

on error

return "エラーしました"

end try

return "処理終了"

##############################

#####文字の置き換えのサブルーチン

##############################

to doReplace(theText, orgStr, newstr)

  set oldDelim to AppleScript's text item delimiters

  set AppleScript's text item delimiters to orgStr

  set tmpList to every text item of theText

  set AppleScript's text item delimiters to newstr

  set tmpStr to tmpList as text

  set AppleScript's text item delimiters to oldDelim

return tmpStr

end doReplace

---

[defaultbrowser]デフォルトのブラウザを変更する

kerma defaultbrowser https://github.com/kerma/defaultbrowser

---

---

【スクリプトエディタで開く】| クリップボードへコピー

#!/bin/bash

/path/to/defaultbrowser "safari"

/path/to/defaultbrowser "chrome"

##エッジはUTIと同じedgemac

/path/to/defaultbrowser "edgemac"

/path/to/defaultbrowser "firefox"

---

---

[LSHandlerURLScheme]デフォルトのブラウザ

---

【スクリプトエディタで開く】| クリップボードへコピー

#!/usr/bin/env osascript

----+----1----+----2----+-----3----+----4----+----5----+----6----+----7

#

(*

error number -128

com.cocolog-nifty.quicktimer.icefloe

*)

#

----+----1----+----2----+-----3----+----4----+----5----+----6----+----7

##自分環境がos12なので2.8にしているだけです

use AppleScript version "2.8"

use framework "Foundation"

use framework "AppKit"

use scripting additions

property refMe : a reference to current application

set strFilePath to "~/Library/Preferences/com.apple.LaunchServices/com.apple.launchservices.secure.plist"

set ocidFilePathStr to refMe's NSString's stringWithString:(strFilePath)

set ocidFilePath to ocidFilePathStr's stringByStandardizingPath()

set ocidFilePathURL to (refMe's NSURL's alloc()'s initFileURLWithPath:(ocidFilePath) isDirectory:false)

###値を変更するの可変レコードにPlistを読み込む

set ocidPlistDict to refMe's NSMutableDictionary's dictionaryWithContentsOfURL:(ocidFilePathURL)

###ハンドラーを取得

set ocidLSHandlersArray to ocidPlistDict's objectForKey:"LSHandlers"

###順番にさらう

repeat with itemLSHandlersArray in ocidLSHandlersArray

  set strScheme to (itemLSHandlersArray's valueForKey:"LSHandlerURLScheme") as text

  if strScheme is "http" then

    set strDefScheme to strScheme as text

    set strDefUTI to (itemLSHandlersArray's valueForKey:"LSHandlerRoleAll") as text

  end if

end repeat

if strDefScheme is (missing value) then

  log "デフォルトブラウザは：" & "com.apple.Safari" & "です"

else

  log "デフォルトブラウザは：" & strDefUTI & "です"

end if

---

---

【スクリプトエディタで開く】| クリップボードへコピー

tell application "Finder"

  set aliasPreferencesFolder to (path to preferences folder from user domain) as alias

  set aiasLaunchservicesSecurePlist to (file "com.apple.launchservices.secure.plist" of folder "com.apple.LaunchServices" of folder aliasPreferencesFolder) as alias

  set strPlistPath to (POSIX path of aiasLaunchservicesSecurePlist) as text

end tell

tell application "System Events"

  tell property list file strPlistPath

    set listLSHandlersArray to value of (property list item "LSHandlers")

  end tell

  repeat with itemLSHandlersArray in listLSHandlersArray

    try

      set strScheme to (|LSHandlerURLScheme| of itemLSHandlersArray) as text

    end try

    if strScheme is "http" then

      log strScheme & ":" & (|LSHandlerRoleAll| of itemLSHandlersArray) as text

    else if strScheme is "https" then

      log strScheme & ":" & (|LSHandlerRoleAll| of itemLSHandlersArray) as text

    end if

  end repeat

end tell

---

[NSWorkspace]デフォルトのブラウザ

---

【スクリプトエディタで開く】| クリップボードへコピー

#!/usr/bin/env osascript

----+----1----+----2----+-----3----+----4----+----5----+----6----+----7

#

(*

error number -128

com.cocolog-nifty.quicktimer.icefloe

*)

#

----+----1----+----2----+-----3----+----4----+----5----+----6----+----7

##自分環境がos12なので2.8にしているだけです

use AppleScript version "2.8"

use framework "Foundation"

use framework "AppKit"

use scripting additions

property refMe : a reference to current application

###ワークスペース初期化

set appShardWorkspace to refMe's NSWorkspace's sharedWorkspace()

###URL

set ocidLocalHostURL to refMe's NSURL's URLWithString:"https://"

###URLを開く時のアプリケーションのURL

set ocidAppPathURL to appShardWorkspace's URLForApplicationToOpenURL:(ocidLocalHostURL)

###アプリケーションのURLをバンドル定義して

set ocidAppBundle to refMe's NSBundle's bundleWithURL:(ocidAppPathURL)

###UTIを求める

set ocidUTI to ocidAppBundle's bundleIdentifier()

log ocidUTI as text

if (ocidUTI as text) is "com.apple.Safari" then

  log "デフォルトのブラウザはcom.apple.Safariです"

else if (ocidUTI as text) is "com.google.Chrome" then

  log "デフォルトのブラウザはcom.google.Chrome"

else if (ocidUTI as text) is "org.mozilla.firefox" then

  log "デフォルトのブラウザはorg.mozilla.firefox"

else if (ocidUTI as text) is "com.microsoft.edgemac" then

  log "デフォルトのブラウザはcom.microsoft.edgemac"

end if

---