@ishibashi0112/webview2-bridge-gen 0.2.0 → 0.3.0

package/template/myapp/dotnet/MyApp.Contract/Generated/Events.vb

@@ -0,0 +1,32 @@
+' <auto-generated>
+'     This code was generated by @ishibashi0112/webview2-bridge-gen from contract.schema.json.
+'     DO NOT EDIT. Changes will be lost when `pnpm gen` runs.
+' </auto-generated>
+Option Strict On
+Option Explicit On
+Option Infer On
+
+Imports System
+Imports WebView2Bridge.Runtime
+
+Namespace Global.MyApp.Contract
+
+    ''' <summary>Host → Web の型付きイベント発行ヘルパ。内部で IBridgeEmitter.Emit("event.&lt;name&gt;", payload) を呼ぶ</summary>
+    Public Class BridgeEvents
+        Private ReadOnly _emitter As IBridgeEmitter
+
+        Public Sub New(emitter As IBridgeEmitter)
+            If emitter Is Nothing Then Throw New ArgumentNullException(NameOf(emitter))
+            _emitter = emitter
+        End Sub
+
+        ''' <summary>契約に含まれる全イベント名</summary>
+        Public Shared ReadOnly EventNames As String() = {"event.progress"}
+
+        ''' <summary>JSON-RPC notification "event.progress"</summary>
+        Public Sub Progress(payload As ProgressEvent)
+            _emitter.Emit("event.progress", payload)
+        End Sub
+    End Class
+
+End Namespace

package/template/myapp/dotnet/MyApp.Contract/Generated/Interfaces.vb

@@ -0,0 +1,20 @@
+' <auto-generated>
+'     This code was generated by @ishibashi0112/webview2-bridge-gen from contract.schema.json.
+'     DO NOT EDIT. Changes will be lost when `pnpm gen` runs.
+' </auto-generated>
+Option Strict On
+Option Explicit On
+Option Infer On
+
+Imports System
+Imports System.Threading.Tasks
+
+Namespace Global.MyApp.Contract
+
+    ''' <summary>"customers.*" メソッドの実装。人間が Implements して WebView2Bridge.Impl に置く</summary>
+    Public Interface ICustomersApi
+        ''' <summary>JSON-RPC method "customers.list"</summary>
+        Function List(req As CustomersListRequest) As Task(Of CustomersListResponse)
+    End Interface
+
+End Namespace

package/template/myapp/dotnet/MyApp.Contract/MyApp.Contract.vbproj

@@ -0,0 +1,9 @@
+<Project Sdk="Microsoft.NET.Sdk">
+  <PropertyGroup>
+    <TargetFramework>netstandard2.0</TargetFramework>
+    <RootNamespace>MyApp.Contract</RootNamespace>
+  </PropertyGroup>
+  <ItemGroup>
+    <PackageReference Include="Newtonsoft.Json" Version="13.0.4" />
+  </ItemGroup>
+</Project>

package/template/myapp/dotnet/MyApp.Contract/Runtime/Dispatcher.vb

@@ -0,0 +1,151 @@
+' <auto-generated>
+'     webview2-bridge VB JSON-RPC runtime (namespace WebView2Bridge.Runtime; needs Newtonsoft.Json)
+'     copied by @ishibashi0112/webview2-bridge-gen 0.3.0 from its bundled vb-runtime/runtime/.
+'     DO NOT EDIT. Changes will be lost when `pnpm gen` runs.
+'     To update, upgrade the npm package and run the generator again.
+' </auto-generated>
+Option Strict On
+
+Imports System
+Imports System.Collections.Generic
+Imports System.Threading.Tasks
+Imports Newtonsoft.Json
+Imports Newtonsoft.Json.Linq
+
+Namespace Global.WebView2Bridge.Runtime
+
+    ''' <summary>
+    ''' JSON-RPC 要求文字列を受け取り、登録されたハンドラへ振り分けて応答文字列を返す。
+    ''' 手書き側（このファイル）は契約に依存しない汎用部分。
+    ''' 生成側（Dispatcher.Generated.vb）が Register(api As IXxxApi) を提供し、RegisterHandler を呼ぶ。
+    ''' WebView2 には依存しない。
+    ''' </summary>
+    Partial Public Class Dispatcher
+
+        ''' <summary>型消去したハンドラ。params(JToken) → 結果(Object)</summary>
+        Private Interface IHandler
+            Function InvokeAsync(params As JToken) As Task(Of Object)
+        End Interface
+
+        Private NotInheritable Class TypedHandler(Of TReq, TRes)
+            Implements IHandler
+
+            Private ReadOnly _handler As Func(Of TReq, Task(Of TRes))
+            Private ReadOnly _serializer As JsonSerializer
+
+            Public Sub New(handler As Func(Of TReq, Task(Of TRes)), serializer As JsonSerializer)
+                _handler = handler
+                _serializer = serializer
+            End Sub
+
+            Public Async Function InvokeAsync(params As JToken) As Task(Of Object) Implements IHandler.InvokeAsync
+                Dim req As TReq
+                Try
+                    ' params 省略時は {} として扱う（全プロパティ optional な入力を許す）
+                    Dim source As JToken = If(params Is Nothing OrElse params.Type = JTokenType.Null, New JObject(), params)
+                    If source.Type <> JTokenType.Object Then
+                        Throw New JsonRpcException(JsonRpcErrorCodes.InvalidParams, "Invalid params: expected an object")
+                    End If
+                    req = source.ToObject(Of TReq)(_serializer)
+                Catch ex As JsonException
+                    Throw New JsonRpcException(JsonRpcErrorCodes.InvalidParams, "Invalid params: " & ex.Message, ex.GetType().FullName)
+                End Try
+                Dim result As TRes = Await _handler(req).ConfigureAwait(False)
+                Return result
+            End Function
+        End Class
+
+        Private ReadOnly _handlers As New Dictionary(Of String, IHandler)(StringComparer.Ordinal)
+        Private ReadOnly _serializer As JsonSerializer
+
+        Public Sub New()
+            Me.New(JsonRpc.CreateSerializerSettings())
+        End Sub
+
+        Public Sub New(settings As JsonSerializerSettings)
+            If settings Is Nothing Then Throw New ArgumentNullException(NameOf(settings))
+            _serializer = JsonSerializer.Create(settings)
+        End Sub
+
+        ''' <summary>JSON の読み書きに使うシリアライザ。Host 側の通知にも同じものを使う</summary>
+        Public ReadOnly Property Serializer As JsonSerializer
+            Get
+                Return _serializer
+            End Get
+        End Property
+
+        ''' <summary>登録済みメソッド名</summary>
+        Public ReadOnly Property RegisteredMethods As IEnumerable(Of String)
+            Get
+                Return _handlers.Keys
+            End Get
+        End Property
+
+        ''' <summary>
+        ''' 型付きハンドラを登録する。通常は生成側の Register(api) から呼ばれる。
+        ''' 同名メソッドは後勝ち。
+        ''' </summary>
+        Public Sub RegisterHandler(Of TReq, TRes)(method As String, handler As Func(Of TReq, Task(Of TRes)))
+            If String.IsNullOrEmpty(method) Then Throw New ArgumentException("method is required", NameOf(method))
+            If handler Is Nothing Then Throw New ArgumentNullException(NameOf(handler))
+            _handlers(method) = New TypedHandler(Of TReq, TRes)(handler, _serializer)
+        End Sub
+
+        ''' <summary>
+        ''' 要求 JSON を処理し、応答 JSON を返す。例外は投げず、必ず JSON-RPC エラー応答にする。
+        ''' 要求に id が無い（通知）場合は処理だけ行い Nothing を返す。
+        ''' </summary>
+        Public Async Function HandleAsync(requestJson As String) As Task(Of String)
+            Dim id As JToken = Nothing
+            Dim hasId As Boolean = False
+            Try
+                Dim token As JToken
+                Try
+                    token = JsonRpc.ParseToken(If(requestJson, String.Empty))
+                Catch ex As JsonException
+                    Return JsonRpc.BuildError(Nothing, JsonRpcErrorCodes.ParseError, "Parse error: " & ex.Message, Nothing, _serializer)
+                End Try
+
+                Dim request = TryCast(token, JObject)
+                If request Is Nothing Then
+                    Return JsonRpc.BuildError(Nothing, JsonRpcErrorCodes.InvalidRequest, "Invalid Request: expected an object", Nothing, _serializer)
+                End If
+
+                Dim idToken As JToken = Nothing
+                If request.TryGetValue("id", idToken) AndAlso idToken.Type <> JTokenType.Null Then
+                    id = idToken
+                    hasId = True
+                End If
+
+                Dim methodToken As JToken = Nothing
+                If Not request.TryGetValue("method", methodToken) OrElse methodToken.Type <> JTokenType.String Then
+                    Return If(hasId, JsonRpc.BuildError(id, JsonRpcErrorCodes.InvalidRequest, "Invalid Request: method is required", Nothing, _serializer), Nothing)
+                End If
+                Dim method As String = methodToken.Value(Of String)()
+
+                Dim handler As IHandler = Nothing
+                If Not _handlers.TryGetValue(method, handler) Then
+                    Return If(hasId, JsonRpc.BuildError(id, JsonRpcErrorCodes.MethodNotFound, "Method not found: " & method, Nothing, _serializer), Nothing)
+                End If
+
+                Dim params As JToken = Nothing
+                request.TryGetValue("params", params)
+
+                Dim result As Object = Await handler.InvokeAsync(params).ConfigureAwait(False)
+                Return If(hasId, JsonRpc.BuildResult(id, result, _serializer), Nothing)
+
+            Catch ex As JsonRpcException
+                Return If(hasId, JsonRpc.BuildError(id, ex.Code, ex.Message, ex.ErrorData, _serializer), Nothing)
+            Catch ex As Exception
+                ' 実装側の未処理例外: -32000、message に例外メッセージ、data に例外型名（HANDOFF.md §5）
+                Return If(hasId, JsonRpc.BuildError(id, JsonRpcErrorCodes.ServerError, ex.Message, ex.GetType().FullName, _serializer), Nothing)
+            End Try
+        End Function
+
+        ''' <summary>Host → Web の通知 JSON を作る（送信は Host 側）</summary>
+        Public Function BuildNotification(method As String, params As Object) As String
+            Return JsonRpc.BuildNotification(method, params, _serializer)
+        End Function
+    End Class
+
+End Namespace

package/template/myapp/dotnet/MyApp.Contract/Runtime/IBridgeEmitter.vb

@@ -0,0 +1,22 @@
+' <auto-generated>
+'     webview2-bridge VB JSON-RPC runtime (namespace WebView2Bridge.Runtime; needs Newtonsoft.Json)
+'     copied by @ishibashi0112/webview2-bridge-gen 0.3.0 from its bundled vb-runtime/runtime/.
+'     DO NOT EDIT. Changes will be lost when `pnpm gen` runs.
+'     To update, upgrade the npm package and run the generator again.
+' </auto-generated>
+Option Strict On
+
+Namespace Global.WebView2Bridge.Runtime
+
+    ''' <summary>
+    ''' Host → Web の通知（JSON-RPC notification）を送る口。
+    ''' Contract は WebView2 に依存しないので、実体は Host 側（WebViewBridge）が実装する。
+    ''' 生成される BridgeEvents はこれを通して "event.&lt;name&gt;" を発行する。
+    ''' </summary>
+    Public Interface IBridgeEmitter
+        ''' <param name="method">"event.progress" のような通知名</param>
+        ''' <param name="params">ペイロード（生成 DTO）。Nothing 可</param>
+        Sub Emit(method As String, params As Object)
+    End Interface
+
+End Namespace

package/template/myapp/dotnet/MyApp.Contract/Runtime/JsonRpc.vb

@@ -0,0 +1,130 @@
+' <auto-generated>
+'     webview2-bridge VB JSON-RPC runtime (namespace WebView2Bridge.Runtime; needs Newtonsoft.Json)
+'     copied by @ishibashi0112/webview2-bridge-gen 0.3.0 from its bundled vb-runtime/runtime/.
+'     DO NOT EDIT. Changes will be lost when `pnpm gen` runs.
+'     To update, upgrade the npm package and run the generator again.
+' </auto-generated>
+Option Strict On
+
+Imports System
+Imports System.IO
+Imports Newtonsoft.Json
+Imports Newtonsoft.Json.Linq
+
+Namespace Global.WebView2Bridge.Runtime
+
+    ''' <summary>JSON-RPC 2.0 のエラーコード（HANDOFF.md §5）</summary>
+    Public NotInheritable Class JsonRpcErrorCodes
+        Private Sub New()
+        End Sub
+
+        Public Const ParseError As Integer = -32700
+        Public Const InvalidRequest As Integer = -32600
+        Public Const MethodNotFound As Integer = -32601
+        Public Const InvalidParams As Integer = -32602
+        Public Const InternalError As Integer = -32603
+        ''' <summary>アプリ定義エラーの既定値。実装側の未処理例外はこのコードになる</summary>
+        Public Const ServerError As Integer = -32000
+    End Class
+
+    ''' <summary>
+    ''' 実装（IXxxApi）から意図的に JSON-RPC エラーを返したいときに投げる。
+    ''' Code は -32000 以下のアプリ定義コードを使う。
+    ''' </summary>
+    Public Class JsonRpcException
+        Inherits Exception
+
+        Public ReadOnly Property Code As Integer
+        Public ReadOnly Property ErrorData As Object
+
+        Public Sub New(code As Integer, message As String)
+            Me.New(code, message, Nothing)
+        End Sub
+
+        Public Sub New(code As Integer, message As String, data As Object)
+            MyBase.New(message)
+            Me.Code = code
+            Me.ErrorData = data
+        End Sub
+    End Class
+
+    ''' <summary>JSON-RPC 封筒の組み立て・解釈。Dispatcher と Host（WebViewBridge）が共用する</summary>
+    Public NotInheritable Class JsonRpc
+        Private Sub New()
+        End Sub
+
+        Public Const Version As String = "2.0"
+
+        ''' <summary>
+        ''' ブリッジ全体で使う Newtonsoft の設定。
+        ''' DateParseHandling.None: "2024-01-01T00:00:00Z" のような文字列を Date に変換せず、文字列のまま往復させる。
+        ''' </summary>
+        Public Shared Function CreateSerializerSettings() As JsonSerializerSettings
+            Return New JsonSerializerSettings() With {
+                .DateParseHandling = DateParseHandling.None,
+                .NullValueHandling = NullValueHandling.Include,
+                .Formatting = Formatting.None
+            }
+        End Function
+
+        ''' <summary>JSON 文字列 → JToken。日付文字列を自動変換しない</summary>
+        Public Shared Function ParseToken(json As String) As JToken
+            Using sr As New StringReader(json)
+                Using reader As New JsonTextReader(sr)
+                    reader.DateParseHandling = DateParseHandling.None
+                    Dim token = JToken.ReadFrom(reader)
+                    ' 末尾にゴミが無いことを確認する（"{}{}" のような入力を弾く）
+                    If reader.Read() Then
+                        Throw New JsonReaderException("Additional text found after JSON root")
+                    End If
+                    Return token
+                End Using
+            End Using
+        End Function
+
+        ''' <summary>成功応答 {"jsonrpc":"2.0","id":...,"result":...}</summary>
+        Public Shared Function BuildResult(id As JToken, result As Object, serializer As JsonSerializer) As String
+            Dim resultToken As JToken = If(result Is Nothing, CType(JValue.CreateNull(), JToken), JToken.FromObject(result, serializer))
+            Dim o As New JObject() From {
+                {"jsonrpc", Version},
+                {"id", NormalizeId(id)},
+                {"result", resultToken}
+            }
+            Return o.ToString(Formatting.None)
+        End Function
+
+        ''' <summary>エラー応答 {"jsonrpc":"2.0","id":...,"error":{"code","message","data"}}</summary>
+        Public Shared Function BuildError(id As JToken, code As Integer, message As String, data As Object, serializer As JsonSerializer) As String
+            Dim dataToken As JToken = If(data Is Nothing, CType(JValue.CreateNull(), JToken), JToken.FromObject(data, serializer))
+            Dim err As New JObject() From {
+                {"code", code},
+                {"message", If(message, String.Empty)},
+                {"data", dataToken}
+            }
+            Dim o As New JObject() From {
+                {"jsonrpc", Version},
+                {"id", NormalizeId(id)},
+                {"error", err}
+            }
+            Return o.ToString(Formatting.None)
+        End Function
+
+        ''' <summary>通知 {"jsonrpc":"2.0","method":...,"params":...}（id なし）</summary>
+        Public Shared Function BuildNotification(method As String, params As Object, serializer As JsonSerializer) As String
+            If String.IsNullOrEmpty(method) Then Throw New ArgumentException("method is required", NameOf(method))
+            Dim paramsToken As JToken = If(params Is Nothing, CType(JValue.CreateNull(), JToken), JToken.FromObject(params, serializer))
+            Dim o As New JObject() From {
+                {"jsonrpc", Version},
+                {"method", method},
+                {"params", paramsToken}
+            }
+            Return o.ToString(Formatting.None)
+        End Function
+
+        Private Shared Function NormalizeId(id As JToken) As JToken
+            If id Is Nothing Then Return JValue.CreateNull()
+            Return id.DeepClone()
+        End Function
+    End Class
+
+End Namespace

package/template/myapp/dotnet/MyApp.Host/Bridge/WebViewBridge.vb

@@ -0,0 +1,106 @@
+' <auto-generated>
+'     webview2-bridge VB WinForms bridge (namespace WebView2Bridge.WinForms; needs Microsoft.Web.WebView2 and the runtime)
+'     copied by @ishibashi0112/webview2-bridge-gen 0.3.0 from its bundled vb-runtime/winforms/.
+'     DO NOT EDIT. Changes will be lost when `pnpm gen` runs.
+'     To update, upgrade the npm package and run the generator again.
+' </auto-generated>
+Option Strict On
+
+Imports System
+Imports System.Diagnostics
+Imports System.Windows.Forms
+Imports Microsoft.Web.WebView2.Core
+Imports Microsoft.Web.WebView2.WinForms
+Imports WebView2Bridge.Runtime
+
+Namespace Global.WebView2Bridge.WinForms
+
+''' <summary>
+''' WebView2 コントロールと Dispatcher をつなぐ。
+'''   Web → Host: WebMessageReceived → Dispatcher.HandleAsync → PostWebMessageAsJson
+'''   Host → Web: Emit(method, payload) → 通知 JSON → PostWebMessageAsJson（UI スレッドへマーシャリング）
+''' AddHostObjectToScript は使わない（HANDOFF.md §5）。
+''' </summary>
+Public NotInheritable Class WebViewBridge
+    Implements IBridgeEmitter
+    Implements IDisposable
+
+    Private ReadOnly _webView As WebView2
+    Private ReadOnly _dispatcher As Dispatcher
+    Private _core As CoreWebView2
+    Private _attached As Boolean
+
+    Public Sub New(webView As WebView2, dispatcher As Dispatcher)
+        If webView Is Nothing Then Throw New ArgumentNullException(NameOf(webView))
+        If dispatcher Is Nothing Then Throw New ArgumentNullException(NameOf(dispatcher))
+        _webView = webView
+        _dispatcher = dispatcher
+    End Sub
+
+    Public ReadOnly Property Dispatcher As Dispatcher
+        Get
+            Return _dispatcher
+        End Get
+    End Property
+
+    ''' <summary>EnsureCoreWebView2Async の後に呼ぶ。WebMessageReceived を購読する</summary>
+    Public Sub Attach()
+        If _attached Then Return
+        If _webView.CoreWebView2 Is Nothing Then
+            Throw New InvalidOperationException("Call EnsureCoreWebView2Async before Attach")
+        End If
+        _core = _webView.CoreWebView2
+        AddHandler _core.WebMessageReceived, AddressOf OnWebMessageReceived
+        _attached = True
+    End Sub
+
+    Private Async Sub OnWebMessageReceived(sender As Object, e As CoreWebView2WebMessageReceivedEventArgs)
+        ' Web 側は postMessage(obj) で送るので WebMessageAsJson で受ける（TryGetWebMessageAsString は使わない）
+        Dim requestJson As String = e.WebMessageAsJson
+        Dim responseJson As String
+        Try
+            ' HandleAsync は例外を投げず JSON-RPC エラーに変換する。ここは UI スレッドに戻ってくる
+            responseJson = Await _dispatcher.HandleAsync(requestJson)
+        Catch ex As Exception
+            Debug.WriteLine($"[WebViewBridge] unexpected: {ex}")
+            Return
+        End Try
+        If responseJson Is Nothing Then Return ' 通知（id なし）には応答しない
+        Post(responseJson)
+    End Sub
+
+    ''' <summary>Host → Web の通知。どのスレッドから呼んでもよい</summary>
+    Public Sub Emit(method As String, params As Object) Implements IBridgeEmitter.Emit
+        Dim json As String = _dispatcher.BuildNotification(method, params)
+        Post(json)
+    End Sub
+
+    Private Sub Post(json As String)
+        If _core Is Nothing OrElse _webView.IsDisposed Then Return
+        If _webView.InvokeRequired Then
+            _webView.BeginInvoke(New Action(Sub() PostOnUiThread(json)))
+        Else
+            PostOnUiThread(json)
+        End If
+    End Sub
+
+    Private Sub PostOnUiThread(json As String)
+        If _core Is Nothing OrElse _webView.IsDisposed Then Return
+        Try
+            _core.PostWebMessageAsJson(json)
+        Catch ex As Exception
+            ' ナビゲーション中・破棄中など。ブリッジ自体は落とさない
+            Debug.WriteLine($"[WebViewBridge] PostWebMessageAsJson failed: {ex.Message}")
+        End Try
+    End Sub
+
+    Public Sub Dispose() Implements IDisposable.Dispose
+        If _attached AndAlso _core IsNot Nothing Then
+            RemoveHandler _core.WebMessageReceived, AddressOf OnWebMessageReceived
+        End If
+        _attached = False
+        _core = Nothing
+    End Sub
+End Class
+
+End Namespace

package/template/myapp/dotnet/MyApp.Host/MainForm.vb

@@ -0,0 +1,90 @@
+Option Strict On
+
+Imports System
+Imports System.IO
+Imports System.Windows.Forms
+Imports Microsoft.Web.WebView2.Core
+Imports Microsoft.Web.WebView2.WinForms
+Imports MyApp.Contract
+Imports MyApp.Impl
+Imports WebView2Bridge.Runtime
+Imports WebView2Bridge.WinForms
+
+''' <summary>
+''' 窓 + WebView2 + Dispatcher。人間が書くホスト側はこのファイルだけ（WebViewBridge は gen が Bridge/ に書く）。
+'''   Debug かつ環境変数 WEBVIEW2_BRIDGE_DEV_URL があれば Vite dev server へ（通常 http://localhost:5173）
+'''   それ以外は exe 隣の wwwroot を https://app.local/ にマッピングして index.html を開く
+''' VS のフォームデザイナは使っていない（コードで WebView2 を Dock=Fill している）。
+''' デザイナで部品を足したくなったら MainForm.Designer.vb に分離する。
+''' </summary>
+Public Class MainForm
+    Inherits Form
+
+    Public Const VirtualHost As String = "app.local"
+    Public Const DevUrlEnvVar As String = "WEBVIEW2_BRIDGE_DEV_URL"
+
+    Private ReadOnly WebView As New WebView2() With {.Dock = DockStyle.Fill}
+    Private _bridge As WebViewBridge
+
+    Public Sub New()
+        Text = "MyApp"
+        Width = 1000
+        Height = 700
+        Controls.Add(WebView)
+    End Sub
+
+    Private Async Sub MainForm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Try
+            ' ユーザーデータは exe 隣ではなく LocalAppData に置く（Program Files 配下でも動くように）
+            Dim userDataFolder = Path.Combine(
+                Environment.GetFolderPath(Environment.SpecialFolder.LocalApplicationData), "MyApp")
+            Dim env = Await CoreWebView2Environment.CreateAsync(Nothing, userDataFolder)
+            Await WebView.EnsureCoreWebView2Async(env)
+
+            Dim core = WebView.CoreWebView2
+            core.Settings.AreDevToolsEnabled = True ' F12 で DevTools
+            core.Settings.IsStatusBarEnabled = False
+
+            ' 契約の実装を Dispatcher に登録する（API を増やしたらここに Register を足す）
+            Dim dispatcher As New Dispatcher()
+            _bridge = New WebViewBridge(WebView, dispatcher)
+            Dim events As New BridgeEvents(_bridge)
+            dispatcher.Register(New CustomersApi(events))
+            _bridge.Attach()
+
+            Dim devUrl = DevServerUrl()
+            If devUrl IsNot Nothing Then
+                Text = $"MyApp - dev ({devUrl})"
+                core.Navigate(devUrl)
+            Else
+                Dim wwwroot = Path.Combine(AppDomain.CurrentDomain.BaseDirectory, "wwwroot")
+                If Not File.Exists(Path.Combine(wwwroot, "index.html")) Then
+                    ' 無いフォルダを SetVirtualHostNameToFolderMapping に渡すと DirectoryNotFoundException になるので、ここで止める
+                    MessageBox.Show(
+                        $"wwwroot が見つかりません: {wwwroot}{Environment.NewLine}" &
+                        "`pnpm build:web` の後に Host をビルドすると web/dist がコピーされます。" & Environment.NewLine &
+                        $"開発中は環境変数 {DevUrlEnvVar}=http://localhost:5173 を設定して起動してください。",
+                        Text, MessageBoxButtons.OK, MessageBoxIcon.Warning)
+                    Return
+                End If
+                core.SetVirtualHostNameToFolderMapping(VirtualHost, wwwroot, CoreWebView2HostResourceAccessKind.Allow)
+                core.Navigate($"https://{VirtualHost}/index.html")
+            End If
+        Catch ex As Exception
+            MessageBox.Show(ex.ToString(), "WebView2 の初期化に失敗しました", MessageBoxButtons.OK, MessageBoxIcon.Error)
+        End Try
+    End Sub
+
+    ''' <summary>Debug ビルドで WEBVIEW2_BRIDGE_DEV_URL が設定されていればその URL、それ以外は Nothing</summary>
+    Private Shared Function DevServerUrl() As String
+#If DEBUG Then
+        Dim url = Environment.GetEnvironmentVariable(DevUrlEnvVar)
+        If Not String.IsNullOrWhiteSpace(url) Then Return url.Trim()
+#End If
+        Return Nothing
+    End Function
+
+    Private Sub MainForm_FormClosed(sender As Object, e As FormClosedEventArgs) Handles MyBase.FormClosed
+        _bridge?.Dispose()
+    End Sub
+End Class

package/template/myapp/dotnet/MyApp.Host/MyApp.Host.vbproj

@@ -0,0 +1,28 @@
+<Project Sdk="Microsoft.NET.Sdk">
+  <PropertyGroup>
+    <OutputType>WinExe</OutputType>
+    <TargetFramework>net48</TargetFramework>
+    <UseWindowsForms>true</UseWindowsForms>
+    <RootNamespace>MyApp.Host</RootNamespace>
+    <MyType>WindowsForms</MyType>
+    <StartupObject>MyApp.Host.Program</StartupObject>
+    <!--
+      AnyCPU のままだと Windows の dotnet build で exe は 64 ビット、WebView2Loader.dll は x86 だけ出力されて
+      起動時に BadImageFormatException になる（SDK が .NET Framework exe に win7-x86 を仮定し、WebView2 の
+      ローダーコピーと食い違う）。x64 に固定して揃える。32 ビット専用の DB ドライバ等が要るなら x86 にする。
+    -->
+    <PlatformTarget>x64</PlatformTarget>
+    <WebDistDir>$(MSBuildProjectDirectory)\..\..\web\dist</WebDistDir>
+  </PropertyGroup>
+  <ItemGroup>
+    <PackageReference Include="Microsoft.Web.WebView2" Version="1.0.4191.47" />
+    <PackageReference Include="Newtonsoft.Json" Version="13.0.4" />
+    <ProjectReference Include="..\MyApp.Contract\MyApp.Contract.vbproj" />
+    <ProjectReference Include="..\MyApp.Impl\MyApp.Impl.vbproj" />
+  </ItemGroup>
+  <Target Name="CopyWebDist" AfterTargets="Build" Condition="Exists('$(WebDistDir)\index.html')">
+    <ItemGroup><WebDistFiles Include="$(WebDistDir)\**\*" /></ItemGroup>
+    <RemoveDir Directories="$(OutDir)wwwroot" />
+    <Copy SourceFiles="@(WebDistFiles)" DestinationFiles="@(WebDistFiles->'$(OutDir)wwwroot\%(RecursiveDir)%(Filename)%(Extension)')" />
+  </Target>
+</Project>

package/template/myapp/dotnet/MyApp.Host/Program.vb

@@ -0,0 +1,12 @@
+Option Strict On
+Imports System
+Imports System.Windows.Forms
+
+Friend Module Program
+    <STAThread>
+    Friend Sub Main()
+        Application.EnableVisualStyles()
+        Application.SetCompatibleTextRenderingDefault(False)
+        Application.Run(New MainForm())
+    End Sub
+End Module

package/template/myapp/dotnet/MyApp.Impl/CustomersApi.vb

@@ -0,0 +1,38 @@
+Option Strict On
+
+Imports System
+Imports System.Collections.Generic
+Imports System.Linq
+Imports System.Threading.Tasks
+Imports MyApp.Contract
+
+''' <summary>
+''' "customers.*" の実装。人間が書く VB はこのようなクラスと MainForm だけ。
+''' ここで SqlClient / Oracle.ManagedDataAccess 等を使い DB と話す。
+''' 振る舞いは web/src/bridge.ts のモックと揃えておく（ブラウザ単体と WebView2 内で同じ動きにする）。
+''' </summary>
+Public Class CustomersApi
+    Implements ICustomersApi
+
+    Private ReadOnly _events As BridgeEvents
+
+    Private Shared ReadOnly Data As Customer() = {
+        New Customer With {.Id = "1", .Name = "山田商事"},
+        New Customer With {.Id = "2", .Name = "佐藤工業"},
+        New Customer With {.Id = "3", .Name = "鈴木電機"}
+    }
+
+    ''' <param name="events">進捗などのイベント発行先。Nothing なら発行しない</param>
+    Public Sub New(events As BridgeEvents)
+        _events = events
+    End Sub
+
+    Public Async Function List(req As CustomersListRequest) As Task(Of CustomersListResponse) Implements ICustomersApi.List
+        _events?.Progress(New ProgressEvent With {.Percent = 0})
+        Await Task.Delay(100).ConfigureAwait(False)
+        Dim kw = If(req.Keyword, "")
+        Dim hit = Data.Where(Function(c) c.Name.Contains(kw)).ToList()
+        _events?.Progress(New ProgressEvent With {.Percent = 100})
+        Return New CustomersListResponse With {.Items = hit}
+    End Function
+End Class

package/template/myapp/dotnet/MyApp.Impl/MyApp.Impl.vbproj

@@ -0,0 +1,9 @@
+<Project Sdk="Microsoft.NET.Sdk">
+  <PropertyGroup>
+    <TargetFramework>net48</TargetFramework>
+    <RootNamespace>MyApp.Impl</RootNamespace>
+  </PropertyGroup>
+  <ItemGroup>
+    <ProjectReference Include="..\MyApp.Contract\MyApp.Contract.vbproj" />
+  </ItemGroup>
+</Project>