Excel 秒数を分：秒に変換

・秒単位で入力された値を、一日の秒数（86400）で割り、シリアル値に変換する。
・セルの表示形式をmm:ssにする

ネタ元

• https://all-excel.com/fmt_05.html

YouTubeの動画にチャプターを追加して区切りや目次を設定

動画の詳細に

00:00 オープニング
01:15 ほげほげ
03:15 ほげほげー

といった感じで書いておくとチャプターになる。

ネタ元

• https://unicorn-blog.jp/archives/5611

inno setup で強制終了

[Code]
procedure TaskKill(FileName: String);
var
  ResultCode: Integer;
begin
  Exec(ExpandConstant('taskkill.exe'), '/f /im ' + FileName , '', SW_HIDE,
  ewWaitUntilTerminated, ResultCode);
end;


...


TaskKill('excel.exe');

ネタ元

• https://alwaysemmyhope.com/ja/inno-setup/305833-kill-process-before-reinstall-using-ldquotaskkill-f-imrdquo-in-inno-setup-inno-setup-taskkill.html

inno setup でYes/Noダイアログ

  // Ask the user a Yes/No question
  if MsgBox('Are you sure?', mbConfirmation, MB_YESNO) = IDYES then
  begin
    // user clicked Yes
  end else begin
    // user clicked No
  end;

ネタ元

• https://jrsoftware.org/ishelp/index.php?topic=isxfunc_msgbox

JSON でのエスケープ処理

エスケープが必要な文字 / エスケープでの文字

エスケープ表記	元の文字	説明
\"	"	ダブルクォーテーション
\\	\	バックスラッシュ
\/	/	スラッシュ
\b		バックスペース
\f		改ページ
\n		キャリジリターン(改行)
\r		ラインフィード
\t		タブ
\uXXXX		4桁の16進数で表記されたUnicode文字

ネタ元

• https://www.ipentec.com/document/json-character-escape

EFIシステムパーティションを削除する

ディスク管理からは消せないのでdiskpartコマンドを利用する

• 1.Win+Rキーを同時に押して、「diskpart」を入力
• 2.以下のコマンドでEFIシステムパーティションのIDを変更(ディスクやパーティションは自身の環境に合わせてね)
  • list disk (PCにマウントされているディスクを表示する )
  • sel disk 0 (ディスクを選択する、ここで0が選択済みのディスクのディスクレター)
  • list partition (選択したディスクにあるパーティションを表示する.)
  • sel partition 1 (パーティションを選択する、ここで1がディスクにあるEFIシステムパーティションのドライブ文字)
  • SET ID=ebd0a0a2-b9e5-4433-87c0-68b6b72699c7

ここまでやればディスク管理からパーティションを削除できる

ネタ元

• https://jp.easeus.com/partition-manager/how-to-delete-efi-system-partition.html

inno setup ファイルのコピーに関する指定

Flags: OnlyIfDoesntExist; … ファイルがあったら上書きしない。
Flags: ConfirmOverWrite; … 上書きするかどうか聞いてくる
Flags: IgnoreVersion; … 強制上書きする。

ネタ元

• https://wiki.gz-labs.net/index.php/Innosetup

メモ：エックスサーバー激速、さくら激重

プランにもよるんでしょうけど、ただのファイルのアップロード/ダウンロードだけでも
数倍の差がある。体感速度だとなおある。

ぜんぶXServerに引っ越したい気分だ。

ExcelVBAでUserAgent指定型 URLDownloadToFile

そろそろIEだと弾かれるサイトが増えてきたので必要だ。

Function myURLDownloadToFile(aUrl As String, aFilepath As String) As Boolean

    Dim oStream As Object
    Dim myURL As String
    
    myURL = aUrl
    
    Dim WinHttpReq As Object
    Set WinHttpReq = CreateObject("WinHttp.WinHttpRequest.5.1")
    WinHttpReq.Option(4) = 13056 ' Ignore SSL Errors
    
    WinHttpReq.Open "GET", myURL, False
    
    'Grab Cert from Windows Cert Store
    'WinHttpReq.SetClientCertificate "CURRENT_USER\Root\CERTI"
    
    WinHttpReq.setRequestHeader "User-Agent", "Mozilla/5.0 (Windows NT 10.0; Win64; x64) AppleWebKit/537.36 (KHTML, like Gecko) Chrome/87.0.4280.101 Safari/537.36"
    WinHttpReq.send
    
    myURL = WinHttpReq.responseBody
    
    If WinHttpReq.Status = 200 Then
        Set oStream = CreateObject("ADODB.Stream")
        oStream.Open
        oStream.Type = 1
        oStream.Write WinHttpReq.responseBody
        oStream.SaveToFile aFilepath, 2
        oStream.Close
    Else
        myURLDownloadToFile = False
        Exit Function
    End If

    myURLDownloadToFile = True

End Function

ネタ元

• https://stackoverflow.com/questions/34923409/excel-vba-urldownloadtofile-error-for-httpsresource
• https://github.com/Masonjar13/AHK-Library/blob/master/Lib/urlDownloadToFile.ahk

webview2 vc++ sampleが動かないなら、Historyから過去のコード持ってくるとよい

github
https://github.com/MicrosoftEdge/WebView2Samples

2020/12/28現在 最新のサンプルだと
WebView2 SDK 1.0.721-prerelease用
になってるが、これだとC#用のコードは動くがC++用コードが死ぬ。

Histroyから
Commits on Oct 19, 2020の＜＞をクリックしてこの時点のコードをダウンロード。

すると無事動く。

っていうかWebview2 SDKのバージョン変わるとこんな簡単に動かなくなるのかな。
お客さん向けに使うのはまだ怖いぞこれ。