From c5923fa42429e22eef7b50cc40ab450ceb587749 Mon Sep 17 00:00:00 2001
From: nishi_74322014 <nishi_74322014@ksj.biglobe.ne.jp>
Date: Tue, 11 Aug 2026 00:17:36 +0900
Subject: [PATCH 1/3] =?UTF-8?q?=E6=B0=97=E3=81=AB=E3=81=AA=E3=82=8B?=
 =?UTF-8?q?=E7=82=B9=E3=82=92=E6=8C=87=E6=91=98?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 AGENTS.md                                         | 15 +++++++++++++++
 root/programs/CHEATSHEET.md                       |  2 ++
 .../Tools/DeployZipPackWithHTTP/Form1.cs          |  2 ++
 .../Tools/DeployZipPackWithHTTP/Program.cs        |  2 ++
 .../WebForms_Sample/Scripts/touryo/common.js      |  1 +
 .../WebForms_Sample/Scripts/touryo/common.js      |  1 +
 6 files changed, 23 insertions(+)

diff --git a/AGENTS.md b/AGENTS.md
index 1caa82b7d..cfbf18321 100644
--- a/AGENTS.md
+++ b/AGENTS.md
@@ -33,6 +33,21 @@ Git 操作は人が手動で行う。
 
 作業が完了したら**何を変更したかを報告するに留める**。コミットの要否とタイミングは人が判断する。
 
+**状態を報告する直前に、必ず取り直すこと。** 前のターンの出力や記憶から書かない。
+
+```
+git status --porcelain                      # 未コミットの変更
+gh issue view <番号> / gh pr view <番号>    # Issue / PR の状態
+gh api ...                                  # 設定・アラートの状態
+```
+
+**人はエージェントの報告とは独立にコミットし、Issue や PR を操作する。**
+数ターン前の状態は、高い確率で古い。
+**古い一覧を出すと「まだ残っている」と誤認させ、検収の判断材料そのものが誤りになる。**
+
+参照系は制限していないので、回数を惜しむ理由はない。
+**0 件なら「ワーキング ツリーはクリーン」と書く。前回の一覧を再掲しない。**
+
 <!--
   補足（執筆者向け）:
   インストラクションは「文脈」であって強制力を持たない。上記は遵守されやすい書き方に
diff --git a/root/programs/CHEATSHEET.md b/root/programs/CHEATSHEET.md
index 7940e361c..9fed91119 100644
--- a/root/programs/CHEATSHEET.md
+++ b/root/programs/CHEATSHEET.md
@@ -186,6 +186,8 @@ powershell.exe -NoProfile -Command "Set-Location 'root\programs'; .\3_SmokeTest.
 
 - **Git 操作をしない**（`add` / `commit` / `push` / `checkout` / `switch` / `branch` /
   `reset` / `restore` / `stash`）。参照系（`status` / `diff` / `log` / `show` 等）は自由
+- **状態を報告する直前に取り直す。** `git status --porcelain` / `gh issue view` / `gh api`。
+  **前のターンの出力から書かない**（人が独立にコミット・操作するため）
 - **GitHub への投稿は、文面を提示して承認を得てから。** `gh` で行い、`--body-file` を使う。
   アカウントは `OsscJpDevInfra`（`gh auth status` で確認）
 - **Issue のクローズ・ラベル・アサイン、PR の作成やマージは人が行う**
diff --git a/root/programs/CS/Frameworks/Tools/DeployZipPackWithHTTP/Form1.cs b/root/programs/CS/Frameworks/Tools/DeployZipPackWithHTTP/Form1.cs
index c5d41224f..03007b9be 100644
--- a/root/programs/CS/Frameworks/Tools/DeployZipPackWithHTTP/Form1.cs
+++ b/root/programs/CS/Frameworks/Tools/DeployZipPackWithHTTP/Form1.cs
@@ -44,6 +44,8 @@
 //*                                Japanese language exception messages to MSGDefinition.xml file for internationalization supporting English Language.
 //*  2014/04/25  Sai               Replaced all the Japanese language in both UI and code with ResorceManager.GetString() method call
 //*  2020/08/03  西野 大介         NETCOREAPP対応
+//*  2026/08/01  玄人 幸道         ZIP部品をV2へ差し替え（#524）。
+//*                                CUI化のためマニフェスト生成と圧縮をstaticメソッドへ抽出（#528）
 //**********************************************************************************
 
 using System;
diff --git a/root/programs/CS/Frameworks/Tools/DeployZipPackWithHTTP/Program.cs b/root/programs/CS/Frameworks/Tools/DeployZipPackWithHTTP/Program.cs
index 0b292f6e0..48db3b243 100644
--- a/root/programs/CS/Frameworks/Tools/DeployZipPackWithHTTP/Program.cs
+++ b/root/programs/CS/Frameworks/Tools/DeployZipPackWithHTTP/Program.cs
@@ -61,6 +61,8 @@
 //*  2014/04/26  Sai               Replaced all the Japanese language in both UI and code with ResorceManager.GetString() method call
 //*  2014/05/12  Sai               Removed <start> and <End> tags, added check while reading FxBusinessMessageCulture from app.config file
 //*  2016/01/07  Sandeep           Comment out the DefaultWebProxy property, because there is no use of this property in the component   
+//*  2026/08/01  玄人 幸道         CUI化（/MFTGEN, /ZIPGEN, /TOPONLY）と、引数不正時のGUI起動抑止（#528）。
+//*                                設定・履歴の保存をBinarySerializeからJSONへ変更
 //**********************************************************************************
 
 using System;
diff --git a/root/programs/CS/Samples/WebApp_sample/WebForms_Sample/WebForms_Sample/Scripts/touryo/common.js b/root/programs/CS/Samples/WebApp_sample/WebForms_Sample/WebForms_Sample/Scripts/touryo/common.js
index 7b2a6aa61..13dbb510f 100644
--- a/root/programs/CS/Samples/WebApp_sample/WebForms_Sample/WebForms_Sample/Scripts/touryo/common.js
+++ b/root/programs/CS/Samples/WebApp_sample/WebForms_Sample/WebForms_Sample/Scripts/touryo/common.js
@@ -45,6 +45,7 @@
 //*  2019/03/04  西野 大介         WebForms版とMVC版のDiffを取り易く修正。
 //*  2020/03/19  西野 大介         モダン・ブラウザ・サポート（2017/04/20）の制限事項解除
 //*  2026/08/01  玄人 幸道         業務モーダル画面を閉じた際に親画面がPost Backされない問題に対応
+//*  2026/08/10  玄人 幸道         擬似DialogのiframeへURLを設定する前に検証を追加（CodeQL対応、#536）
 //*                                （unloadイベントがブラウザ側で無効化されたため、
 //*                                　window.closedのポーリングによる終了検知を併用する）
 //**********************************************************************************
diff --git a/root/programs/VB/Samples/WebApp_sample/WebForms_Sample/WebForms_Sample/Scripts/touryo/common.js b/root/programs/VB/Samples/WebApp_sample/WebForms_Sample/WebForms_Sample/Scripts/touryo/common.js
index 7b2a6aa61..13dbb510f 100644
--- a/root/programs/VB/Samples/WebApp_sample/WebForms_Sample/WebForms_Sample/Scripts/touryo/common.js
+++ b/root/programs/VB/Samples/WebApp_sample/WebForms_Sample/WebForms_Sample/Scripts/touryo/common.js
@@ -45,6 +45,7 @@
 //*  2019/03/04  西野 大介         WebForms版とMVC版のDiffを取り易く修正。
 //*  2020/03/19  西野 大介         モダン・ブラウザ・サポート（2017/04/20）の制限事項解除
 //*  2026/08/01  玄人 幸道         業務モーダル画面を閉じた際に親画面がPost Backされない問題に対応
+//*  2026/08/10  玄人 幸道         擬似DialogのiframeへURLを設定する前に検証を追加（CodeQL対応、#536）
 //*                                （unloadイベントがブラウザ側で無効化されたため、
 //*                                　window.closedのポーリングによる終了検知を併用する）
 //**********************************************************************************

From 93c4e91e680fdb8f01ee1aefd2b6df55fbb2f38d Mon Sep 17 00:00:00 2001
From: nishi_74322014 <nishi_74322014@ksj.biglobe.ne.jp>
Date: Tue, 11 Aug 2026 14:00:47 +0900
Subject: [PATCH 2/3] =?UTF-8?q?GHA=20allowed=5Factions=20/=20SHA=20?=
 =?UTF-8?q?=E6=96=B9=E9=87=9D?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 AGENTS.md      | 16 ++++++++++++++++
 GitHubUsage.md | 47 ++++++++++++++++++++++++++++++++++++++++++++++-
 2 files changed, 62 insertions(+), 1 deletion(-)

diff --git a/AGENTS.md b/AGENTS.md
index cfbf18321..f1fbe67c7 100644
--- a/AGENTS.md
+++ b/AGENTS.md
@@ -92,6 +92,22 @@ gh issue create --repo OpenTouryoProject/OpenTouryo --title <title> --body-file
 **「利用者への影響」は、無いなら「無し」と明記する。**
 空欄だと、確認したのか未確認なのかが読み手に分からない。
 
+### GitHub Actions を書き足すとき
+
+**ワークフローはエージェントが書き足すことが多い。厳し目に倒すこと。**
+
+- **`permissions:` を必ず書く。** 既定（`read`）に頼らない。
+  何を必要としているかが、ファイルを見て分かる方がよい
+- **第三者製のアクションは SHA で固定する。**
+  `@v7` のようなタグは**作者側で別のコミットへ付け替えられる**ため、
+  こちらが何も変えていなくても動くコードが変わる
+- **`pull_request_target` を使うなら、PR のコードを `checkout` しない。**
+  ベース側の定義を書き込み権限付きで動かすトリガであり、
+  PR に任意のコードを書ける相手へ権限を渡すことになる（pwn request）
+- 新しいアクションを増やすときは、**本当に必要かを先に検討する**
+
+現状と方針は [`GitHubUsage.md`](GitHubUsage.md) 3 節・8 節。
+
 **このリポジトリでは `OsscJpDevInfra` アカウントを使用する。**
 `gh auth status` に複数のアカウントが登録されていることがあるため、
 投稿前にアクティブなアカウントを確認すること。異なる場合は `gh auth switch` で切り替える。
diff --git a/GitHubUsage.md b/GitHubUsage.md
index 28966f9f5..84815333e 100644
--- a/GitHubUsage.md
+++ b/GitHubUsage.md
@@ -615,9 +615,54 @@ DB の導入と初期化が入るため。**リリース時はこれを見込む
 
 | | 内容 |
 |---|---|
-| `allowed_actions` を絞る / SHA 固定 | 現在 `all` / 強制なし。サプライ チェーン対策。**運用が重くなる**ので、必要性とあわせて判断する |
+| **`allowed_actions` を絞る / SHA 固定** | 現在 `all` / 強制なし。**方針としては厳し目に倒す**（下記） |
 | `.github/dependabot.yml` | #517 の決着後 |
 
+### `allowed_actions` と SHA 固定について
+
+**方針 : Actions の設定は厳し目に倒す。**
+ワークフローは**エージェントが書き足すことが多く**、その際に未知のアクションや
+可変タグが入り込む余地を、仕組みで塞いでおきたい。
+
+#### 2 つは別の話
+
+| | 何を制限するか |
+|---|---|
+| **`allowed_actions`** | **どのアクションを使ってよいか**。`all` / `local_only` / `selected` |
+| **SHA 固定**（`sha_pinning_required`） | **`@v7` のようなタグ指定を禁じ、40 桁の SHA を強制する** |
+
+**タグは動かせる。** アクションの作者（またはアカウントを乗っ取った第三者）が
+`v7` を別のコミットへ付け替えると、**こちらは何も変えていないのに、
+次の実行から違うコードが動く。** SHA なら、そのコミットしか実行されない。
+
+#### 現状
+
+```
+actions/checkout@v7                      GitHub 製・タグ
+actions/upload-artifact@v7               GitHub 製・タグ（3 箇所）
+ankane/setup-sqlserver@82b78e23...  # v1 ★第三者製・SHA 固定済み
+```
+
+**最も危険な「第三者製」は、既に SHA 固定されている。**
+被害範囲も限定的である（`Secrets` は 0 件、`GITHUB_TOKEN` の既定は `read`、
+`build-windows.yml` の `permissions` は `contents: read`）。
+
+#### 実施するときの順序
+
+**順序を誤るとワークフローが動かなくなる。**
+
+```
+1. actions/* の 4 箇所を SHA へ書き換える
+2. build-windows.yml を手動実行して通ることを確かめる
+3. sha_pinning_required を true にする
+4. allowed_actions を selected にし、GitHub 製 ＋ ankane/* を許可する
+```
+
+**`.github/dependabot.yml` とセットにするのが合理的。**
+`github-actions` エコシステムを有効にすると、**Dependabot が SHA を自動更新する**ため、
+固定の運用コストがほぼ消える（`dependabot.yml` は #517 の決着後）。
+
+### 覚書
 > **`develop` を必須チェックの対象にはしない。**
 > `deps` ⇔ `develop` ⇔ feature と**往復が多いハブ**であり、
 > 毎回のマージが CI 待ちになる。

From 645da58ff8180feed1fc3053fbc7b1b4f3d35d5e Mon Sep 17 00:00:00 2001
From: nishi_74322014 <nishi_74322014@ksj.biglobe.ne.jp>
Date: Thu, 13 Aug 2026 16:25:58 +0900
Subject: [PATCH 3/3] fixed #542

---
 .github/workflows/build-windows-vb.yml        | 224 ++++++++++++++++++
 AGENTS.md                                     |   9 +
 GitHubUsage.md                                |  18 ++
 root/programs/0_RunAll.ps1                    |  40 +++-
 root/programs/1_BuildAll.ps1                  | 136 ++++++++++-
 root/programs/3_SmokeTest.ps1                 | 188 +++++++++++++--
 root/programs/BUILDING.md                     |  80 ++++++-
 root/programs/CHEATSHEET.md                   |  23 +-
 root/programs/RELEASE.md                      |  15 ++
 root/programs/SMOKETEST.md                    |  82 ++++++-
 root/programs/VB/5_Build_2CS_sample.bat       |   4 +
 root/programs/VB/5_Build_Bat_sample.bat       |   4 +
 root/programs/VB/9_Build_WSClntWPF_sample.bat |   1 +
 13 files changed, 785 insertions(+), 39 deletions(-)
 create mode 100644 .github/workflows/build-windows-vb.yml

diff --git a/.github/workflows/build-windows-vb.yml b/.github/workflows/build-windows-vb.yml
new file mode 100644
index 000000000..fdc46a6a1
--- /dev/null
+++ b/.github/workflows/build-windows-vb.yml
@@ -0,0 +1,224 @@
+# VB 版のビルドと疎通を windows-latest で検証する（手動実行のみ）。
+#
+# ＜なぜ別ワークフローで、手動だけなのか＞（#542）
+#   ・VB は C# からの移植で、フレームワーク本体を共有している。回帰は
+#     build-windows.yml の 3 本でほぼ捕まる。VB 固有の回帰は「VB プロジェクトが
+#     建つか」で、これはビルドで分かる。
+#   ・VB の疎通は C# 版と同じ Northwind / Orders2 を使う。同じジョブに入れるなら
+#     順次実行が必須で、並列にできない。
+#   ・VB\1_DeleteDir.bat は bin / obj に加えて Build / Build_net48 も消す。
+#     C# 側の疎通と同じジョブに置くと、順序の縛りが増える。
+#   このため deps への push と master 宛 PR のトリガには載せない。
+#   リリース前や VB に手を入れたときに、人が回す想定である。
+#
+# ＜実行するもの＞
+#   1_BuildAll.ps1  -Lang VB   全ビルド（14 ステップ）
+#   3_SmokeTest.ps1 -Lang VB   疎通（6 件）
+#
+#   2_RunAllTests.ps1 は無い。VB にテスト プロジェクトが無く、単体テストは
+#   C# の Frameworks\Tests に集約されているため（BUILDING.md 10 節）。
+#
+# ＜-IgnoreErrors が無い理由＞
+#   VB には ClickOnce 署名のプロジェクト（WSClientWinCone_sample）も .pfx も無い。
+#   build-windows.yml が除外している MSB3482 / MSB3325 / MSB3321 は出ない。
+#
+# ＜Set-Culture をしない理由＞
+#   build-windows.yml のロケール設定は 2_RunAllTests.ps1 の期待値のためのもので、
+#   本ワークフローには単体テストが無い。疎通の判定は状態コードと、
+#   サンプルのソースに直接書かれた文字列（"件のデータがあります"）を見るだけで、
+#   OS のロケールに依存しない。
+#
+# ＜DB と C:\root の準備が build-windows.yml と重複している＞
+#   **意図的に写している。** 共通化するには composite action か再利用可能
+#   ワークフローへ切り出すことになるが、それは build-windows.yml（master の
+#   必須チェック）にも手を入れることを意味する。実際に CI を回して確かめるまでは
+#   触らない方針とし、まずは独立した形で置く。
+#   **準備の理由と経緯は build-windows.yml と BUILDING.md 9 節が一次情報。**
+
+name: Build VB on Windows
+
+on:
+  workflow_dispatch:
+
+permissions:
+  contents: read
+
+jobs:
+  build:
+    runs-on: windows-latest
+    # ローカルの実測はビルド 4.3 分＋疎通 1.5 分。DB の導入と初期化を足して余裕を持たせる。
+    timeout-minutes: 90
+
+    env:
+      # ankane/setup-sqlserver が設定する既定のパスワード。
+      INITIAL_SA_PASSWORD: 'YourStrong!Passw0rd'
+      # サンプルの構成ファイルに直書きされている値。
+      #   Data Source=localhost;Initial Catalog=Northwind;User ID=sa;Password=seigi@123;Encrypt=false;
+      # 構成側を CI 用に書き換えると「実際に使われる設定」と乖離するため、DB 側を合わせる。
+      SA_PASSWORD: 'seigi@123'
+      # LocalServicesOnDocker の docker-compose.yml が指定する照合順序と同じ。
+      COLLATION: 'Japanese_CI_AS'
+
+    steps:
+      - name: Checkout
+        uses: actions/checkout@v7
+
+      # VB のステップ表は、先頭に C# 側の 2_Build_NuGet_net48.bat を含む。
+      # VB\1_GetLibrariesFromCS.bat がその出力を取りに行くためで、
+      # VB\0_ExecAllBat.bat が cd "..\CS" しているのと同じ理由（BUILDING.md 10 節）。
+      - name: Build all (VB)
+        shell: pwsh
+        working-directory: root/programs
+        run: .\1_BuildAll.ps1 -Lang VB -OutputDir "${{ runner.temp }}\BuildLogs"
+
+      # ------------------------------------------------------------------
+      # 疎通のための SQL Server
+      # ------------------------------------------------------------------
+      # 第三者のアクションなのでコミットで固定する（v1 はタグではなくブランチ）。
+      - name: Install SQL Server
+        uses: ankane/setup-sqlserver@82b78e23506d0c8acfb64e05728ac450ff8a98c6 # v1
+        with:
+          accept-eula: true
+          sqlserver-version: 2022
+
+      - name: Set up Northwind
+        shell: pwsh
+        env:
+          # LocalServicesOnDocker のコミットに固定する。
+          # 中身は Microsoft 公式の Northwind DDL（約 1 MB）。
+          NORTHWIND_URL: https://raw.githubusercontent.com/NetDevInfraWGinOSSConsortium/LocalServicesOnDocker/90763cd5f2aa681b1172d9277a2b133514fdaebe/sqlserver/init/instnwnd.sql
+        run: |
+          $ErrorActionPreference = 'Stop'
+
+          # sqlcmd 18 以降は既定で暗号化するため -C（サーバー証明書を信頼）が要る。
+          # 旧版は -C を解釈しないので、使えるかどうかを一度だけ判定する。
+          $cflag = @()
+          & sqlcmd -S localhost -U sa -P $env:INITIAL_SA_PASSWORD -C -Q "SELECT 1" *> $null
+          if ($LASTEXITCODE -eq 0) { $cflag = @('-C') }
+
+          function Invoke-Sql
+          {
+              param([string]$Password, [string]$Database, [string]$Query, [string]$File, [switch]$Raw)
+
+              $a = @('-S', 'localhost', '-U', 'sa', '-P', $Password, '-b') + $cflag
+              if ($Database) { $a += @('-d', $Database) }
+              if ($Raw)      { $a += @('-h', '-1', '-W') }
+              if ($Query)    { $a += @('-Q', $Query) }
+              if ($File)     { $a += @('-i', $File) }
+              & sqlcmd @a
+          }
+
+          # 構成ファイルに合わせてパスワードを変更する。
+          Write-Host "sa のパスワードを構成ファイルに合わせます。"
+          Invoke-Sql -Password $env:INITIAL_SA_PASSWORD -Query "ALTER LOGIN sa WITH PASSWORD = '$($env:SA_PASSWORD)'"
+          if ($LASTEXITCODE -ne 0) { throw "sa のパスワードを変更できませんでした。" }
+
+          $sql = Join-Path $env:RUNNER_TEMP 'instnwnd.sql'
+          Invoke-WebRequest -Uri $env:NORTHWIND_URL -OutFile $sql
+          Write-Host ("instnwnd.sql を取得しました（{0:N0} バイト）。" -f (Get-Item $sql).Length)
+
+          # instnwnd.sql は DB を作らない（対象 DB の中で実行する）ため、先に CREATE する。
+          # 照合順序は DB 既定として与える。Northwind の列は COLLATE 句を持たないので、
+          # 各列がこれを継承する。
+          #
+          # 起動直後は一部のバッチが失敗して不完全なロードになることがあるため
+          # （表だけできてデータが入らない等）、Shippers が 3 行あるかで検証して再試行する。
+          $loaded = $false
+
+          foreach ($attempt in 1..3)
+          {
+              Write-Host "Northwind をロードします（$attempt 回目）。"
+
+              # ヒアストリングは使わない。YAML のブロック スカラーはインデントを
+              # 剥がすため、終端の "@ を行頭に置く必要があり、桁が衝突する。
+              $drop   = "IF DB_ID('Northwind') IS NOT NULL BEGIN ALTER DATABASE Northwind SET SINGLE_USER WITH ROLLBACK IMMEDIATE; DROP DATABASE Northwind; END;"
+              $create = "CREATE DATABASE Northwind COLLATE $($env:COLLATION);"
+
+              Invoke-Sql -Password $env:SA_PASSWORD -Query "$drop $create"
+              Invoke-Sql -Password $env:SA_PASSWORD -Database Northwind -File $sql *> $null
+
+              $n = (Invoke-Sql -Password $env:SA_PASSWORD -Database Northwind -Raw `
+                    -Query "SET NOCOUNT ON; SELECT COUNT(*) FROM dbo.Shippers") -join ''
+              if ($n.Trim() -eq '3') { $loaded = $true; break }
+
+              Write-Host "  ロードが不完全です。再試行します。"
+          }
+
+          if (-not $loaded) { throw "Northwind のロードが完了しませんでした。" }
+
+          # Northwind 標準には無い表。3_SmokeTest.ps1 の RerunnableBatch 系が使う。
+          # DDL は VB 側の同梱物を使う（-Lang VB では構成ファイルも VB 側から読むため）。
+          # 中身は C# 側と同じで、3_SmokeTest.ps1 も無ければ自分で作る。
+          # それでも流しておくのは、疎通より前に表が揃っていることを確かめられるため。
+          $orders2 = 'root/programs/VB/Samples/Bat_sample/RerunnableBatch_sample/CREATE ORDERS2.sql'
+          Invoke-Sql -Password $env:SA_PASSWORD -Database Northwind -File $orders2 *> $null
+
+          $orders = (Invoke-Sql -Password $env:SA_PASSWORD -Database Northwind -Raw `
+                     -Query "SET NOCOUNT ON; SELECT COUNT(*) FROM dbo.Orders") -join ''
+          Write-Host ("Northwind 準備完了 : Shippers=3  Orders={0}" -f $orders.Trim())
+
+      # ------------------------------------------------------------------
+      # サンプルが前提とする C:\root
+      # ------------------------------------------------------------------
+      # VB 側の構成ファイルも C:\root\files\... を絶対パスで参照している。
+      #   Bat_sample\SimpleBatch_sample\app.config    SqlTextFilePath
+      #   WebApp_sample\*\app.config                  MSGDefinition / SPDefinition ほか
+      # コピーではなくジャンクションにして、実体を 1 つに保つ。
+      - name: Set up C:\root
+        shell: pwsh
+        run: |
+          $ErrorActionPreference = 'Stop'
+
+          if (-not (Test-Path 'C:\root'))
+          {
+              New-Item -ItemType Junction -Path 'C:\root' `
+                       -Target (Join-Path $env:GITHUB_WORKSPACE 'root') | Out-Null
+          }
+
+          foreach ($p in @('C:\root\files\resource\Sql',
+                           'C:\root\files\resource\Xml\MSGDefinition.xml',
+                           'C:\root\files\resource\Xml\SPDefinition.xml'))
+          {
+              if (-not (Test-Path $p)) { throw "$p が見つかりません。" }
+          }
+          Write-Host "C:\root を配置しました。"
+
+      # ------------------------------------------------------------------
+      # 疎通（3_SmokeTest.ps1 -Lang VB）
+      # ------------------------------------------------------------------
+      # 3_SmokeTest.ps1 はサービスの開始を自分では行わない。システムの状態を変える
+      # 操作だからで、足りない場合は対処方法を示して NG にする（AGENTS.md の線引き）。
+      # runner は使い捨てで、この判断が当てはまらないため、ここで開始する。
+      #
+      # VB の MVC_Sample / WebForms_Sample も Web.config で StateServer を使う。
+      - name: Start aspnet_state
+        shell: pwsh
+        run: |
+          Start-Service aspnet_state
+          Write-Host ("aspnet_state : {0}" -f (Get-Service aspnet_state).Status)
+
+      # IIS Express は windows-latest に同梱されている（%ProgramFiles% 側）。
+      # 3_SmokeTest.ps1 が見るのも同じ場所なので、追加の導入は要らない。
+      - name: Smoke test (VB)
+        shell: pwsh
+        working-directory: root/programs
+        run: .\3_SmokeTest.ps1 -Lang VB -OutputDir "${{ runner.temp }}\SmokeTest"
+
+      # 失敗時こそ中身を見たいので、常に採取する。
+      - name: Upload build logs
+        if: always()
+        uses: actions/upload-artifact@v7
+        with:
+          name: build-logs-vb
+          path: ${{ runner.temp }}\BuildLogs
+          if-no-files-found: warn
+
+      # 疎通は期待結果ファイルを持たないため、判定は各対象の標準出力に残る。
+      # Web 系は IIS Express の起動ログもここに入る。
+      - name: Upload smoke test logs
+        if: always()
+        uses: actions/upload-artifact@v7
+        with:
+          name: smoke-logs-vb
+          path: ${{ runner.temp }}\SmokeTest
+          if-no-files-found: warn
diff --git a/AGENTS.md b/AGENTS.md
index f1fbe67c7..a6254b0cc 100644
--- a/AGENTS.md
+++ b/AGENTS.md
@@ -186,6 +186,15 @@ cd root\programs
 `2_RunAllTests.ps1` はワーキング ツリーの `Result*.txt` を書き換える（従来のバッチ運用と同じ）。
 **コミットの要否は人が判断する**ため、エージェントは差分を報告するに留める。
 
+**上記の既定は C# 側である。VB 側に手を入れたときは `-Lang` で回す。**
+
+```powershell
+.\0_RunAll.ps1 -Lang VB          # 1 と 3 を VB で通す（2 は VB に対象が無い）
+```
+
+理由と対象は [`BUILDING.md`](root/programs/BUILDING.md) 10 節・
+[`SMOKETEST.md`](root/programs/SMOKETEST.md) 10 節。
+
 **`.ps1` は Windows PowerShell 5.1 と PowerShell 7 の両方で動くこと。**
 エージェントの実行環境は 7 だが、利用者は 5.1（`powershell.exe`）で実行するため、
 7 だけで確認すると 5.1 で落ちる。**変更したら 5.1 でも実行して確かめること。**
diff --git a/GitHubUsage.md b/GitHubUsage.md
index 84815333e..8fbc4857c 100644
--- a/GitHubUsage.md
+++ b/GitHubUsage.md
@@ -310,6 +310,7 @@ allow_rebase_merge   false   … 同上
 | ファイル | 役割 |
 |---|---|
 | [`workflows/build-windows.yml`](.github/workflows/build-windows.yml) | 検証 3 本（ビルド・単体テスト・疎通）を windows-latest で |
+| [`workflows/build-windows-vb.yml`](.github/workflows/build-windows-vb.yml) | **VB 版**のビルドと疎通を windows-latest で（手動のみ） |
 | [`workflows/dependabot-retarget.yml`](.github/workflows/dependabot-retarget.yml) | Dependabot PR の向き先を `deps` へ変更 |
 | [`secret_scanning.yml`](.github/secret_scanning.yml) | Secret scanning のアラートから除外するパス（1 節） |
 | [`ISSUE_TEMPLATE/`](.github/ISSUE_TEMPLATE) | Issue テンプレート 3 種 ＋ `config.yml`（5 節） |
@@ -322,12 +323,29 @@ allow_rebase_merge   false   … 同上
 | ファイル | 発火 | `permissions` |
 |---|---|---|
 | `build-windows.yml` | `push: [deps]` / **`pull_request: [master]`** / 手動 | `contents: read` |
+| `build-windows-vb.yml` | **手動のみ**（`workflow_dispatch`） | `contents: read` |
 | `dependabot-retarget.yml` | `pull_request_target`（`opened`） | `pull-requests: write` |
 | CodeQL（既定セットアップ） | GitHub 管理。`push` / `pull_request` / 週次 | ワークフロー ファイルを持たない |
 
 `build-windows.yml` は既知の署名エラー（`MSB3482` / `MSB3325` / `MSB3321`）を除外する。
 **ローカルと CI で出るコードが違う**理由はファイル冒頭のコメントにある。
 
+**`build-windows-vb.yml` を自動発火させていない理由**（#542）。
+
+- VB は C# からの移植で、**フレームワーク本体を共有している**。回帰は
+  `build-windows.yml` の 3 本でほぼ捕まる
+- VB の疎通は C# 版と**同じ Northwind / Orders2 を使う**。同じジョブに入れるなら
+  順次実行が必須で、並列にできない
+- `VB\1_DeleteDir.bat` は `bin` / `obj` に加えて `Build` / `Build_net48` も消す
+
+除外条件（`-IgnoreErrors`）を持たないのは、**VB に ClickOnce 署名のプロジェクトも
+`.pfx` も無い**ため。単体テストの段が無いのは、VB にテスト プロジェクトが無いため。
+
+> **DB と `C:\root` の準備が `build-windows.yml` と重複している。意図的である。**
+> 共通化するには composite action か再利用可能ワークフローへ切り出すことになるが、
+> それは **master の必須チェックである `build-windows.yml` にも手を入れる**ことを意味する。
+> 実際に CI を回して確かめるまでは触らない方針とし、まずは独立した形で置いた。
+
 > **`dependabot-retarget.yml` は `pull_request_target` を使う。**
 > これは**ベース ブランチ側の定義を、書き込み権限付きで動かす**トリガである。
 > ここで PR のコードを `checkout` して実行すると、
diff --git a/root/programs/0_RunAll.ps1 b/root/programs/0_RunAll.ps1
index 14e6e7f12..9f5017ff0 100644
--- a/root/programs/0_RunAll.ps1
+++ b/root/programs/0_RunAll.ps1
@@ -1,13 +1,41 @@
-# --- 処理部：他のps1ファイルを順次実行 ---
+# --- 引数 ---
+# Lang : 対象の言語。CS（既定）/ VB / Both。1 と 3 にそのまま渡す。
+[CmdletBinding()]
+param(
+    [ValidateSet("CS", "VB", "Both")]
+    [string]$Lang = "CS"
+)
+
+# --- 処理部：他のps1ファイルを順次実行 ---
 # ※ ダブル クリック起動でもカレント ディレクトリに依存しないよう $PSScriptRoot を使う。
 # ※ 順序は固定（RELEASE.md 3 節）。1 のクリーンとアセンブリ配置が 2・3 の前提になる。
-$scripts = @("1_BuildAll.ps1", "2_RunAllTests.ps1", "3_SmokeTest.ps1")
+#
+# UseLang = $true のものにだけ -Lang を渡す。
+# 2_RunAllTests.ps1 に渡さないのは、VB 側にテスト プロジェクトが無く（#542）、
+# 単体テストが CS の Frameworks\Tests に集約されているため。
+$scripts = @(
+    @{ Name = "1_BuildAll.ps1";    UseLang = $true }
+    @{ Name = "2_RunAllTests.ps1"; UseLang = $false }
+    @{ Name = "3_SmokeTest.ps1";   UseLang = $true }
+)
 $results = @()
 
 foreach ($s in $scripts)
 {
-    & (Join-Path $PSScriptRoot $s)
-    $results += [pscustomobject]@{ スクリプト = $s; 終了コード = $LASTEXITCODE }
+    # -Lang VB では単体テストの対象が無いので飛ばす。
+    # 黙って飛ばすと「通った」と読めてしまうため、結果には必ず残す。
+    if ($Lang -eq "VB" -and -not $s.UseLang)
+    {
+        Write-Host ("{0} は VB 版の対象外のため飛ばします。" -f $s.Name) -ForegroundColor Yellow
+        $results += [pscustomobject]@{ スクリプト = $s.Name; 終了コード = "対象外" }
+        continue
+    }
+
+    $splat = @{}
+    if ($s.UseLang) { $splat.Lang = $Lang }
+
+    & (Join-Path $PSScriptRoot $s.Name) @splat
+    $results += [pscustomobject]@{ スクリプト = $s.Name; 終了コード = $LASTEXITCODE }
 }
 
 # --- 結果のまとめ ---
@@ -17,7 +45,9 @@ $results | Format-Table -AutoSize | Out-String | Write-Host
 
 # 1_BuildAll.ps1 は既知の署名エラー（MSB3482）で 1 になることがある。
 # 終了コードだけで判断せず、エラー一覧の内容を確認すること（RELEASE.md 3 節）。
-$ng = @($results | Where-Object { $_.終了コード -ne 0 })
+#
+# 「対象外」は飛ばした印であって失敗ではないので、NG に数えない。
+$ng = @($results | Where-Object { $_.終了コード -ne 0 -and $_.終了コード -ne "対象外" })
 if ($ng.Count -eq 0)
 {
     Write-Host "すべて OK です。" -ForegroundColor Green
diff --git a/root/programs/1_BuildAll.ps1 b/root/programs/1_BuildAll.ps1
index f601ee92f..79c67489b 100644
--- a/root/programs/1_BuildAll.ps1
+++ b/root/programs/1_BuildAll.ps1
@@ -14,6 +14,20 @@
       ・-v:d（詳細）で出力が膨大なため、目視での確認が難しい
     このため、stdin を与えて実行し、出力から error / warning を抽出して判定する。
 
+    ＜C# 版と VB 版＞
+      本体は言語に依存しない。出力の解析（Get-Diagnostics）が見る MSBuild の
+      エラー行は「: error CS1002:」「: error BC30451:」のようにコード部の綴りが
+      違うだけで、書式は同じだからである（#542）。
+      このため、違うのは「どのバッチを、どのフォルダで呼ぶか」だけになる。
+
+.PARAMETER Lang
+    対象の言語。CS（既定）/ VB / Both。
+
+    ※ VB 側は C# 側の成果物に依存する（VB\1_GetLibrariesFromCS.bat が
+    　 CS\Frameworks\Infrastructure\Build_net48 を取りに行く）。このため
+    　 VB のステップ表は、先頭に C# 側の 2_Build_NuGet_net48.bat を含む。
+    　 VB\0_ExecAllBat.bat が cd "..\CS" してから呼んでいるのと同じ理由。
+
 .PARAMETER Only
     ステップ名の部分一致で対象を絞る（例: -Only "net48"）。動作確認用。
 
@@ -42,6 +56,9 @@
 .EXAMPLE
     .\1_BuildAll.ps1 -IgnoreErrors "MSB3482"
 
+.EXAMPLE
+    .\1_BuildAll.ps1 -Lang VB
+
 .NOTES
     作成者          ：玄人 幸道
     更新履歴        ：
@@ -49,18 +66,20 @@
      ----------  ----------------  -------------------------------------------------
      2026/08/01  玄人 幸道         新規作成（リリース ワークのエージェント化）
      2026/08/05  玄人 幸道         IgnoreErrors を追加（CI での既知エラーの除外）
+     2026/08/13  玄人 幸道         Lang を追加（VB 版のビルドに対応）
 #>
 [CmdletBinding()]
 param(
+    [ValidateSet("CS", "VB", "Both")]
+    [string]$Lang = "CS",
     [string]$Only,
     [switch]$SkipClean,
     [string]$OutputDir = (Join-Path $env:TEMP "OpenTouryoBuildLogs"),
     [string[]]$IgnoreErrors = @()
 )
 
-# 本スクリプトは root\programs に置き、C# 側（root\programs\CS）を対象とする。
-# ビルド バッチはすべて CS 直下にあるため、そこを起点にする。
-$csRoot = Join-Path $PSScriptRoot "CS"
+# 本スクリプトは root\programs に置き、その配下の CS / VB を対象とする。
+# ビルド バッチはそれぞれの直下にあるため、ステップごとにそこへ移動して呼ぶ。
 New-Item -ItemType Directory -Force $OutputDir | Out-Null
 
 # ------------------------------------------------------------------
@@ -93,10 +112,15 @@ if ([Console]::OutputEncoding.CodePage -ne 65001)
 }
 
 # ------------------------------------------------------------------
-# ビルド ステップの定義（0_ExecAllBat.bat と同じ順序・同じ内容）
+# ビルド ステップの定義（各言語の 0_ExecAllBat.bat と同じ順序・同じ内容）
 # ------------------------------------------------------------------
-# Clean = $true のものは -SkipClean で省略される。
-$steps = @(
+# Name       : 表示名（ログのファイル名にもなるため、言語をまたいで重複させない）
+# Bat        : 呼び出すバッチ
+# Dir        : バッチのあるフォルダ（root\programs からの相対）。
+#              省略時は対象言語のフォルダ。VB のステップだけ、先頭で "CS" を明示する。
+# Clean      : $true のものは -SkipClean で省略される
+# SkipIfDone : 同じ実行内で同じバッチが既に走っていれば飛ばす（-Lang Both 用）
+$stepsCS = @(
     # --- net48 : 基盤 ---
     @{ Name = "Clean (net48 基盤)";            Bat = "1_DeleteDir.bat";                        Clean = $true }
     @{ Name = "Clean files (net48 基盤)";      Bat = "1_DeleteFile.bat";                       Clean = $true }
@@ -139,6 +163,71 @@ $steps = @(
     @{ Name = "WebAppCore_sample";             Bat = "10_Build_WebAppCore_sample.bat" }
 )
 
+# VB\0_ExecAllBat.bat と同じ順序・同じ内容。
+#
+# ＜先頭が CS 側なのは移植ミスではない＞
+#   VB\1_GetLibrariesFromCS.bat が
+#     xcopy /E /Y "..\CS\Frameworks\Infrastructure\Build_net48" ...
+#   と C# 側の成果物を取りに行くため、その出力を作る 2_Build_NuGet_net48.bat を
+#   先に通す必要がある。VB\0_ExecAllBat.bat も cd "..\CS" して同じことをしている。
+#
+# ＜クリーンの位置＞
+#   VB\1_DeleteDir.bat は 2 セット目で Build_net48 / Build も消す。
+#   GetLibrariesFromCS より前に置くことで、毎回 C# 側から採り直す形になる。
+#   この順序は入れ替えない。
+#
+#   なお 1_GetLibrariesFromCS.bat は -Lang Both でも飛ばせない。ビルドではなく
+#   「C# 側の出力を VB 配下へ複写する」処理で、C# を建てても VB 側には何も置かれず、
+#   しかも直前のクリーンで VB 側の Build_net48 が消えているためである。
+#
+# ＜netcore100 が無い＞
+#   VB 側は net48 だけで、Core 版のサンプルを持たない（#542）。
+$stepsVB = @(
+    # --- C# 側の成果物（VB の前提） ---
+    #
+    # CS\1_DeleteDir.bat の対象は packages/obj/bin/bld/Temp/PrecompiledWeb/
+    # MigrationBackup/.vs だけで、Build_net48 を消さない（VB 側とはここが違う）。
+    # このため -Lang Both では C# の通しで作った出力がそのまま残っており、
+    # 建て直す必要が無い。SkipIfDone で飛ばす。
+    #
+    # ※ -Lang Both でも -Only で C# 側が絞り落とされることがあるため、
+    # 　「Both なら無条件で飛ばす」にはしない。実際に走ったかどうかで判断する。
+    @{ Name = "VB : NuGet (net48, CS 側)";     Bat = "2_Build_NuGet_net48.bat";  Dir = "CS"
+       SkipIfDone = $true }
+
+    # --- 基盤 ---
+    @{ Name = "VB : Clean";                    Bat = "1_DeleteDir.bat";          Clean = $true }
+    @{ Name = "VB : Clean files";              Bat = "1_DeleteFile.bat";         Clean = $true }
+    @{ Name = "VB : GetLibrariesFromCS";       Bat = "1_GetLibrariesFromCS.bat" }
+    @{ Name = "VB : Business (net48)";         Bat = "3_Build_Business_net48.bat" }
+    @{ Name = "VB : Business.RichClient";      Bat = "3_Build_BusinessRichClient_net48.bat" }
+    @{ Name = "VB : CopyAssemblies";           Bat = "4_Build_CopyAssemblies.bat" }
+
+    # --- サンプル ---
+    @{ Name = "VB : Bat_sample";               Bat = "5_Build_Bat_sample.bat" }
+    @{ Name = "VB : 2CS_sample";               Bat = "5_Build_2CS_sample.bat" }
+    @{ Name = "VB : WSSrv_sample";             Bat = "6_Build_WSSrv_sample.bat" }
+    @{ Name = "VB : Framework_WS";             Bat = "7_Build_Framework_WS.bat" }
+    @{ Name = "VB : WSClntWin_sample";         Bat = "8_Build_WSClntWin_sample.bat" }
+    @{ Name = "VB : WSClntWPF_sample";         Bat = "9_Build_WSClntWPF_sample.bat" }
+    @{ Name = "VB : WebApp_sample";            Bat = "10_Build_WebApp_sample.bat" }
+)
+
+# 省略されている Dir を、その言語のフォルダで補う。
+# Dir を明示しているステップ（VB 表の先頭）は、そのまま残す。
+function Add-DefaultDir($steps, [string]$dir)
+{
+    foreach ($s in $steps)
+    {
+        if (-not $s.ContainsKey("Dir")) { $s.Dir = $dir }
+    }
+    return $steps
+}
+
+$steps = @()
+if ($Lang -ne "VB") { $steps += @(Add-DefaultDir $stepsCS "CS") }
+if ($Lang -ne "CS") { $steps += @(Add-DefaultDir $stepsVB "VB") }
+
 # ------------------------------------------------------------------
 # 出力の解析
 # ------------------------------------------------------------------
@@ -196,12 +285,18 @@ function Test-KnownError([string]$line)
 # ------------------------------------------------------------------
 # 実行
 # ------------------------------------------------------------------
-Push-Location $csRoot
+Write-Host ("対象 : {0}" -f $Lang) -ForegroundColor Cyan
+
 $results = @()
 $allErrors = New-Object System.Collections.Generic.List[string]
 $allKnown  = New-Object System.Collections.Generic.List[string]
 $total = [Diagnostics.Stopwatch]::StartNew()
 
+# 実行済みのバッチ（"フォルダ\バッチ名"）。SkipIfDone の判定に使う。
+# ※ 1_DeleteDir.bat のように意図して繰り返すステップがあるため、
+# 　 一律の重複排除はしない。SkipIfDone を付けたものだけを対象にする。
+$executed = @{}
+
 foreach ($s in $steps)
 {
     if ($Only -and ($s.Name -notlike "*$Only*") -and ($s.Bat -notlike "*$Only*"))
@@ -213,7 +308,24 @@ foreach ($s in $steps)
         continue
     }
 
-    $bat = Join-Path $csRoot $s.Bat
+    $key = $s.Dir + "\" + $s.Bat
+
+    if ($s.SkipIfDone -and $executed.ContainsKey($key))
+    {
+        Write-Host ("=== {0} ===" -f $s.Name) -ForegroundColor Cyan
+        Write-Host ("  実行済みのため飛ばします : {0}" -f $key)
+        $results += [pscustomobject]@{
+            ステップ = $s.Name; 結果 = "実行済み"
+            エラー = 0; 既知 = 0; 警告 = 0; 秒 = 0
+        }
+        continue
+    }
+
+    # バッチは自分のフォルダから呼ぶ。相対パスで参照を解決しているため、
+    # 呼び出し元のカレントが違うと、ソリューションを見つけられない。
+    $dir = Join-Path $PSScriptRoot $s.Dir
+    $bat = Join-Path $dir $s.Bat
+
     if (-not (Test-Path $bat))
     {
         Write-Host ("  [{0}] バッチが見つかりません : {1}" -f $s.Name, $s.Bat) -ForegroundColor Red
@@ -229,9 +341,13 @@ foreach ($s in $steps)
 
     # 各バッチは末尾に pause を持つため、stdin を与えて実行する
     # （0_ExecAllBat.bat の "echo | call ..." と同じ方式）。
+    Push-Location $dir
     cmd /c "echo. | call `"$bat`"" *>&1 | Out-File $log -Encoding UTF8
+    Pop-Location
     $sw.Stop()
 
+    $executed[$key] = $true
+
     $diag = Get-Diagnostics (Get-Content $log -EA SilentlyContinue)
 
     # 既知のエラーを判定対象から外す。件数はサマリに残すため、捨てずに分けて持つ。
@@ -269,7 +385,6 @@ foreach ($s in $steps)
 }
 
 $total.Stop()
-Pop-Location
 
 # ------------------------------------------------------------------
 # サマリ
@@ -304,7 +419,8 @@ if ($allKnown.Count -gt 0)
     }
 }
 
-$ng = @($results | Where-Object { $_.結果 -ne "OK" })
+# 「実行済み」は飛ばした印であって失敗ではないので、NG に数えない。
+$ng = @($results | Where-Object { $_.結果 -ne "OK" -and $_.結果 -ne "実行済み" })
 Write-Host ""
 if ($ng.Count -eq 0)
 {
diff --git a/root/programs/3_SmokeTest.ps1 b/root/programs/3_SmokeTest.ps1
index 0339aa960..a6e1e00cd 100644
--- a/root/programs/3_SmokeTest.ps1
+++ b/root/programs/3_SmokeTest.ps1
@@ -29,6 +29,21 @@
       RerunnableBatch 系は Orders(830 件) を読み Orders2 へ INSERT するため、
       実行前に Orders2 を空にする必要がある。実行後は 830 件＝初期状態に戻る。
 
+    ＜C# 版と VB 版＞
+      VB 版は C# 版からの移植で、疎通の手順がそのまま通る（#542 で突き合わせ済み）。
+        ・接続文字列名          ConnectionString_SQL
+        ・MVC のログイン画面    Views/Home/Login.cshtml が同一
+        ・認証が要る画面        /Crud1/Index（Crud1Controller に Authorize）
+        ・WebForms のコントロール ctl00$ContentPlaceHolder_A$txtUserID ほか
+      このため判定（Flow / Verify）は両者で共有し、対象定義だけを分ける。
+      分けて書くと、サンプルの画面を直したとき片方だけ直す事故が起きる。
+
+.PARAMETER Lang
+    対象の言語。CS（既定）/ VB / Both。
+
+    ※ 既定に VB を含めない。リリース時の検証（RELEASE.md 3 節）は C# 版が対象で、
+    　 VB を含めると毎回 VB のビルドが乗るため。
+
 .PARAMETER Only
     対象名の部分一致で絞る（例: -Only "Rerunnable"）。
 
@@ -44,6 +59,9 @@
 .EXAMPLE
     .\3_SmokeTest.ps1 -Only "net48" -SkipBuild
 
+.EXAMPLE
+    .\3_SmokeTest.ps1 -Lang VB
+
 .NOTES
     作成者          ：玄人 幸道
     更新履歴        ：
@@ -51,9 +69,12 @@
      ----------  ----------------  -------------------------------------------------
      2026/08/01  玄人 幸道         新規作成（リリース ワークのエージェント化）
      2026/08/07  玄人 幸道         Orders2が無ければ作成するようにした
+     2026/08/13  玄人 幸道         Lang を追加（VB 版の疎通に対応）
 #>
 [CmdletBinding()]
 param(
+    [ValidateSet("CS", "VB", "Both")]
+    [string]$Lang = "CS",
     [string]$Only,
     [switch]$SkipBuild,
     [string]$OutputDir = (Join-Path $env:TEMP "OpenTouryoSmokeTest")
@@ -70,9 +91,18 @@ $ErrorActionPreference = "Continue"
 # （TESTING.md の「PowerShell から .bat を呼ぶときの注意」と同じ）
 Remove-Item Env:\NoDefaultCurrentDirectoryInExePath -EA SilentlyContinue
 
-# 本スクリプトは root\programs に置き、C# 側（root\programs\CS）を対象とする。
-# ビルド バッチもサンプルも CS 配下にあるため、そこを起点にする。
+# 本スクリプトは root\programs に置き、その配下の CS / VB を対象とする。
+# ビルド バッチもサンプルも各言語のフォルダにあるため、そこを起点にする。
+#
+# ツール（DaoGen_Tool / DeployZipPackWithHTTP）は C# にしか無いので、
+# それらの準備・検証は $csRoot を直接参照してよい。
 $csRoot = Join-Path $PSScriptRoot "CS"
+
+# 構成ファイル（接続文字列）と Orders2 の DDL を、どちらから読むか。
+# 中身は CS / VB で同じだが、「実際に使われる構成ファイルから読む」という
+# 建て付けを崩さないため、対象に含まれる方を使う。
+$configRoot = if ($Lang -eq "VB") { Join-Path $PSScriptRoot "VB" } else { $csRoot }
+
 New-Item -ItemType Directory -Force $OutputDir | Out-Null
 
 # 対象に与える stdin（空）。
@@ -116,7 +146,7 @@ if ([Console]::OutputEncoding.CodePage -ne 65001)
 # ここで別途ハードコードすると、サンプル側の変更に追随できなくなる。
 function Get-SampleConnectionString
 {
-    $config = Join-Path $csRoot "Samples\Bat_sample\SimpleBatch_sample\App.config"
+    $config = Join-Path $configRoot "Samples\Bat_sample\SimpleBatch_sample\App.config"
     if (-not (Test-Path $config)) { return $null }
 
     $xml = [xml](Get-Content $config -Raw)
@@ -143,8 +173,10 @@ function Invoke-Sql([string]$sql)
 # ------------------------------------------------------------------
 # 対象の定義
 # ------------------------------------------------------------------
-# Name    : 表示名
-# Bat     : ビルドに使うバッチ（root\programs\CS 配下）
+# Name    : 表示名（ログのファイル名にもなるため、言語をまたいで重複させない）
+# Dir     : バッチとサンプルのあるフォルダ（root\programs からの相対）。
+#           省略時は対象言語のフォルダ。
+# Bat     : ビルドに使うバッチ（Dir 配下）
 # Exe     : 実行ファイル（net48）。Dll を指定した場合は dotnet で実行する。
 # Args    : コマンドライン引数
 # Pre     : 実行前に行う準備（スクリプト ブロック）
@@ -169,7 +201,7 @@ function Initialize-Orders2
     $exists = Invoke-Sql "SELECT OBJECT_ID('dbo.Orders2', 'U')"
     if ($null -ne $exists -and $exists -isnot [DBNull]) { return }
 
-    $ddl = Join-Path $csRoot "Samples\Bat_sample\RerunnableBatch_sample\CREATE ORDERS2.sql"
+    $ddl = Join-Path $configRoot "Samples\Bat_sample\RerunnableBatch_sample\CREATE ORDERS2.sql"
     if (-not (Test-Path $ddl))
     {
         throw "Orders2 が無く、DDL も見つかりません : $ddl"
@@ -649,7 +681,7 @@ $webFormsFlow = {
     }
 
     # マスタ ページ配下のため、コントロール名は ctl00$ContentPlaceHolder_A$ が付く。
-    # btnButton1 がログイン ボタン（btnButton2 はキャンセル）。
+    # btnButton1 がログイン ボタン（btnButton2 は「外部ログイン」。CS / VB とも同じ）。
     $fields["ctl00`$ContentPlaceHolder_A`$txtUserID"]   = "smoke"
     $fields["ctl00`$ContentPlaceHolder_A`$txtPassword"] = "smoke"
     $fields["ctl00`$ContentPlaceHolder_A`$btnButton1"]  = "ログイン"
@@ -664,7 +696,7 @@ $webFormsFlow = {
     return @{ Ok = $true; Detail = "ログイン後 menu.aspx = 200" }
 }
 
-$targets = @(
+$targetsCS = @(
     # --- バッチ (net48) ---
     @{
         Name = "SimpleBatch_sample (net48)";      Bat = "5_Build_Bat_sample.bat"
@@ -809,21 +841,116 @@ $targets = @(
     }
 )
 
+# ------------------------------------------------------------------
+# VB 版の対象
+# ------------------------------------------------------------------
+# VB にあるのは Bat_sample と WebApp_sample だけで、Core 版・CLI_sample・
+# ツール（Frameworks\Tools）は無い（#542）。
+#
+# 判定（Args / Pre / Verify / Flow）は C# 版と同じものを使い回す。
+# 上の定義と同じ変数を指しているので、片方だけ直すことができない。
+#
+# ＜ポートを分ける＞
+#   -Lang Both では C# 版と続けて起動するため、51081/51082 とは別にする。
+$targetsVB = @(
+    # --- バッチ (net48) ---
+    @{
+        Name = "SimpleBatch_sample (VB net48)";      Bat = "5_Build_Bat_sample.bat"
+        Exe  = "Samples\Bat_sample\SimpleBatch_sample\bin\Debug\SimpleBatch_sample.exe"
+        Args = $batchArgs;  Expect = '\d+件のデータがあります'
+    }
+    @{
+        Name = "RerunnableBatch_sample (VB net48)";  Bat = "5_Build_Bat_sample.bat"
+        Exe  = "Samples\Bat_sample\RerunnableBatch_sample\bin\Debug\RerunnableBatch_sample.exe"
+        Args = $batchArgs;  Pre = $clearOrders2;  Verify = $verifyOrders2
+    }
+    @{
+        Name = "RerunnableBatch_sample2 (VB net48)"; Bat = "5_Build_Bat_sample.bat"
+        Exe  = "Samples\Bat_sample\RerunnableBatch_sample2\bin\Debug\RerunnableBatch_sample2.exe"
+        Args = $batchArgs;  Pre = $clearOrders2;  Verify = $verifyOrders2
+    }
+    @{
+        Name = "RerunnableBatch_sample3 (VB net48)"; Bat = "5_Build_Bat_sample.bat"
+        Exe  = "Samples\Bat_sample\RerunnableBatch_sample3\bin\Debug\RerunnableBatch_sample3.exe"
+        Args = $batchArgs;  Pre = $clearOrders2;  Verify = $verifyOrders2
+    }
+
+    # --- Web アプリ ---
+    @{
+        Name = "MVC_Sample (VB net48)";      Bat = "10_Build_WebApp_sample.bat"
+        Kind = "Web";  WebHost = "IISExpress";  Port = 51085
+        Site = "Samples\WebApp_sample\MVC_Sample\MVC_Sample"
+        Need = "aspnet_state"
+        Flow = $mvcLoginFlow
+    }
+    @{
+        Name = "WebForms_Sample (VB net48)"; Bat = "10_Build_WebApp_sample.bat"
+        Kind = "Web";  WebHost = "IISExpress";  Port = 51086
+        Site = "Samples\WebApp_sample\WebForms_Sample\WebForms_Sample"
+        Need = "aspnet_state"
+        Flow = $webFormsFlow
+    }
+)
+
+# 省略されている Dir を、その言語のフォルダで補う。
+function Add-DefaultDir($items, [string]$dir)
+{
+    foreach ($i in $items)
+    {
+        if (-not $i.ContainsKey("Dir")) { $i.Dir = $dir }
+    }
+    return $items
+}
+
+$targets = @()
+if ($Lang -ne "VB") { $targets += @(Add-DefaultDir $targetsCS "CS") }
+if ($Lang -ne "CS") { $targets += @(Add-DefaultDir $targetsVB "VB") }
+
+# ------------------------------------------------------------------
+# VB のビルドは自己完結しない
+# ------------------------------------------------------------------
+# C# 側は各ビルド バッチが単独で通るが、VB 側は違う。
+# 5_Build_Bat_sample.bat だけを呼んでも、参照するアセンブリが揃っていないため
+# 建たない。VB\0_ExecAllBat.bat が前段で行っていることを、ここでも行う。
+#
+#   2_Build_NuGet_net48.bat（CS 側）  … 1_GetLibrariesFromCS.bat が取りに行く実体
+#   1_GetLibrariesFromCS.bat          … CS の Build_net48 を VB 配下へ複写
+#   3_Build_Business_net48.bat        … VB の Business（B層基盤）
+#   3_Build_BusinessRichClient_net48.bat
+#   4_Build_CopyAssemblies.bat        … 参照解決用の Build フォルダを作る
+#
+# ＜0_ExecAllBat.bat を丸ごと呼ばない理由＞
+#   ・1_DeleteDir.bat が bin / obj を消す。疎通は成果物を使うので、消したくない
+#   ・WinForms / WPF のサンプルまで建てる。疎通の対象ではないので、時間だけ増える
+#   ・timeout 5 が入っており、stdin をリダイレクトすると
+#     「ERROR: Input redirection is not supported」がログに出る
+$prerequisitesVB = @(
+    @{ Dir = "CS"; Bat = "2_Build_NuGet_net48.bat" }
+    @{ Dir = "VB"; Bat = "1_GetLibrariesFromCS.bat" }
+    @{ Dir = "VB"; Bat = "3_Build_Business_net48.bat" }
+    @{ Dir = "VB"; Bat = "3_Build_BusinessRichClient_net48.bat" }
+    @{ Dir = "VB"; Bat = "4_Build_CopyAssemblies.bat" }
+)
+
 # ------------------------------------------------------------------
 # ビルド
 # ------------------------------------------------------------------
-function Invoke-BuildBat([string]$bat)
+function Invoke-BuildBat([string]$dir, [string]$bat)
 {
-    $path = Join-Path $csRoot $bat
+    $root = Join-Path $PSScriptRoot $dir
+    $path = Join-Path $root $bat
+
     if (-not (Test-Path $path))
     {
-        Write-Host ("  ビルド バッチが見つかりません : {0}" -f $bat) -ForegroundColor Red
+        Write-Host ("  ビルド バッチが見つかりません : {0}\{1}" -f $dir, $bat) -ForegroundColor Red
         return $false
     }
 
-    $log = Join-Path $OutputDir ("build_" + ($bat -replace '[^A-Za-z0-9]','_') + ".log")
+    $log = Join-Path $OutputDir ("build_" + $dir + "_" + ($bat -replace '[^A-Za-z0-9]','_') + ".log")
 
-    Push-Location $csRoot
+    # バッチは自分のフォルダから呼ぶ。相対パスで参照を解決しているため、
+    # 呼び出し元のカレントが違うと、ソリューションを見つけられない。
+    Push-Location $root
     # バッチ末尾（および途中）の pause に対応するため stdin を与える。
     cmd /c "echo. | call `"$path`"" *>&1 | Out-File $log -Encoding UTF8
     Pop-Location
@@ -855,12 +982,14 @@ function Wait-Port([int]$port, [int]$timeoutSec = 30)
 
 function Start-WebHost($t, [string]$log)
 {
+    $root = Join-Path $PSScriptRoot $t.Dir
+
     if ($t.WebHost -eq "IISExpress")
     {
         $iis = Join-Path $env:ProgramFiles "IIS Express\iisexpress.exe"
         if (-not (Test-Path $iis)) { return $null }
 
-        $site = Join-Path $csRoot $t.Site
+        $site = Join-Path $root $t.Site
         return Start-Process $iis `
             -ArgumentList "/path:`"$site`"", "/port:$($t.Port)", "/systray:false" `
             -PassThru -WindowStyle Hidden `
@@ -868,7 +997,7 @@ function Start-WebHost($t, [string]$log)
     }
     else
     {
-        $dll = Join-Path $csRoot $t.Exe
+        $dll = Join-Path $root $t.Exe
         if (-not (Test-Path $dll)) { return $null }
 
         # コンテンツ ルートを合わせるため、出力フォルダを作業ディレクトリにする。
@@ -882,15 +1011,34 @@ function Start-WebHost($t, [string]$log)
 # ------------------------------------------------------------------
 # 実行
 # ------------------------------------------------------------------
-$selected = $targets | Where-Object { -not $Only -or $_.Name -like "*$Only*" }
+Write-Host ("対象 : {0}" -f $Lang) -ForegroundColor Cyan
+
+$selected = @($targets | Where-Object { -not $Only -or $_.Name -like "*$Only*" })
 
 if (-not $SkipBuild)
 {
-    foreach ($bat in ($selected | ForEach-Object { $_.Bat } | Select-Object -Unique))
+    # ビルドする単位は「フォルダ ＋ バッチ」。同じバッチ名が CS と VB の
+    # 両方にあるため（5_Build_Bat_sample.bat 等）、バッチ名だけでは一意化できない。
+    $builds = @()
+
+    # VB を含むなら、前提のビルドを先に通す。
+    if (@($selected | Where-Object { $_.Dir -eq "VB" }).Count -gt 0)
+    {
+        $builds += $prerequisitesVB
+    }
+
+    $builds += @($selected | ForEach-Object { @{ Dir = $_.Dir; Bat = $_.Bat } })
+
+    $done = @{}
+    foreach ($b in $builds)
     {
-        Write-Host ("=== ビルド : {0} ===" -f $bat) -ForegroundColor Cyan
+        $key = $b.Dir + "\" + $b.Bat
+        if ($done.ContainsKey($key)) { continue }
+        $done[$key] = $true
+
+        Write-Host ("=== ビルド : {0} ===" -f $key) -ForegroundColor Cyan
         $sw = [Diagnostics.Stopwatch]::StartNew()
-        [void](Invoke-BuildBat $bat)
+        [void](Invoke-BuildBat $b.Dir $b.Bat)
         $sw.Stop()
         Write-Host ("  完了 ({0:N1} 秒)" -f $sw.Elapsed.TotalSeconds)
     }
@@ -967,7 +1115,7 @@ foreach ($t in $selected)
     # ------------------------------------------------------------------
     # プロセス（バッチ・CLI）
     # ------------------------------------------------------------------
-    $exe = Join-Path $csRoot $t.Exe
+    $exe = Join-Path (Join-Path $PSScriptRoot $t.Dir) $t.Exe
     if (-not (Test-Path $exe))
     {
         Write-Host "  実行ファイルが見つかりません" -ForegroundColor Red
diff --git a/root/programs/BUILDING.md b/root/programs/BUILDING.md
index 3eb0abed6..8628ae720 100644
--- a/root/programs/BUILDING.md
+++ b/root/programs/BUILDING.md
@@ -1,6 +1,6 @@
 # BUILDING.md — 全ビルドの実行と判定
 
-対象: `root/programs/CS`（C# 側）
+対象: `root/programs/CS`（C# 側、既定）／ `root/programs/VB`（VB 側、`-Lang VB`）
 配置: `root/programs`
 本書は、リリース時に行っていた「build バッチで全ビルドが通ることを確認」を、
 **合否が出る形に機械化**するための手順と判定基準を記述する（#513 段階 2）。
@@ -28,12 +28,16 @@ cd root\programs
 
 # 環境に依存して必ず出るエラーを、判定から外す（4 節）
 .\1_BuildAll.ps1 -IgnoreErrors "MSB3482"
+
+# VB 側を建てる（10 節）
+.\1_BuildAll.ps1 -Lang VB
 ```
 
 終了コードは `0` = 全ステップ OK、`1` = NG あり。
 
 | オプション | 内容 |
 |---|---|
+| `-Lang <CS\|VB\|Both>` | 対象の言語（既定 `CS`）。10 節 |
 | `-Only <文字列>` | ステップ名／bat 名の部分一致で対象を絞る |
 | `-SkipClean` | クリーン処理（`1_DeleteDir` / `1_DeleteFile`）を省略 |
 | `-OutputDir <パス>` | ステップ別ログの保存先（既定 `%TEMP%\OpenTouryoBuildLogs`） |
@@ -295,6 +299,11 @@ Dependabot が PR を作成（base: develop）
 
 ①③がワークフロー、⓪②④が人の作業。`AGENTS.md` の線引き（マージは人が行う）に従う。
 
+> **VB 側は別のワークフロー**（`.github/workflows/build-windows-vb.yml`）で、
+> **手動実行（`workflow_dispatch`）だけ**である。この流れには載せていない。
+> 理由と、DB の準備を重複させている事情は 10 節と
+> [`GitHubUsage.md`](../../GitHubUsage.md) 3 節。
+
 ### ⓪ を飛ばしてはいけない
 
 **`deps` が古いまま②を行うと、③が「`develop` に入る予定の状態」を検証しなくなる。**
@@ -772,3 +781,72 @@ Core系のBinarySerializeの完全廃止対応
 Node.js 20 is deprecated. The following actions target Node.js 20 but are being
 forced to run on Node.js 24: actions/checkout@v4, actions/upload-artifact@v4
 ```
+
+---
+
+## 10. VB 側を建てる（`-Lang VB`）
+
+`-Lang VB` は `VB\0_ExecAllBat.bat` と同じ順序・同じ内容を実行する。
+`-Lang Both` は C# → VB の順で通す。
+
+```powershell
+.\1_BuildAll.ps1 -Lang VB
+.\1_BuildAll.ps1 -Lang Both
+```
+
+**解析部（`Get-Diagnostics`）は言語を問わない。** MSBuild のエラー行は
+`: error CS1002:` と `: error BC30451:` のようにコード部の綴りが違うだけで書式は同じで、
+`:\s*error(\s+[A-Za-z]+\d+)?\s*:` がどちらにも一致する。
+このため言語で違うのは「どのバッチを、どのフォルダで呼ぶか」だけになる（#542）。
+
+### `-IgnoreErrors` は VB では要らない
+
+| | CS | VB |
+|---|---|---|
+| `WS_sample/WSClient_sample` | WPF / Win / Win2 / **WinCone** | WPF / Win / Win2 |
+| `.pfx` | あり | **無し** |
+
+ClickOnce 署名のプロジェクトが無いため、4 節の `MSB3482` / `MSB3325` / `MSB3321` は出ない。
+
+### C# 側の成果物に依存する
+
+VB のステップ表は、先頭に **C# 側の** `2_Build_NuGet_net48.bat` を含む。
+`VB\1_GetLibrariesFromCS.bat` が
+
+```bat
+xcopy /E /Y "..\CS\Frameworks\Infrastructure\Build_net48" "Frameworks\Infrastructure\Build_net48\"
+```
+
+とその出力を取りに行くためで、`VB\0_ExecAllBat.bat` が `cd "..\CS"` しているのと同じ理由である。
+
+**`-Lang Both` では、この 1 ステップだけが飛ぶ**（`実行済み` と表示される）。
+C# 側の `1_DeleteDir.bat` の対象は `packages` `obj` `bin` `bld` `Temp` `PrecompiledWeb`
+`MigrationBackup` `.vs` で、**`Build_net48` を消さない**ため、C# の通しで作った出力が残るからである。
+
+> **`1_GetLibrariesFromCS.bat` の方は飛ばせない。** これはビルドではなく複写で、
+> C# を建てても VB 側には何も置かれない。しかも `VB\1_DeleteDir.bat` は 2 セット目で
+> `Build` / `Build_net48` を消すため、直前に VB 側の複写先が空になっている。
+> **クリーンの位置と順序は入れ替えないこと。**
+
+### VB のサンプルにも `nuget restore` が要る（#542 で修正）
+
+VB の `.vbproj` は `Microsoft.Data.SqlClient` などを `PackageReference` で参照している。
+**restore しないと、ネイティブ DLL が出力に配置されない。**
+
+- 管理 DLL（`Microsoft.Data.SqlClient.dll`）は `Build\` から `HintPath` 経由で入るため、
+  **ビルドは通る**
+- 落ちるのは実行時で、`Microsoft.Data.SqlClient.SNI.x64.dll` が見つからない
+
+```
+例外情報:System.DllNotFoundException
+   場所 Microsoft.Data.SqlClient.SNINativeManagedWrapperX64.SNIInitialize(IntPtr)
+```
+
+このため、パッケージを参照する sln には C# 側と同じ 1 行を置く。
+
+```bat
+..\nuget.exe restore "Samples\Bat_sample\SimpleBatch_sample\SimpleBatch_sample.sln" %NUGET_MSBUILD%
+```
+
+**ビルドの成否では気付けない。** 疎通確認（`3_SmokeTest.ps1 -Lang VB`）で初めて分かる。
+実際、#533 で「VB の全ビルドが通る」ことを確認した後も、この不具合は残っていた。
diff --git a/root/programs/CHEATSHEET.md b/root/programs/CHEATSHEET.md
index 9fed91119..69d694049 100644
--- a/root/programs/CHEATSHEET.md
+++ b/root/programs/CHEATSHEET.md
@@ -28,6 +28,8 @@ cd root\programs
 | 単体テスト | 8/8 OK、差分 0 | [`TESTING.md`](TESTING.md) |
 | 疎通 | 22/22 OK | [`SMOKETEST.md`](SMOKETEST.md) |
 
+**既定は C# 側。VB 側は `-Lang` で回す**（3 節）。
+
 - **`-IgnoreErrors` を付けないと `MSB3482` で NG になる。** ClickOnce の署名で、
   証明書が無い環境では必ず出る（[`BUILDING.md`](BUILDING.md) 4 節）。
   **`0_RunAll.ps1` はこれを渡さない**ので、`1_BuildAll.ps1` が `1` を返すことがある。
@@ -100,7 +102,17 @@ CS\NuGet\_Cleanup.bat Touryo.Infrastructure ← その接頭辞だけ
 
 ---
 
-## 3. VB 側のビルド
+## 3. VB 側のビルドと疎通
+
+```powershell
+cd root\programs
+.\0_RunAll.ps1 -Lang VB       # 1 と 3 を VB で通す（2 は対象外）
+
+.\1_BuildAll.ps1 -Lang VB     # 全ビルド（14 ステップ、4.3 分）
+.\3_SmokeTest.ps1 -Lang VB    # 疎通（6 件、1.5 分）
+```
+
+従来の bat も使える。
 
 ```
 root\programs\VB\0_ExecAllBat.bat           ← 通し（先に CS 側を建てる）
@@ -109,7 +121,13 @@ root\programs\VB\0_ExecAllBat.bat           ← 通し（先に CS 側を建て
 - 先頭で `cd "..\CS"` して C# 側の `2_Build_NuGet_net48.bat` を呼ぶ。**VB は C# の成果物に依存する**
 - **個別実行では見つからない不具合がある。** `1_DeleteDir.bat` が `obj` / `packages` を
   消した後にだけ露見するものがあるため、**通しで確かめること**（#533）
-- 合格の目安 : ビルド成功 22 / 失敗 0
+- 合格の目安 : ビルド 14/14 OK、疎通 6/6 OK
+- **`-IgnoreErrors` は要らない**（VB に ClickOnce 署名のプロジェクトが無い）
+- **単体テストは対象外**（VB にテスト プロジェクトが無い）
+
+> **VB のサンプルは `nuget restore` が要る。** しないと
+> `Microsoft.Data.SqlClient.SNI.x64.dll` が出力に入らず、**ビルドは通って実行時に落ちる**。
+> [`BUILDING.md`](BUILDING.md) 10 節・[`SMOKETEST.md`](SMOKETEST.md) 10 節。
 
 ---
 
@@ -167,6 +185,7 @@ powershell.exe -NoProfile -Command "Set-Location 'root\programs'; .\3_SmokeTest.
 |---|---|---|
 | `'xxx' is not recognized` が大量に出る | bat の非 ASCII とコード ページ | ASCII 化。[`CODING.md`](CODING.md) 4 節 |
 | `MSB4226`（`Microsoft.WebApplication.targets`） | nuget が別製品の MSBuild を拾った | `nuget.exe restore ... %NUGET_MSBUILD%` |
+| ビルドは通るのに `DllNotFoundException`（`...SNI...`） | `nuget restore` を呼んでおらず、ネイティブ DLL が出力に入らない | 該当 sln に restore を足す。[`BUILDING.md`](BUILDING.md) 10 節 |
 
 **NuGet パッケージ作成の落とし穴は
 [`CS/NuGet/README.md`](CS/NuGet/README.md) 9 節**にまとめてある。
diff --git a/root/programs/RELEASE.md b/root/programs/RELEASE.md
index 1e9c55960..0874fdf64 100644
--- a/root/programs/RELEASE.md
+++ b/root/programs/RELEASE.md
@@ -211,6 +211,21 @@ cd root\programs
 | `2_RunAllTests.ps1`（8 ケース） | 1.3 分 |
 | `3_SmokeTest.ps1`（22 件） | 2.3 分 |
 
+### VB 側は、この 3 本に含めない
+
+上の表はすべて C# 側（`-Lang` の既定）である。VB 側は `-Lang VB` で別に回す。
+
+```powershell
+.\0_RunAll.ps1 -Lang VB     # 1 と 3 だけを VB で通す（2 は対象外）
+```
+
+- **NuGet パッケージは C# 側から作る。** VB 側はリリース成果物ではない
+- VB にテスト プロジェクトは無く、単体テストは C# の `Frameworks\Tests` に集約されている
+- 所要は全ビルド 4.3 分 ＋ 疎通 1.5 分（6 件）
+
+**リリースのたびに回す必要は無いが、VB 側に手を入れたリリースでは通すこと。**
+詳細は [`BUILDING.md`](BUILDING.md) 10 節と [`SMOKETEST.md`](SMOKETEST.md) 10 節。
+
 ### 順序を守る
 
 **`1_BuildAll.ps1` → `2_RunAllTests.ps1` → `3_SmokeTest.ps1` の順で行う。**
diff --git a/root/programs/SMOKETEST.md b/root/programs/SMOKETEST.md
index 3c7a50271..ff8b4f947 100644
--- a/root/programs/SMOKETEST.md
+++ b/root/programs/SMOKETEST.md
@@ -1,6 +1,6 @@
 # SMOKETEST.md — サンプルの疎通確認
 
-対象: `root/programs/CS`（C# 側）
+対象: `root/programs/CS`（C# 側、既定）／ `root/programs/VB`（VB 側、`-Lang VB`）
 配置: `root/programs`
 本書は、リリース時に行っていた「サンプルを幾つか見繕って手動で疎通を行う」を、
 **合否が出る形に機械化**するための手順と判定基準を記述する（#513 段階 3）。
@@ -18,12 +18,16 @@ cd root\programs
 # 一部だけ（動作確認用）
 .\3_SmokeTest.ps1 -Only "net48"
 .\3_SmokeTest.ps1 -Only "Rerunnable" -SkipBuild
+
+# VB 側の疎通（10 節）
+.\3_SmokeTest.ps1 -Lang VB
 ```
 
 終了コードは `0` = 全対象 OK、`1` = NG あり。
 
 | オプション | 内容 |
 |---|---|
+| `-Lang <CS\|VB\|Both>` | 対象の言語（既定 `CS`）。10 節 |
 | `-Only <文字列>` | 対象名の部分一致で絞る |
 | `-SkipBuild` | ビルドを省略し、既存のバイナリで疎通のみ行う |
 | `-OutputDir <パス>` | ログの保存先（既定 `%TEMP%\OpenTouryoSmokeTest`） |
@@ -550,3 +554,79 @@ $client.Connect("localhost", $port)
 
 `TESTING.md` と同じく、`NoDefaultCurrentDirectoryInExePath` を解除している。
 解除しないと、バッチ内でパス区切りを含まない名前で起動している exe が動かない。
+
+---
+
+## 10. VB 側の疎通（`-Lang VB`）
+
+```powershell
+.\3_SmokeTest.ps1 -Lang VB     # VB のみ（6 件）
+.\3_SmokeTest.ps1 -Lang Both   # C# 22 件 ＋ VB 6 件
+```
+
+**既定に VB を含めない。** リリース時の検証（[`RELEASE.md`](RELEASE.md) 3 節）は
+C# 側が対象で、VB を含めると毎回 VB のビルドが乗るためである。
+
+### 対象は 6 件
+
+| C# の対象 | 件数 | VB |
+|---|---|---|
+| `Bat_sample` (net48) | 4 | **あり** |
+| `Bat_sample` (net10.0) | 4 | 無し（Core 版が無い） |
+| `CLI_sample` (net10.0) | 1 | 無し（#533 で削除） |
+| `DaoGen_Tool` | 6 | 無し（`Frameworks/Tools` は C# のみ） |
+| `DeployZipPackWithHTTP` | 4 | 同上 |
+| `MVC` / `WebForms` (net48) | 2 | **あり** |
+| `MVC` (net10.0) | 1 | 無し |
+
+### 判定は C# 版と共有している
+
+VB 版は C# 版からの移植で、疎通の手順がそのまま通る。
+
+| | CS | VB |
+|---|---|---|
+| 接続文字列名 | `ConnectionString_SQL` | **同一** |
+| MVC のログイン画面 | `@Html.AntiForgeryToken()` / `UserName` / `Password` / `name="normal"` | **`Views/Home/Login.cshtml` が同一** |
+| 認証が要る画面 | `/Crud1/Index` | `Crud1Controller.vb` に `<Authorize>` |
+| WebForms | `ctl00$ContentPlaceHolder_A$txtUserID` ほか | **同一** |
+
+このため `$targetsVB` は `Flow` / `Verify` / `Args` に**同じ変数を指している**。
+別ファイル（`3_SmokeTestVB.ps1`）に分けると、**サンプルの画面を直したとき
+片方だけ直す事故**が起きるため、そうしていない（#542）。
+
+**Web の待ち受けポートだけは分けてある**（`51085` / `51086`）。
+`-Lang Both` では C# 版（`51081` / `51082`）と続けて起動するため。
+
+### VB のビルドは自己完結しない
+
+C# 側は各ビルド バッチが単独で通るが、VB 側は違う。
+`5_Build_Bat_sample.bat` だけを呼んでも、参照するアセンブリが揃っていないため建たない。
+このため `$prerequisitesVB` として、`VB\0_ExecAllBat.bat` が前段で行っていることを先に通す。
+
+```
+CS\2_Build_NuGet_net48.bat            1_GetLibrariesFromCS.bat が取りに行く実体
+VB\1_GetLibrariesFromCS.bat           CS の Build_net48 を VB 配下へ複写
+VB\3_Build_Business_net48.bat
+VB\3_Build_BusinessRichClient_net48.bat
+VB\4_Build_CopyAssemblies.bat         参照解決用の Build フォルダを作る
+```
+
+**`0_ExecAllBat.bat` を丸ごと呼んではいない。** 理由は 3 つ。
+
+- `1_DeleteDir.bat` が `bin` / `obj` を消す。疎通は成果物を使うので、消したくない
+- WinForms / WPF のサンプルまで建てる。疎通の対象ではないので、時間だけ増える
+- `timeout 5` が入っており、stdin をリダイレクトすると
+  `ERROR: Input redirection is not supported` がログに出る
+
+ビルドの単位は「フォルダ ＋ バッチ」で一意化している。
+`5_Build_Bat_sample.bat` のように**同じ名前のバッチが CS と VB の両方にある**ため、
+バッチ名だけでは一意化できない。
+
+### ネイティブ DLL の欠落（#542 で修正）
+
+VB のサンプル ビルド バッチが `nuget restore` を呼んでおらず、
+`Microsoft.Data.SqlClient.SNI.x64.dll` が出力に入っていなかった。
+**ビルドは通り、実行時にだけ `System.DllNotFoundException` で落ちる。**
+
+この疎通確認を用意して初めて分かった不具合である。経緯は
+[`BUILDING.md`](BUILDING.md) 10 節。
diff --git a/root/programs/VB/5_Build_2CS_sample.bat b/root/programs/VB/5_Build_2CS_sample.bat
index f41ecc72c..e6f3729ec 100644
--- a/root/programs/VB/5_Build_2CS_sample.bat
+++ b/root/programs/VB/5_Build_2CS_sample.bat
@@ -18,6 +18,7 @@ call %CURRENT_DIR%z_Common.bat
 rem --------------------------------------------------
 rem Batch build of 2CSClientWin_sample.
 rem --------------------------------------------------
+..\nuget.exe restore "Samples\2CS_sample\2CSClientWin_sample\2CSClientWin_sample.sln" %NUGET_MSBUILD%
 %BUILDFILEPATH% %COMMANDLINE% "Samples\2CS_sample\2CSClientWin_sample\2CSClientWin_sample.sln"
 
 pause
@@ -25,6 +26,7 @@ pause
 rem --------------------------------------------------
 rem Batch build of GenDaoAndBatUpd_sample.
 rem --------------------------------------------------
+..\nuget.exe restore "Samples\2CS_sample\GenDaoAndBatUpd_sample\GenDaoAndBatUpd_sample.sln" %NUGET_MSBUILD%
 %BUILDFILEPATH% %COMMANDLINE% "Samples\2CS_sample\GenDaoAndBatUpd_sample\GenDaoAndBatUpd_sample.sln"
 
 pause
@@ -32,6 +34,7 @@ pause
 rem --------------------------------------------------
 rem Batch build of TimeStamp_sample.
 rem --------------------------------------------------
+..\nuget.exe restore "Samples\2CS_sample\TimeStamp_sample\TimeStamp_sample.sln" %NUGET_MSBUILD%
 %BUILDFILEPATH% %COMMANDLINE% "Samples\2CS_sample\TimeStamp_sample\TimeStamp_sample.sln"
 
 pause
@@ -39,6 +42,7 @@ pause
 rem --------------------------------------------------
 rem Batch build of 2CSClientWPF_sample.
 rem --------------------------------------------------
+..\nuget.exe restore "Samples\\2CS_sample\2CSClientWPF_sample\2CSClientWPF_sample.sln" %NUGET_MSBUILD%
 %BUILDFILEPATH% %COMMANDLINE% "Samples\\2CS_sample\2CSClientWPF_sample\2CSClientWPF_sample.sln"
 
 pause
diff --git a/root/programs/VB/5_Build_Bat_sample.bat b/root/programs/VB/5_Build_Bat_sample.bat
index 11f4c5d0e..1627c678d 100644
--- a/root/programs/VB/5_Build_Bat_sample.bat
+++ b/root/programs/VB/5_Build_Bat_sample.bat
@@ -18,6 +18,7 @@ call %CURRENT_DIR%z_Common.bat
 rem --------------------------------------------------
 rem Batch build of SimpleBatch_sample.
 rem --------------------------------------------------
+..\nuget.exe restore "Samples\Bat_sample\SimpleBatch_sample\SimpleBatch_sample.sln" %NUGET_MSBUILD%
 %BUILDFILEPATH% %COMMANDLINE% "Samples\Bat_sample\SimpleBatch_sample\SimpleBatch_sample.sln"
 
 pause
@@ -25,6 +26,7 @@ pause
 rem --------------------------------------------------
 rem Batch build of RerunnableBatch_sample.
 rem --------------------------------------------------
+..\nuget.exe restore "Samples\Bat_sample\RerunnableBatch_sample\RerunnableBatch_sample.sln" %NUGET_MSBUILD%
 %BUILDFILEPATH% %COMMANDLINE% "Samples\Bat_sample\RerunnableBatch_sample\RerunnableBatch_sample.sln"
 
 pause
@@ -32,6 +34,7 @@ pause
 rem --------------------------------------------------
 rem Batch build of RerunnableBatch_sample2.
 rem --------------------------------------------------
+..\nuget.exe restore "Samples\Bat_sample\RerunnableBatch_sample2\RerunnableBatch_sample2.sln" %NUGET_MSBUILD%
 %BUILDFILEPATH% %COMMANDLINE% "Samples\Bat_sample\RerunnableBatch_sample2\RerunnableBatch_sample2.sln"
 
 pause
@@ -39,6 +42,7 @@ pause
 rem --------------------------------------------------
 rem Batch build of RerunnableBatch_sample3.
 rem --------------------------------------------------
+..\nuget.exe restore "Samples\Bat_sample\RerunnableBatch_sample3\RerunnableBatch_sample3.sln" %NUGET_MSBUILD%
 %BUILDFILEPATH% %COMMANDLINE% "Samples\Bat_sample\RerunnableBatch_sample3\RerunnableBatch_sample3.sln"
 
 pause
diff --git a/root/programs/VB/9_Build_WSClntWPF_sample.bat b/root/programs/VB/9_Build_WSClntWPF_sample.bat
index 72cfa9c70..2fb9bf22a 100644
--- a/root/programs/VB/9_Build_WSClntWPF_sample.bat
+++ b/root/programs/VB/9_Build_WSClntWPF_sample.bat
@@ -18,6 +18,7 @@ call %CURRENT_DIR%z_Common.bat
 rem --------------------------------------------------
 rem Batch build of WSClientWPF_sample.
 rem --------------------------------------------------
+..\nuget.exe restore "Samples\WS_sample\WSClient_sample\WSClientWPF_sample\WSClientWPF_sample.sln" %NUGET_MSBUILD%
 %BUILDFILEPATH% %COMMANDLINE% "Samples\WS_sample\WSClient_sample\WSClientWPF_sample\WSClientWPF_sample.sln"
 
 pause