Excel セルの右クリックメニューやサブメニューにマクロを登録／削除する

ExcelVBA 
With CommandBars("Cell").Controls.Add(）

　.Caption="｛メニューに表示する名前｝"

　.OnAction="｛実行するマクロのメソッド名｝"

End With

先頭に追加するには

Add(Before:=1)

と書く

区切り線入れるならこう書く。この例では3番めの上に区切り。

Application.CommandBars("Cell").Controls(3).BeginGroup = True

ネタ元

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

C#

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

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

ネタ元

VirtualBoxにWindows10をインストール

tool

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

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

ネタ元

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

VB.net 
'インターネット一時ファイルの削除　　 
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")

ネタ元