ぷろぐらむノート

DockerをWindowsにインストール

DockerをWindows10にインストールする手順を記載します。

Windows10 Pro バージョンは1709で行っています。

インストールするDockerは、Hyper-Vを使用しますので、Hyper-Vを有効にする必要があります。

また、VirtualBoxなど仮想マシーンをインストールされている場合は、Hyper-Vを有効にすると起動しなくなるので、注意が必要です。

Hyper-Vのインストール

「コントロールパネル」―「プログラムと機能」－「Windows の機能の有効化または無効化」で、Hyper-Vをオンにします。

以上で、Hyper-Vが使用できます。

Dockerのインストール

１．Get started with Docker for WindowsからDockerのInstall Docker for Windowsをダウンロードします。
「Stable channel（安定版）をダウンロードします。

２．ダウンロードしたファイルを起動させてインストールします。

インストーラは利用規約に同意した後は、何もする必要はないので直ぐに終わります。

３．Hyper-Vマネージャを起動して、（「コントロールパネル」－「管理ツール」－「Hyper-Vマネージャ」）でDockerがインストールされたことを確認します。

インストールされた場合、仮想マシンに[MobyLinuxVN]が作成されています。

Kitematicのインストール

Kitematic（カイトマティック）とは、コンテナを視覚的に確認出来るGUIツールです。

Windows右下よりDocerを右クリックします。以下の画面が表示されますので、[Kitematic]をクリックします。

以下画面が表示されたたら、[Download]をクリックするとインストールファイルをダウンロードできます。

ダウンロードしたインストーラを起動してインストールします。

LibreOfficeでVBAを使用する

LibreOfficeでVBAを使用する方法を記載します。

[ツール]-[マクロ]-[マクロの管理]-[LiberOffice Basic マクロ]を選択します。

「無題１」をマウスカーソルでクリックすると、右側に「新規作成」が出ますので、それを選択します。

[OK]をクリックして、エディタを開きます。

行の一番上に、Option VBASupport 1 を記述します。

以下は、[実行]すると hello world を表示します。

結果

VB.NET WiFiの切断をする

無線LANの切断方法を記載します。

以下説明は、”Managed Wifi”を使用して行います。

実は現時点では、切断方法が無いので、ソースコードをダウンロードして切断のコードを追加してコンパイルする必要がある。Σ（・□・；）

ソースコードの修正にはＣ＃を使用して修正する必要があります。のでその部分はＣ＃による説明をします。

無線LAN切断メソッドの追加

１）ソースのダウンロード

・https://managedwifi.codeplex.com　よりソースコードをダウンロード

２）ソースコードの編集

Interop.cs　に追加

[DllImport("wlanapi.dll")]
public static extern int WlanDisconnect(
    [In] IntPtr clientHandle,
    [In, MarshalAs(UnmanagedType.LPStruct)] Guid interfaceGuid,
    IntPtr pReserved);

[DllImport("wlanapi.dll")]

public static extern int WlanDisconnect(

[In] IntPtr clientHandle,

[In, MarshalAs(UnmanagedType.LPStruct)] Guid interfaceGuid,

IntPtr pReserved);

WlanApi.cs　に追加

・WlanInterface()　クラス内に遮断を記述する

public void Disconnect()
{
    Wlan.ThrowIfError(
        Wlan.WlanDisconnect(client.clientHandle, info.interfaceGuid, IntPtr.Zero));
}

public void Disconnect()

{

Wlan.ThrowIfError(

Wlan.WlanDisconnect(client.clientHandle, info.interfaceGuid, IntPtr.Zero));

}

３）コンパイル

コンパイルは、Visual Studio を使用してプロジェクトを読み込みコンパイルするだけです。

以上切断コードの追加方法です。https://github.com/jorgebv/windows-wifi-api/issues/5　に書かれています。

無線LANの切断をする

Dim targetInterface = "Wi-Fi"           'ワイヤレス ネットワーク接続"
Dim targetProfile = "XXXXXXXXXXXXX-2G"

Dim client As WlanClient = New WlanClient()

'インタフェースを取得する
Dim wlanIface = (From x In client.Interfaces() Where x.InterfaceName = targetInterface Select x).FirstOrDefault()
If wlanIface Is Nothing Then
    Return
End If

'プロファイルが存在するかチェックする
Dim profile = (From x In wlanIface.GetProfiles() Where x.profileName = targetProfile Select x.profileName).FirstOrDefault()
If profile Is Nothing Then
    Return
End If

'インタフェースの接続状態をチェック
If wlanIface.InterfaceState = Wlan.WlanInterfaceState.Connected Then
    'プロファイル名が接続中かチェック
    If wlanIface.CurrentConnection.profileName = targetProfile Then

        '接続切断（追加したメソッド）
        wlanIface.Disconnect()
    End If
End If

Dim targetInterface = "Wi-Fi" 'ワイヤレスネットワーク接続"

Dim targetProfile = "XXXXXXXXXXXXX-2G"

Dim client As WlanClient = New WlanClient()

'インタフェースを取得する

Dim wlanIface = (From x In client.Interfaces() Where x.InterfaceName = targetInterface Select x).FirstOrDefault()

If wlanIface Is Nothing Then

Return

End If

'プロファイルが存在するかチェックする

Dim profile = (From x In wlanIface.GetProfiles() Where x.profileName = targetProfile Select x.profileName).FirstOrDefault()

If profile Is Nothing Then

Return

End If

'インタフェースの接続状態をチェック

If wlanIface.InterfaceState = Wlan.WlanInterfaceState.Connected Then

'プロファイル名が接続中かチェック

If wlanIface.CurrentConnection.profileName = targetProfile Then

'接続切断（追加したメソッド）

wlanIface.Disconnect()

End If