アップルスクリプトを使ってMac版Kindleで電子書籍の自炊

コメント

1. いく より:

   2021年5月28日 8:03 PM

   いきなりのご連絡申し訳ございません。
   初めまして、いくと申します。
   Macのアンチョコサイトをみたものです。

   「アップルスクリプトを使用し、Kindleページのスクショ記事」を見させていただきました。
   大変わかりやすく、ありがとうございます！！

   1点ご質問があり連絡させていただきました。

   自動スクショはできるのですが、スクショした画像がどこにも見当たらなくどこにあるかがわかりません。。
   指定したフォルダにみも、パソコンの中にも見当たりません。。

   下記にコードを貼り付けますので、もしよければアドバイスの方いただければなと思います。
   大変お忙しいと思いますが、よろしくお願いいたします。

   — ページ数
   set pages to 230
   — 対象アプリ
   set target to “Kindle”
   — 保存フォルダ
   set savepath to “~/pic/image/”
   — 開始ファイル番号
   set spage to 1
   — めくり方向(1=左 2=右)
   set pagedir to 2
   — ページめくりウエイト(秒)
   set pausetime to 2.0
   — 切り抜きサイズ(画面中心から)
   set cropx to 0
   set cropy to 0
   — リサイズ横(切り抜く前のサイズ換算=画面横/切り抜き横*仕上がり横)
   set resizew to 0

   if pagedir = 1 then
   set keychar to (ASCII character 28)
   else
   set keychar to (ASCII character 29)
   end if
   if target is not “” then
   tell application target
   activate
   end tell
   end if
   delay pausetime
   repeat with i from spage to pages
   if i < 10 then
   set dp to "00" & i
   else if i < 100 then
   set dp to "0" & i
   else if i < 1000 then
   set dp to "" & i
   end if
   set spath to (savepath & "p" & dp & ".png")
   do shell script "screencapture " & spath
   if cropx is not 0 and cropy is not 0 then
   if resizew is not 0 then
   do shell script "sips -c " & cropy & " " & cropx & " –resampleWidth " & resizew & " " & spath & " –out " & spath
   else
   do shell script "sips -c " & cropy & " " & cropx & " " & spath & " –out " & spath
   end if
   end if
   tell application "System Events"
   keystroke keychar
   end tell
   delay pausetime
   end repeat
   activate

   返信
2. いく より:

   2021年5月28日 8:36 PM

   何度も申し訳ございません。。

   保存先のフォルダの指定を変更しましたら無事解決いたしました。。
   お騒がせして申し訳ございませんでした。
   今後とも機会がありましたら、よろしくお願いいたします。

   いく

   返信
3. yamafd より:

   2021年5月28日 9:01 PM

   返事のタイミングがずれましたが、質問時に掲載していただいたアップルスクリプトで、こちらでも正常に動作・キャプチャできることが確認できました。

   ご連絡ありがとうございました。

   返信
   • ミッチー より:

     2021年11月11日 9:57 PM

     非常に有益な情報をありがとうございます。
     以下のように設定しましたが、スクショはされるのですが、どこにも画像データが見つからず‥
     どこか間違っているでしょうか？

     if pagedir = 1 then
     set keychar to (ASCII character 28)
     else
     set keychar to (ASCII character 29)
     end if
     if target is not “” then
     tell application target
     activate
     end tell
     end if
     delay pausetime
     repeat with i from spage to pages
     if i < 10 then
     set dp to "00" & i
     else if i < 100 then
     set dp to "0" & i
     end if
     set spath to (savepath & "p" & dp & ".png")
     do shell script "screencapture " & spath
     if cropx is not 0 and cropy is not 0 then
     if resizew is not 0 then
     do shell script "sips -c " & cropy & " " & cropx & " –resampleWidth " & resizew & " " & spath & " –out " & spath
     else
     do shell script "sips -c " & cropy & " " & cropx & " " & spath & " –out " & spath
     end if
     end if
     tell application "System Events"
     keystroke keychar
     end tell
     delay pausetime
     end repeat
     activate

     返信
     • yamafd より:

       2021年11月14日 8:13 AM

       コピペしていただいた部分よりも前にもスクリプトがありますが、そちらはどうなっていますか？
       コピペされていない部分では、targetという変数でファイルの保存場所が指定されています。
       以下、コピペされていない部分です。

       〜 ここから 〜

       — ページ数
       set pages to 2
       — 対象アプリ
       set target to “iBooks”
       — 保存フォルダ
       set savepath to “~/Pictures/”
       — 開始ファイル番号
       set spage to 1
       — めくり方向(1=左 2=右)
       set pagedir to 1
       — ページめくりウエイト(秒)
       set pausetime to 2.0
       — 切り抜きサイズ(画面中心から)
       set cropx to 0
       set cropy to 0
       — リサイズ横(切り抜く前のサイズ換算=画面横/切り抜き横*仕上がり横)
       set resizew to 0

       〜 ここまで 〜

       返信
4. いだ より:

   2022年2月25日 4:42 PM

   質問失礼します。

   上記のプログラムをコピペして動かしてみたのですが、スクショされた画像がデスクトップ画像しか写っておらず困っています。見かけ上はページめくりも上手くいっているのですが対処法が分かる方いらっしゃいますでしょうか？操作環境はBig Sur11.6です。

   返信