スクリプト on qwerty.work

【FileMaker】PowerShell連携で画像回転とExif情報を削除

Wed, 05 Feb 2025 19:47:55 +0900

経緯

画像も簡単に入力ができる商品管理的なデータベースが欲しいという要望があり、ファイルメーカーでサンプル的に作りました。しかし、横向きの画像がどうしても縦になると依頼主はすでに100件以上登録済みで、そのほとんどが縦向きになっており困った様子。

原因はカメラにあるようで、何の機種かわかりませんが恐らくスマホで、横向きで撮影してもEXIF情報に登録された向きが90度横になるみたいで、Windows上の表示は横向きなのですが、ファイルメーカーのオブジェクトフィールにピクチャ挿入してみるとEXIF情報通り90度横に表示されてしまいます。

解決方法として「縮小専用」などのフリーソフトでリサイズするついでにEXIF情報を削除する方法が思いついたので、縮小専用でリサイズした画像を挿入したところ横向きで登録できました。EXIF情報を削除すれば解決できることが分かったのですが、依頼主にその方法を提案しましたが、100以上ある画像を変換して再登録するのは嫌だとのこと…。

他に思いつく解決策はファイルメーカー内で画像操作を行うプラグインを使うことですが、すぐに試すことができなかったり、高額だったり、バージョンが古くて対応していなかったりと現実味に欠けており、どれもピンときませんでした。

目についたプラグイン

プラグイン不要でPowerShellと連携できる方法があった

以下のサイトがヒントだったのですが、Windows上で動いているFileMakerであればスクリプトからPowerShellにコマンドを送信し、PowerShell上で画像の回転、EXIF情報の削除を行うことができることを発見しました。ちなみに、環境はWindows11とFileMaker12です。

https://fm-aid.com/bbs2/viewtopic.php?id=6946 https://fm-aid.com/bbs2/viewtopic.php?id=6946

ただ、上記サイトのまま使用してもPowerShellに値を渡せなかったり、スクリプト内で画像のエクスポート・インポートがうまくいきませんでした。これはそれぞれでパスの書き方が原因で、以下のように改造したらうまくいきました。

スクリプトとソース

スクリプトの流れとしては以下の通りです。

フィールド内の画像をフォルダに書き出す
書き出し先のファイルパスを変数に入れてPowerShellに渡す
PowerShellで該当のパスの画像を右90度回転＆EXIF削除して上書き保存
ファイルメーカーでピクチャを挿入

ファイルメーカーのスクリプト

変数を設定 [$pathExport; 値:Get(テンポラリパス) & 〇〇管理::写真01]
フィールド内容のエクスポート[〇〇管理::写真01];「$pathExport」]
変数を設定 [$pathWin; 値:Replace ( Substitute ( $path ; "/" ; "\\" ) ; 1 ; 1 ; "" )]
Eventを送信[「aevt」;「odoc」;Let([    $ps =     "powershell -windowstyle hidden -Command \"     [void][Reflection.Assembly]::LoadWithPartialName('System.Drawing');
    $PathWin = '{pathWin}';    $image = [System.Drawing.Image]::FromFile($pathWin);
    $image.RotateFlip('Rotate90FlipNone');    foreach ($propertyId in $image.PropertyIdList) {        $image.RemovePropertyItem($propertyId);    }    $image.Save($pathWin, System.Drawing.Imaging.ImageFormat]::Jpeg);    $image.Dispose();    \""]; Substitute($ps; "{pathWin}"; $pathWin))]
スクリプト一時停止/続行[間隔(秒:3)]
変数を設定 [$pathInport; 値:"imagewin:" & $pathExport]
フィールドへ移動 [〇〇管理::写真01]
ピクチャを挿入 [「$pathInport」]

「Eventを送信」の部分で設定する計算式の指定の内容

Let([
    $ps = 
    "powershell -windowstyle hidden -Command \" 
    [void][Reflection.Assembly]::LoadWithPartialName('System.Drawing');
    $PathWin = '{pathWin}';
    $image = [System.Drawing.Image]::FromFile($pathWin);

    $image.RotateFlip('Rotate90FlipNone');
    foreach ($propertyId in $image.PropertyIdList) {
        $image.RemovePropertyItem($propertyId);
    }
    $image.Save($pathWin, [System.Drawing.Imaging.ImageFormat]::Jpeg);
    $image.Dispose();
    \""
]; 
Substitute($ps; "{pathWin}"; $pathWin)
)

画像の回転に関するPowerShellのコマンドは以下のページが参考になりました。

https://qiita.com/miyamiya/items/d1a975fb6618d46eda0c https://qiita.com/miyamiya/items/d1a975fb6618d46eda0c

削除するEXIF情報について

上記のスクリプトでは画像ファイルのEXIF情報をすべて削除します。「向き（Orientation）」に関する情報のみをEXIFから削除することもできます。

EXIF情報を削除する部分

foreach ($propertyId in $image.PropertyIdList) {
    $image.RemovePropertyItem($propertyId);
}

EXIFから向きの情報のみを削除する場合

上記の部分を以下に置き換えればOKです。これでもうまくいきました。

$image.RemovePropertyItem(274)

EXIFに含まれるタグの種類は以下のページが参考になります。向きの情報である「Orientation」のタグ番号は16進数の0x0112であり、10進数に変換すると274になります。

https://www.vieas.com/exif23.html https://www.vieas.com/exif23.html

https://exiftool.org/TagNames/EXIF.html https://exiftool.org/TagNames/EXIF.html

まとめ

ファイルメーカーからPowerShellにコマンドを送信したり、変数の受け渡しができることを初めて知りました。また、PowerShellで画像の編集ができることも知りませんでした。解決不可能と思っていたことが無事に解決できて良かったです。

【PyAutoGUI】PythonでWindowsのマウスとキーボードを操作する

Wed, 11 Jan 2023 00:00:00 +0000

特定のキーを繰り返して押す作業を自動化したい

Kintone（キントーン）のレコードの情報を更新するために、編集、保存、次への作業を最初のレコードから最後のレコードまで繰り返し行うことがありました。これをショートカットキーで行っていたのですが、レコード数が少なければ手動で問題ありませんが、これが数百とか数千以上あるとちょっと大変です。

ちなみに、レコード詳細画面で**「E」は編集モード**、「Ctrl+S」が保存、「J」が次のレコードに移動を行うショートカットキーで、これを繰り返し連打していました。

https://jp.cybozu.help/k/ja/trouble\_shooting/general/shortcuts.html https://jp.cybozu.help/k/ja/trouble\_shooting/general/shortcuts.html

キントーン側でJavascriptを使うやり方もあるかと思うのですが、初心者で無料体験中なので、どうやればいいかわからなかったので、VBScriptとか使ってWindows側からできないかな？と調べていたらPythonとPyAutoGUIというモジュールを使ってできるといったページを見つけたので、試すことにしました。

https://tech-blog.rakus.co.jp/entry/20220613/python#PyAutoGUI%E3%81%AE%E3%82%A4%E3%83%B3%E3%82%B9%E3%83%88%E3%83%BC%E3%83%AB https://tech-blog.rakus.co.jp/entry/20220613/python#PyAutoGUI%E3%81%AE%E3%82%A4%E3%83%B3%E3%82%B9%E3%83%88%E3%83%BC%E3%83%AB

PyAutoGUIをインストール

WindowsにPythonがインストールされていることが前提ですが、その状態でコマンドプロンプトを起動し、PyAutoGUIをコマンドでインストールします。

Pythonのバージョン確認するコマンド

python -v

PyAutoGUIをインストールするコマンド。

pip install pyautogui

pipはPythonのパッケージ管理ツールで、コマンドを実行すると、以下の画面が表示されます。

インストール完了時の表示。

インストールされているPythonのパッケージとバージョンを確認するコマンド

pip list

ここにPyAutoGUIがあればOKです。

Keyboardモジュールも必要

自動化処理を実行中に中断したい場合に備え、特定のキー押下で停止できるようにする場合、キーの押下を検出するためにkeyboardモジュールが必要です。PyAutoGUI同様にコマンドプロンプトからコマンドでインストールします。

pip install keyboard

Python実行ファイルを用意

以下のソースをテキストエディタで拡張子を.pyにして適当な場所に保存します。

import pyautogui
import keyboard
import os

# 一時停止
os.system('PAUSE')

# 処理を実行するたびに1秒待機
pyautogui.PAUSE = 0.5

# 画面のサイズを取得
width, height = pyautogui.size()

# 指定の位置にカーソルを移動
pyautogui.moveTo(100, 400, duration=2)

# 現在のカーソルの位置で左クリックを1回
pyautogui.click(button="left")

# 順番にキーを押す処理を繰り返す
num = 0
end_num = 10

while num < end_num:
    if keyboard.is_pressed("shift"):
        print("SHIFTキーが押されたので中断します。")
        os.system('PAUSE')

    print(str(num+1)+"回目の処理を実行中です。（SHIFTキーで停止）")
    pyautogui.press("e")
    pyautogui.hotkey("ctrl", "s")
    pyautogui.press("j")
    num += 1

    if num == end_num:
        print("処理が終わりました。同じ処理を繰り返しますか？")
        os.system('PAUSE')
        num = 0
        continue

print("処理が終わりました。")

# 一時停止
os.system('PAUSE')

pyファイルを実行

pyファイルを直接実行したい場合

ファイルをダブルクリックします。

コマンドプロンプトから実行したい場合

コマンドプロンプトからpyファイルを呼び出せば、記載されたスクリプトが実行されます。例えば、test.pyというファイルがCドライブ直下にあったとしたら、以下のようになります。

python c:\test.py

処理を中断したいとき

誤った操作になってしまったときは、Pythonの画面でキーボードのPAUSEを押下すると一時停止。Python及びコマンドプロンプトでCtrl+Cを押すと終了させることができます。

Excelなどでも使えそう

今回、Kintone（キントーン）上で繰り返しキー操作を行うためにこのスクリプトを使いましたが、Excel（エクセル）やWindows上で自動で繰り返し行いたい作業がある場合に使えそうです。

【Python】マウスカーソルの座標とキーコードを取得するスクリプト

Wed, 11 Jan 2023 00:00:00 +0000

マウスカーソルの座標が知りたい

Windowsの操作をPythonで自動化するために座標が欲しい。といったときに、マウスカーソルの位置を取得するフリーソフトはありますが、あまりそういうのは入れたくないのですが、Pythonは入っているときに使えるものを見つけました。

https://irohaplat.com/python-mouse-coordinates-and-keycode-sample/ https://irohaplat.com/python-mouse-coordinates-and-keycode-sample/

上記のサイトにあるスクリプトをコピペして実行するだけで簡単にできました。めちゃ便利です。

使用しているライブラリについて

ここで使用されているPythonのライブラリのうち、tkinterとctypesは標準ライブラリなので、インストール不要ですが、pyautoguiはインストールが必要です。

インストールコマンド

コマンドプロンプトから以下のコマンドでインストールできます。

pip install pyautogui

ライブラリを確認するコマンド

pip list

Windows Updateを実行するVBスクリプト「windowsupdate.vbs」

Mon, 11 Nov 2019 23:28:29 +0900

スクリプトからWindows Update

Windows10のアップデートに時間がかかりすぎるので、スクリプトでサクッとアップデートできないかな？と前回「WUA_SearchDownloadInstall.vbs」を使用した方法を見つけてメモしましたが、他にもみつけたのでメモ。これもすべてのWindowsで使えるようです。

https://yamanxworld.blogspot.com/2010/07/windows-scripting-windows-update.html https://yamanxworld.blogspot.com/2010/07/windows-scripting-windows-update.html

https://gist.github.com/the-takeo/71c863327399f8761828dcfe21e59da1 https://gist.github.com/the-takeo/71c863327399f8761828dcfe21e59da1

まずはソースを.vbsで保存

上記のページあるソースをメモ帳などに貼り付け、WindowsUpdate.vbsなど、適当に .vbs を付けて保存します。

コマンドプロンプトからcscriptで呼び出す

上記のWindowsUpdate.vbsを管理者として起動したコマンドプロンプトからcscriptで呼び出して実行します。

WindowsUpdate.vbsをCドライブ直下に保存していた場合

cscript "c:\WindowsUpdate.vbs"

これだけで実行できます。

重要な更新プログラムのみインストールする設定になっている

オプションの更新プログラムなどは除き、重要な更新プログラムのみをインストールする設定になっています。以下のコードはその部分になります。

updateSearcher.Search("IsInstalled=0 and Type='Software' and AutoSelectOnWebSites=1")

パラメーターの意味

  パラメーター
  意味




  IsInstalled=0
  インストールされていない更新プログラムを対象にする


  Type='Software'
  更新プログラムが対象


  AutoSelectOnWebSites=1
  重要な更新プログラムのみを適用

パラメーターの参考サイト

https://docs.microsoft.com/en-us/windows/win32/api/wuapi/nf-wuapi-iupdatesearcher-search https://docs.microsoft.com/en-us/windows/win32/api/wuapi/nf-wuapi-iupdatesearcher-search

その他類似のスクリプトの参考サイト

http://shinke1987.net/?p=276 http://shinke1987.net/?p=276

https://blog.osakana.net/archives/8270 https://blog.osakana.net/archives/8270

https://www.atmarkit.co.jp/ait/articles/1808/06/news012.html https://www.atmarkit.co.jp/ait/articles/1808/06/news012.html

http://qiita.com/Marukaziler/items/54bfbf054a372328be3f http://qiita.com/Marukaziler/items/54bfbf054a372328be3f

Windows Updateを実行するVBスクリプト「WUA_SearchDownloadInstall.vbs」

Mon, 11 Nov 2019 23:14:53 +0900

スクリプトからWindows Update

Windows10のアップデートに時間がかかりすぎるので、スクリプトでサクッとアップデートできないかな？と探してみたらありました。すべてのWindowsで使えるようです。

https://docs.microsoft.com/en-us/previous-versions/windows/desktop/aa387101%28v%3dvs.85%29 https://docs.microsoft.com/en-us/previous-versions/windows/desktop/aa387101%28v%3dvs.85%29

ソースを.vbsで保存

上記のページあるソースをメモ帳などに貼り付け、WUA_SearchDownloadInstall.vbsなど、適当に .vbs を付けて保存します。

そのソース（WUA_SearchDownloadInstall.vbs）

Set updateSession = CreateObject("Microsoft.Update.Session")
updateSession.ClientApplicationID = "MSDN Sample Script"

'Get update title to search for
WScript.Echo "Enter the title of the update: " & _
"(for example, Update for Windows Rights Management client 1.0)"
updateTitle = WScript.StdIn.Readline

WScript.Echo vbCRLF & "Searching for: " & updateTitle & "..."

Set updateSearcher = updateSession.CreateupdateSearcher()

'Search for all software updates, already installed and not installed
Set searchResult = _
updateSearcher.Search("Type='Software'")

Set updateToInstall = CreateObject("Microsoft.Update.UpdateColl")

updateIsApplicable = False

'Cycle through search results to look for the update title
For i = 0 To searchResult.Updates.Count-1
   Set update = searchResult.Updates.Item(i)
   If UCase(update.Title) = UCase(updateTitle) Then
   'Update in list of applicable updates 
   'Determine if it is already installed or not
      If update.IsInstalled = False Then
         WScript.Echo vbCRLF & _
         "Result: Update applicable, not installed."
         updateIsApplicable = True
         updateToInstall.Add(update)
      Else 
         'Update is installed so notify user and quit
         WScript.Echo vbCRLF & _
         "Result: Update applicable, already installed."
         updateIsApplicable = True
         WScript.Quit 
      End If
   End If 
Next

If updateIsApplicable = False Then
   WScript.Echo "Result: Update is not applicable to this machine."
   WScript.Quit
End If

WScript.Echo vbCRLF & "Would you like to install now? (Y/N)"
stdInput = WScript.StdIn.Readline
 
If (strInput = "N" or strInput = "n") Then 
   WScript.Quit
ElseIf  (stdInput = "Y" OR stdInput = "y") Then
   'Download update
   Set downloader = updateSession.CreateUpdateDownloader() 
   downloader.Updates = updateToInstall
   WScript.Echo vbCRLF & "Downloading..."
   Set downloadResult = downloader.Download()
   WScript.Echo "Download Result: " & downloadResult.ResultCode
  
   'Install Update
   Set installer = updateSession.CreateUpdateInstaller()
   WScript.Echo vbCRLF & "Installing..."
   installer.Updates = updateToInstall
   Set installationResult = installer.Install()
  
   'Output the result of the installation
   WScript.Echo "Installation Result: " & _
   installationResult.ResultCode
   WScript.Echo "Reboot Required: " & _
   installationResult.RebootRequired 
End If

コマンドプロンプトからcscriptで呼び出す

上記のWUA_SearchDownloadInstall.vbsを管理者として起動したコマンドプロンプトからcscriptで呼び出して実行します。

WUA_SearchDownloadInstall.vbsをCドライブ直下に保存していた場合

cscript "c:\WUA_SearchDownloadInstall.vbs"

これだけで実行できます。

重要な更新プログラムのみインストールしたいとき

オプションの更新プログラムなどは除き、重要な更新プログラムのみをインストールした場合は。検索対象を指定するupdateSearcher.Search("Type='Software'")の部分を以下に変更します。

updateSearcher.Search("IsInstalled=0 and Type='Software' and AutoSelectOnWebSites=1")

パラメーターの意味

  パラメーター
  意味




  IsInstalled=0
  インストールされていない更新プログラムを対象にする


  Type='Software'
  更新プログラムが対象


  AutoSelectOnWebSites=1
  重要な更新プログラムのみを適用

パラメーターの参考サイト

https://docs.microsoft.com/en-us/windows/win32/api/wuapi/nf-wuapi-iupdatesearcher-search https://docs.microsoft.com/en-us/windows/win32/api/wuapi/nf-wuapi-iupdatesearcher-search

その他類似のスクリプトの参考サイト

http://shinke1987.net/?p=276 http://shinke1987.net/?p=276

https://blog.osakana.net/archives/8270 https://blog.osakana.net/archives/8270

https://www.atmarkit.co.jp/ait/articles/1808/06/news012.html https://www.atmarkit.co.jp/ait/articles/1808/06/news012.html

http://qiita.com/Marukaziler/items/54bfbf054a372328be3f http://qiita.com/Marukaziler/items/54bfbf054a372328be3f

複数のJSとCSSをまとめて非同期で読み込むJavascriptのメモ

Sat, 09 Feb 2019 20:38:57 +0900

WEBページの表示スピードを高速化させるために、複数のJSやCSSを非同期のAsyncで読み込んだり、Deferで読み込んだりするためのソースをメモ。

JSとCSSを遅延読み込みするスクリプト

jQueryに依存するスクリプトなので、実行するには事前にjQueryを読み込んでおく必要があります。JSとCSSを混在させてURLを指定すればOK。これを～の間に書いて使うものっぽいですが、私は``の直前に書いて使っています。どちらがいいかは好みです。

非同期で使用するなら、jQueryと読み込み順がバラバラになるasyncを使うとうまくいかなくなります。jQueryの後に順番通りに読み込むdeferを使う方がよいです。

<script src="//cdn.jsdelivr.net/npm/jquery@3.3.1/dist/jquery.min.js" defer></script>
<script defer>
jQuery(function(){
   //var r=Math.ceil((new Date()*1)*Math.random()); //Zenback用デフォルト
   var r = new Date(); //Zenback用
   var r = ''+r.getFullYear()+('0'+r.getMonth()).slice(-2) ;  //randの値を年月（例 201901）にする
   require_onload( [
       '//cdnjs.cloudflare.com/ajax/libs/SyntaxHighlighter/3.0.83/styles/shCore.min.css',
       '//cdnjs.cloudflare.com/ajax/libs/SyntaxHighlighter/3.0.83/styles/shCoreRDark.min.css',
       '//cdn.jsdelivr.net/npm/@fortawesome/fontawesome-free@5.6.3/css/all.min.css',
       '//cdn.jsdelivr.net/npm/purecss@1.0.0/build/tables-min.css',
       '//cdn.jsdelivr.net/npm/@tehnoskarb/slimbox2@2.0.5/css/slimbox2.css',
       '//cdn.jsdelivr.net/npm/@gerhobbelt/keyscss@1.1.3-6/keys.css',
       '//w.zenback.jp/v1/?base_uri=https%3A//qwerty.work&nsid=1234561665775123456%3A%3A123456466455123456&rand='+r,
       '//pagead2.googlesyndication.com/pagead/js/adsbygoogle.js',
       '//jsoon.digitiminimi.com/js/widgetoon.js'
   ] );
});

function require_onload( arg ) {
   if (is_array(arg)){
       var element = [];
   for(var i=0; i<arg.length; i++){
       if ( arg[i].match(/\.css/) ){ //末尾だけ確認したいときは/\.css$/
           add_child_css(arg[i]);
       }
       else if ( arg[i].match(/\.js|w\.zenback.\jp/) ){ //末尾だけ確認したいときは/\.js$/
           add_child_js(arg[i]);
       }
       else{ alert('check url : ' + arg[i]) }
       }
   }
   else{
       if ( arg.match(/\.css/) ){ //末尾だけ確認したいときは/\.css$/
       add_child_css(arg);
   }
       else if ( arg.match(/\.js|w\.zenback.\jp/) ){//末尾だけ確認したいときは/\.js$/
       add_child_js(arg);
   }
       else{ alert('check url : ' + arg[i]) }
   }
}

function add_child_js(src){
   var element = document.createElement("script");
   element.src = src;
   document.body.appendChild(element);
}

function add_child_css(src){
   var css_element = document.createElement('link');
   css_element.type = 'text/css';
   css_element.rel  = 'stylesheet';
   css_element.href = src;
   document.body.appendChild(css_element);
}

function is_array(obj) {
   return Object.prototype.toString.call(obj) === '[object Array]';
}

参考ページ

https://pgmemo.tokyo/data/archives/517.html https://pgmemo.tokyo/data/archives/517.html

CSSを非同期で読み込むスクリプト例

jQueryに依存していないので、単体で使用できます。下の方のエレメントをいじくればJSやDNS-Prefetchなどに転用可能です。これも～の間に書くか、``の直近や後ろに書くかは好みです。これはjQueryに依存しないので、非同期読込はasync、deferのどちらでも大丈夫です。

<script async>
   window.addEventListener("load",function(){
    const css = [
         "//cdnjs.cloudflare.com/ajax/libs/SyntaxHighlighter/3.0.83/styles/shCore.min.css",	
         "//cdnjs.cloudflare.com/ajax/libs/SyntaxHighlighter/3.0.83/styles/shCoreRDark.min.css",
         "//cdn.jsdelivr.net/npm/@fortawesome/fontawesome-free@5.6.3/css/all.min.css",
         "//cdn.jsdelivr.net/npm/purecss@1.0.0/build/tables-min.css",
         "//cdn.jsdelivr.net/npm/@tehnoskarb/slimbox2@2.0.5/css/slimbox2.css",
         "//cdn.jsdelivr.net/npm/@gerhobbelt/keyscss@1.1.3-6/keys.css"
 ];
<br>
 for(i in css){
   let html = document.createElement("link");
   html.rel = "stylesheet";
   html.href = css[i];
   html.async = true;
   document.head.appendChild(html);
   }
});
</script>

DNS-Prefetchを非同期で行うスクリプト例

JSやCSSから横道逸れますが、半角スペースで接続先を指定する例。DNS-Prefetchを非同期で実行するスクリプトですが、エレメントの部分を入れ替えれば、CSSやJSにも使えそうです。jQueryなしで使えます。

<script>
(function(c){var d="//jsoon.digitiminimi.com/js/widgetoon.js //w.zenback.jp/_p/js/jquery.min.js //pagead2.googlesyndication.com/pagead/js/adsbygoogle.js /include/GoogleAnalytics.js".split(" "),a,b,e=c.createDocumentFragment();for(a=d.length-1;0<=a;a--)b=c.createElement("link"),b.setAttribute("rel","prefetch"),b.setAttribute("href",d[a]),b.setAttribute("as","script"),e.appendChild(b);c.getElementsByTagName("head")[0].appendChild(e)
})(document);
</script>

その他参考ページ

https://webkaru.net/jquery-plugin/lazy-script/ https://webkaru.net/jquery-plugin/lazy-script/

https://firstlayout.net/load-css-asynchronously-with-loadcss/ https://firstlayout.net/load-css-asynchronously-with-loadcss/

CSS限定！もっとシンプルな方法

スタイルシート（CSS）限定ですが、Javascript無しのもっとシンプルな方法で非同期読み込みできる方法を見つけましたので参考にメモ。（2020/05/18追記）

https://curio-shiki.com/blog/webpage/what-we-do-for-speed https://curio-shiki.com/blog/webpage/what-we-do-for-speed

https://qiita.com/rana_kualu/items/95a7adf8420ea2b9f657 https://qiita.com/rana_kualu/items/95a7adf8420ea2b9f657

上記の参考ページにあったソース例

<link rel="preload" href="/path/to/my.css" as="style">
<link rel="stylesheet" href="/path/to/my.css" media="print" onload="this.media='all'">

なぜコレが非同期なのかわかりませんし、効果があるのかも謎ですが、今度ためしてみようと思います。

以下にもCSS非同期読み込みについてまとめています。( 2021/12/13追記）

CSSを非同期で読み込むいろいろな方法 - QWERTY.WORK

自作SNSボタンでサイトを高速化したいときに役に立ちそうなスクリプト

Tue, 25 Dec 2018 20:46:56 +0900

標準のSNSボタンは表示に時間がかかりすぎるので、自作で高速表示ができそうなスクリプトを紹介しているページを発見したのでメモ。

https://mae.chab.in/archives/2915 https://mae.chab.in/archives/2915

https://wp.miisa.pink/2018/06/webdesign/share-counter-button/ https://wp.miisa.pink/2018/06/webdesign/share-counter-button/

Wordpressだと「SNS Count Cache」といったプラグインがあるみたいですが、MovableTypeやその他のページの場合が自力で作成するしかありません。これを参考にいじくってみたいと思います。

試しに作ってみたテストページ

https://qwerty.work/test/cbsharecount/cbsharecount-js-test.php https://qwerty.work/test/cbsharecount/cbsharecount-js-test.php

「cb-sharecount-js」で注意すること

HTTPSのサーバーでは jquery.cbsharecount.js に含まれている「はてぶ」のURLが非HTTPのURLになってるため、カウント数が表示されませんでした。

57行目あたりにある「http://api.b.st-hatena.com/entry.count」を、SSL用の「https://b.hatena.ne.jp/entry.count」に変更する必要があります。

OFFICEのプロダクトキーを確認するためのコマンドとスクリプト

Sat, 16 Sep 2017 12:58:47 +0900

ライセンス認証済みのMicrosoft Office 2013のエクセルが調子悪いと相談があり、**[コントロールパネル]の[プログラムと機能]より[変更]ボタンを押して[修復]**を行ったところ、ライセンス認証を求められました。

ところが、PCの持ち主がプロダクトキー記載のカードがどこにいったかわからいというよくある困った状況。そこでいくつかプロダクトキーを調べる方法がいくつかあったのでメモ。

コマンドプロンプトからヒントを得る

以下のコマンドでプロダクトキーの一部（一番最後の5桁）を見つけることができます。古いバージョンのオフィスであればこの一部からレジストリを検索してプロダクトキーを見つけることができるそうです。

cscript.exe slmgr.vbs /dlv all

cscript "%programfiles%\Microsoft Office\Office15\ospp.vbs" /dstatus

コマンドプロンプトは管理者として起動しないとエラーになります。

使えそうなフリーソフトの参考ページ

試していないけど使えそうなので一応メモ。

https://news.mynavi.jp/article/20150920-productkey/ https://news.mynavi.jp/article/20150920-productkey/

http://80yamaru.com/office2013-fukano/ http://80yamaru.com/office2013-fukano/

http://freesoft-100.com/review/licensecrawler.html http://freesoft-100.com/review/licensecrawler.html

DigitalProductIDをデコードするスクリプト

Office 2013の場合、暗号化されたプロダクトキーが以下のレジストリに格納されています。

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Office\15.0\Registration{90150000-0011-0000-1000-0000000FF1CE}
DigitalProductID（REB_BINARY）

ちなみにWindowsの場合は以下に格納されています。

HKEY_LOCAL_MACHINE\SOFTWARE\Microsoft\Windows NT\CurrentVersion
DigitalProductID（REB_BINARY）
DigitalProductID4（REB_BINARY）

ここの値のデータをデコードすればプロダクトキーがわかります。そのデコードを行うVBスクリプトが以下ページにあります。

https://gist.github.com/gcch/692a5166c9c0fa47f08b0c50a06b2872 https://gist.github.com/gcch/692a5166c9c0fa47f08b0c50a06b2872

使えなかったけど以下も参考に

http://takuya-1st.hatenablog.jp/entry/20090524/1243185605 http://takuya-1st.hatenablog.jp/entry/20090524/1243185605

試したらちゃんと動きましたが2013のキーは違うものが出力されました。Office 2013/2016はオフセット値を変えないといけないかもしれませんが、その数値がわかりません。

DigitalProductIDをデコードするサイト

http://www.prime-expert.com/articles/a10/recover-windows-product-key-from-registry.php http://www.prime-expert.com/articles/a10/recover-windows-product-key-from-registry.php

http://www.ed.scherer.name/Tools/MicrosoftDigitalProductIDDecoder.html http://www.ed.scherer.name/Tools/MicrosoftDigitalProductIDDecoder.html

Windows Updateを自動で再起動とアップデートを繰り返すバッチファイルを作る

Wed, 17 May 2017 19:31:42 +0900

Windows Updateと再起動の繰り返しを自動化したい

Windowsパソコンのリカバリやクリーンインストールしたときに数回に渡りWindows Updateと再起動を繰り返し手間と時間がかかります。そのWindows Updateの手間を減らすため、夜間にフルオートでWindows Updateと再起動を繰り返し実行させ、朝にはすべての更新ファイルの適用が終わっているみたいなことができないかな？と方法を探していたらPowerShellを使った方法を見つけたのでメモ。

PowerShellからWindows Updateを行うスクリプト

以下のページからダウンロードしたAutoWindowsUpdate.ps1を使い、Windows7の環境で試したところ、スクリプトからアップデートできました。

http://www.vwnet.jp/Windows/PowerShell/FullAutoWU.htm http://www.vwnet.jp/Windows/PowerShell/FullAutoWU.htm

AutoWindowsUpdate.ps1はC:\WindowsUpdateに保存して使用します。

Windows 7/Windows Embedded Standerd 7/Windows 10で試して使えました。PowerShellが使えればWindows 8/8.1、Windows Server 2008 R2やWindows Server 2012/2016でも使えるのではないかと思います。

アップデートのフルオート化

このスクリプト単体（AutoWindowsUpdate.ps1）で自動ログオンやWindows Updateと再起動を繰り返し行うようにできるらしいでのですが、試したところうまくいきませんでした。よって、完全なフルオート化するために以下の事を行います。

管理者ユーザーの自動ログオンを設定
スタートアップにスクリプトを起動するバッチファイルを登録
バッチファイルからAutoWindowsUpdate.ps1を実行

管理者ユーザーの自動ログオンを設定する方法

スクリプトからWindows Updateを行って再起動がかかった際、Windowsログオンのパスワード入力を求められる環境の場合、そこで自動化が止まってしまいます。そこで、予めパスワードを求められないように自動ログオンできるようにしておきます。ユーザー権限でAutoWindowsUpdate.ps1を実行するとエラーになるので、自動ログオンするユーザーは管理者権限のあるユーザーを使用します。

Windows+Rを押してcontrol userpasswords2またはnetplwizと入力し、管理者権限があるユーザーで自動ログオンするように設定します。設定方法は以下の記事を参考にしてください。ほとんどのWindowsで共通の方法です。

- [Windows10で起動時のパスワード入力をスキップ（省略）して自動サインイン（ログオン）する方法 ](https://qwerty.work/blog/2015/09/windows10-password-skip.php)

Windows Updateがすべて終わったらパスワードを求めるように逆の作業を行い、パスワードが求められるよう元に戻します。

スクリプト起動させるためのバッチファイルをスタートアップに登録

Windows Updateを実行するPowerShellのスクリプトAutoWindowsUpdate.ps1を起動するためのバッチファイルをスタートアップに登録します。Windows Updateと再起動を無限ループで行う方法なので、全てのアップデートが終わり、自動アップデートが不要になったらスタートアップから削除してください。

起動用バッチファイルのソース例（start.bat）

C:\WindowsUpdateに保存されたAutoWindowsUpdate.ps1を起動するためのバッチファイルをスタートアップに登録します。以下のソースをメモ帳に貼り付け、これをstart.batとか名前を付けて保存し、スタートアップに登録します。

powershell Set-ExecutionPolicy RemoteSigned
powershell "C:\WindowsUpdate\AutoWindowsUpdate.ps1 Full"
powershell Set-ExecutionPolicy Restricted
pause

重要な更新プログラムのみアップデートしたいときはファイルパスの後ろのFullの文字を削除するかMinimumに変更してください。

ExecutionPolicyについて

PowerShellのスクリプトファイル（拡張子「.ps1」）を実行するには、ExecutionPolicyがRestrictedになっているとエラーになります。そのため1行目をSet-ExecutionPolicy RemoteSignedに変更し、スクリプト終了後はSet-ExecutionPolicy Restrictedにして元に戻します。

現在のExecutionPolicyの状態を調べるコマンド

Get-ExecutionPolicy

Set-ExecutionPolicyのコマンドについての参考

Set-ExecutionPolicy コマンドレットの使用

AutoWindowsUpdate.ps1を実行

AutoWindowsUpdate.ps1を実行すれば更新ファイルの確認→ダウンロード＆インストール→再起動をしてくれます。これをスタートアップに登録したバッチファイルから実行し、無限ループで行います。

参考のソース（AutoWindowsUpdate.ps1）

以下をメモ帳でAutoWindowsUpdate.ps1という名前を付けてC:\WindowsUpdateに保存します。

http://www.vwnet.jp/Windows/PowerShell/ps1/autowindowsupdate.txt

アップデート開始の様子 *

更新ファイルのダウンロードとインストール中の様子

すべてのアップデートが終了したときのログすべての更新ファイルがインストールされたら再起動せずにコマンドプロンプトの画面が消え、ログ（C:\WU_Log）には=-=-=-=-=- Windows Update finished -=-=-=-=-=と表示されています。

しかし、=-=-=-=-=- Windows Update finished -=-=-=-=-=となっていてもインストール失敗し、まだ更新できるファイルが残っている場合があります。その際は手動でstart.batを管理者として実行し、スクリプトを再開してください。こういったことがあるので、全自動というよりは半自動ですね。スクリプトの改善の余地がありそうです。

Windows7の場合、古いWindows Update Clientが入っているとWindows Updateの時間がかかるので、あらかじめ新しいWindows Updateクライアントを入れておくことおすすめします。最新のWindowsクライアントは毎月配信されるロールアッププログラムに含まれています。

2019年10月第2回目 Windows Update 月例ロールアップの一覧とダウンロードリンク（Windows10/8.1/7）

AutoWindowsUpdate.ps1を単体で実行したい場合

AutoWindowsUpdate.ps1を右クリックして「PowerShellを実行」から実行してもユーザー権限による実行となるためか、スクリプトが開始されませんので、PowerShellからAutoWindowsUpdate.ps1を実行する場合は、PowerShellを管理者で実行してから、AutoWindowsUpdate.ps1のパス入力して実行します。

予備のソースファイル

参考にしたサイトが見れなくなったら困るので、今回の使用したAutoWindowsUpdate.ps1とstrat.batは以下よりダウンロードできるようにしておきます。

*WindowsUpdate.zip

その他参考

https://blog.osakana.net/archives/8270 https://blog.osakana.net/archives/8270

http://yamanxworld.blogspot.jp/2010/07/windows-scripting-windows-update_05.html http://yamanxworld.blogspot.jp/2010/07/windows-scripting-windows-update_05.html

https://gist.github.com/joefitzgerald/8203265 https://gist.github.com/joefitzgerald/8203265

http://qiita.com/Marukaziler/items/54bfbf054a372328be3f http://qiita.com/Marukaziler/items/54bfbf054a372328be3f

LANの空きIPアドレスを一斉に調べるコマンドとPowerShellスクリプト例

Sun, 27 Nov 2016 09:29:02 +0900

固定IPを使用するLANの中で、今どのIPアドレスが空いているか適当にpingを打ってみることがありますが、連続して応答が返ってくるとちょっと疲れます。1～254まで全部手動で行うのは面倒なので、コマンドの例を探したらありましたのでメモ。

コマンドプロンプトの例

例えば、192.168.0.2～192.168.0.10を調べる場合

指定した範囲でpingとarpを連続で打つコマンドです。

for /l %i in (2,1,10) do ping -w 1 -n 1 192.168.0.%i && arp -a 192.168.0.%i

最初の**（2,1,10）は変数「%i」**を2から10まで1ずつ加算していくことを表しています。

結果のログをテキストファイルで残す場合

コマンドの後ろに**» result.txt**など任意のファイル名を記載します。

for /l %i in (2,1,254) do ping -w 1 -n 1 192.168.0.%i && arp -a 192.168.0.%i >> result.txt

上記のようにファイル名のみ指定すると、ファイルの保存先はコマンドを実行したディレクトリに保存されます。(ほとんどの場合、ユーザーフォルダ）

分かりやすい場所に保存する場合はd:\result.txtなど、任意のディレクトリに変更します。

バッチファイルを作る場合

このコマンドをバッチファイルにする場合は、3カ所ある**「%i」を「%%i」にして「.bat」**の拡張子を付けた名前で保存します。

for /l %%i in (2,1,254) do ping -w 1 -n 1 192.168.0.%%i && arp -a 192.168.0.%%i >> result.txt

結果について

応答があったもののみがテキストファイルに出力されていますので、ここにないIPアドレスが空いているということになりますが、たまたま電源が入っていない機器も含まれるので注意が必要です。

PowerShellのスクリプトの例

こちらはPowerShellで192.168.0.1～192.168.0.255まで連続でpingを送信するスクリプトです。以下のスクリプトをPowerShellに貼り付けるか、メモ帳で**「.ps1」**という拡張子を付けて保存します。

$date = Get-Date -Format _yyyy_MMdd_HHmmss
for ($i = 1; $i -lt 255; $i++) {
        ping 192.168.0.$i >> pinglog$date.txt
}

実行すると、実行結果の入ったテキストファイルが**「pinglog_2016_1127_092028.txt」**のようなファイル名で実行ディレクトリに保存されます。

PowerShellでテキストでURL一覧を読込み一斉にpingテストする

Sat, 26 Nov 2016 23:09:39 +0900

WordPressやMovableTypeで使っているブログ更新時のPING送信先が活きているか、PowerShellで簡単に調べるスクリプトを見つけたのでメモ。

ping送信先のテキストファイルを用意

例えば、以下のテキストをpinglist.txtという名前を付けて保存

google.co.jp
facebook.com
yahoo.co.jp

スクリプト作成

以下のスクリプトをメモ帳に貼り付け、先ほどのpinglist.txtと同じ階層にping.ps1といった感じで適当に**.ps1**の拡張子を付けて保存します。

echo pingを実行しています。しばらくお待ちください。

$date = Get-Date -Format _yyyy_MMdd_HHmmss
$target = Get-Content pinglist.txt

foreach ($item in $target) {
  ping $item >> pinglog$date.txt
  }

echo 結果を「pinglog$date.txt」に保存しました。

pause

スクリプト実行

スクリプトファイル（ping.ps1）を右クリックして「PowerShellで実行」をクリックするとスクリプトが実行されます。

　↓

実行結果

実行結果は以下のような内容でスクリプトファイル（ping.ps1）と同じ階層に**「pinglog_2016_1126_225217.txt」**といったテキストファイルが作成されているので開いて確認できます。

これで、今後の確認作業が楽になりそうです。

SQLみたいにFacebookの情報を取得できるFQLについてのメモ。

Tue, 29 Jan 2013 15:32:34 +0900

役にたちそうなので、とりあえずメモ。

Facebook Query Language (FQL) リファレンスで取得できる情報の種類を確認できます。

Graph APIエクスプローラでリクエストに対して、取得できる実際のデータを見ることができます。タブを切り替えればFQL文を実行してみることもできます。

スクリプト on qwerty.work

【FileMaker】PowerShell連携で画像回転とExif情報を削除

経緯

目についたプラグイン

プラグイン不要でPowerShellと連携できる方法があった

スクリプトとソース

ファイルメーカーのスクリプト

削除するEXIF情報について

EXIF情報を削除する部分

EXIFから向きの情報のみを削除する場合

まとめ

【PyAutoGUI】PythonでWindowsのマウスとキーボードを操作する

特定のキーを繰り返して押す作業を自動化したい

PyAutoGUIをインストール

Keyboardモジュールも必要

Python実行ファイルを用意

pyファイルを実行

pyファイルを直接実行したい場合

コマンドプロンプトから実行したい場合

処理を中断したいとき

Excelなどでも使えそう

【Python】マウスカーソルの座標とキーコードを取得するスクリプト

マウスカーソルの座標が知りたい

使用しているライブラリについて

インストールコマンド

ライブラリを確認するコマンド

Windows Updateを実行するVBスクリプト「windowsupdate.vbs」

スクリプトからWindows Update

まずはソースを.vbsで保存

コマンドプロンプトからcscriptで呼び出す

WindowsUpdate.vbsをCドライブ直下に保存していた場合

重要な更新プログラムのみインストールする設定になっている

パラメーターの意味

その他類似のスクリプトの参考サイト

Windows Updateを実行するVBスクリプト「WUA_SearchDownloadInstall.vbs」

スクリプトからWindows Update

ソースを.vbsで保存

そのソース（WUA_SearchDownloadInstall.vbs）

コマンドプロンプトからcscriptで呼び出す

WUA_SearchDownloadInstall.vbsをCドライブ直下に保存していた場合

重要な更新プログラムのみインストールしたいとき

パラメーターの意味

その他類似のスクリプトの参考サイト

複数のJSとCSSをまとめて非同期で読み込むJavascriptのメモ

JSとCSSを遅延読み込みするスクリプト

参考ページ

CSSを非同期で読み込むスクリプト例

参考ページ

DeferとAsyncを指定して非同期で読み込むスクリプト

参考ページ

DNS-Prefetchを非同期で行うスクリプト例

その他参考ページ

CSS限定！もっとシンプルな方法

上記の参考ページにあったソース例

自作SNSボタンでサイトを高速化したいときに役に立ちそうなスクリプト

試しに作ってみたテストページ

「cb-sharecount-js」で注意すること

OFFICEのプロダクトキーを確認するためのコマンドとスクリプト

コマンドプロンプトからヒントを得る

使えそうなフリーソフトの参考ページ

DigitalProductIDをデコードするスクリプト

DigitalProductIDをデコードするサイト

Windows Updateを自動で再起動とアップデートを繰り返すバッチファイルを作る

Windows Updateと再起動の繰り返しを自動化したい

PowerShellからWindows Updateを行うスクリプト

アップデートのフルオート化

管理者ユーザーの自動ログオンを設定する方法

スクリプト起動させるためのバッチファイルをスタートアップに登録

起動用バッチファイルのソース例（start.bat）

ExecutionPolicyについて

AutoWindowsUpdate.ps1を実行

参考のソース（AutoWindowsUpdate.ps1）

AutoWindowsUpdate.ps1を単体で実行したい場合

予備のソースファイル

その他参考

LANの空きIPアドレスを一斉に調べるコマンドとPowerShellスクリプト例

コマンドプロンプトの例

例えば、192.168.0.2～192.168.0.10を調べる場合

結果のログをテキストファイルで残す場合

バッチファイルを作る場合