2021-01-06

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

2021-01-04

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

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

ネタ元

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

2021-01-02

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

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

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

2021-01-02

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