C#で排他オブジェクトのロック取得を待機しない方法

ロックを取得できなかった場合に待機せず、即タイムアウトにしたい場合の方法

try
{
    Monitor.TryEnter(lockObject, 0, ref acquiredLock);
    if (acquiredLock)
    {
        // ロック取得に成功したときの処理
    }
    else
    {
        // ロック取得に失敗したときの処理
    }
}
finally
{
    if (acquiredLock) Monitor.Exit(lockObject);
}

VirtualBoxにWindows10をインストール

windows10のisoファイルダウンロードしてVVirtualBoxにインストールする。
PCからisoダウンロードするにはコツが必要。
 
HDDの容量50GでOKって書いてあったけど500Gにしないとエラーになった。

途中で謎のエラーがでることもあったが何回か試したら動いた。

VB.netのIE操作でキャッシュクリア

'インターネット一時ファイルの削除   
Process.Start("RunDll32", "InetCpl.cpl,ClearMyTracksByProcess 8")
'パスワードの削除 
Process.Start("RunDll32", "InetCpl.cpl,ClearMyTracksByProcess 32")
'フォームデータの削除 
Process.Start("RunDll32", "InetCpl.cpl,ClearMyTracksByProcess 16")
'Cookieの削除 
Process.Start("RunDll32", "InetCpl.cpl,ClearMyTracksByProcess 2")
'閲覧履歴の削除 
Process.Start("RunDll32", "InetCpl.cpl,ClearMyTracksByProcess 1")
 
'上記のすべてを削除 
Process.Start("RunDll32", "InetCpl.cpl,ClearMyTracksByProcess 255")
 
'上記すべてと、アドオンによるファイル等も削除 
Process.Start("RunDll32", "InetCpl.cpl,ClearMyTracksByProcess 4351")

adsenseの「ご迷惑をおかけいたしまして申し訳ございません。現在、お客様からのリクエストを処理することができません。Google のエンジニアが問題解決に取り組んでおりますので、しばらくお待ちください。」の自分なりの解決方法

Chromeの拡張機能を根こそぎOFFにしてみた。
AdBlockが相性悪かった感あります。

visual studioで署名に失敗する場合の対策

コマンドラインでやれとのこと

代わりに、Visual Studioコマンドプロンプトからsigntoolを使用してください。 
signtoolがパスワードが無効であると主張することもありますが、
通常は2、3回試行すると機能し始めます。

signtool.exe sign /fd sha256 /td sha256 /tr http://timestamp.digicert.com /f "YOUR.pfx" /p "YOURPASSWORD" "YOUR.exe"

ExcelVBAで高速化のための色々ON/OFF

Sub Focus(aSheet As Worksheet, aFlag As Boolean)

    Application.ScreenUpdating = aFlag
    Application.DisplayStatusBar = aFlag
    Application.Calculation = aFlag
    aSheet.EnableCalculation = aFlag
    Application.EnableEvents = aFlag
    aSheet.DisplayPageBreaks = aFlag
    Dim i
    For i = 0 To aSheet.PivotTables.Count - 1
        aSheet.PivotTables(i).ManualUpdate = aFlag
    Next
    Application.PrintCommunication = aFlag

End Sub

ReDocの使い方

redoc spec-urlのとこに表示したいjson指定するだけでOK。
超簡単。


redoc.html

<!DOCTYPE html>
<html>
  <head>
    <title>ReDoc</title>
    <meta charset="utf-8"/>
    <meta name="viewport" content="width=device-width, initial-scale=1">
  </head>
  <body>
    <redoc spec-url="http://petstore.swagger.io/v2/swagger.json"></redoc>
    <script src="https://rebilly.github.io/ReDoc/releases/latest/redoc.min.js"></script>
  </body>
</html>

ExcelVBAでワークシートからブック名を取得する

Sub シート名がわかっているときにブック名を取得する()
 Const FIND_SH = "顧客マスター"
 Dim bk As Workbook
 Dim sh As Worksheet
 For Each bk in Workbooks
  For Each sh in bk.Worksheets
   If sh.Name = FIND_SH Then
     MsgBox sh.Parent.Name
     Exit Sub
   End If
  Next sh
 Next bk
 MsgBox "「" & FIND_SH & "」シートは存在しません。"
End Sub