CreatePseudoConsole関数がエラーを返す

Question

### 実現したいことリモートサーバーのMySQLに接続し、Excelのシートにインポートするマクロを書いています。リモートサーバーのMySQLポートには直接接続できないため、SSHトンネルを確立し、ポートフォワーディングを行い、トンネル確立中にODBC接続でデータを取得しようと考えています。実際にそのマクロを利用することになる一般職員のITスキルは低く、CUIの操作でトンネルを確立させることも難しいため、コンソール画面を出さず、GUI上で「秘密鍵ファイルの指定」「パスフレーズの入力」の2つだけ行わせて、MySQLからのインポートを実現したいと考えています。（有料ソフトで解決するはずですが、予算が出ず…） ### 発生している問題・分からないことコンソールを出さないために、Windows APIのCreatePseudoConsole関数を使い、疑似コンソールを生成しようとしていますが、引数が不正であることを表す E_INVALIDARG (0x80070057) を返してきて、疑似コンソールの生成に失敗します。（エラーコードの意味は下記のページを参照） https://learn.microsoft.com/en-us/windows/win32/seccrypto/common-hresult-values ### エラーメッセージ ```error One or more arguments are not valid ``` ### 該当のソースコード ```VBA Option Explicit Option Base 0 Private Declare PtrSafe Function CloseHandle Lib "kernel32" (ByVal hObject As LongPtr) As Long Private Declare PtrSafe Function CreatePipe Lib "kernel32" (ByVal phReadPipe As LongPtr, ByVal phWritePipe As LongPtr, ByVal lpPipeAttributes As LongPtr, ByVal nSize As LongPtr) As Long Private Declare PtrSafe Function CreatePseudoConsole Lib "kernel32" (ByVal size As Long, ByVal hInput As LongPtr, ByVal hOutput As LongPtr, ByVal dwFlags As Long, ByVal phPC As LongPtr) As Long Private Declare PtrSafe Sub ClosePseudoConsole Lib "kernel32" (ByVal hPC As LongPtr) Private Const ssh_exe_path As String = "C:\Windows\System32\OpenSSH\ssh.exe" Private Const nullptr As LongPtr = 0 Private pipe_to_child As LongPtr Private pipe_from_child As LongPtr Private hpcon As LongPtr Private ssh_process As LongPtr Private Sub Class_Initialize() Dim stdin_for_child As LongPtr Dim stdout_for_child As LongPtr If CreatePipe(VarPtr(stdin_for_child), VarPtr(pipe_to_child), nullptr, 0) <> 0 Then If CreatePipe(VarPtr(pipe_from_child), VarPtr(stdout_for_child), nullptr, 0) <> 0 Then If CreatePseudoConsole(30 * 65536 + 80, stdin_for_child, stdout_for_child, 0, VarPtr(hpcon)) >= 0 Then ' FIXME: ここに到達できない CloseHandle stdout_for_child CloseHandle stdin_for_child Exit Sub End If CloseHandle pipe_from_child CloseHandle stdout_for_child End If CloseHandle pipe_to_child CloseHandle stdin_for_child End If Err.Raise 1004, , Err.LastDllError End Sub Private Sub Class_Terminate() If ssh_process Then Disconnect End If ClosePseudoConsole hpcon CloseHandle pipe_from_child CloseHandle pipe_to_child End Sub Public Sub Connect() ' TODO: ssh.exeの起動処理を記入予定 End Sub Public Sub Disconnect() ' TODO: ssh.exeの終了処理を記入予定 End Sub ``` ```C++ // 参考：APIの挙動を確認するためにC++で書いたラピッドプロトタイプ #include #include #include HANDLE CreateProcessWOnPseudoConsole(HPCON hpcon, LPCWSTR lpCmdLine); bool CreateTunnel(HANDLE process, HANDLE pipe_from_child, HANDLE pipe_to_child); void DestroyTunnel(HANDLE process, HANDLE pipe_from_child, HANDLE pipe_to_child); bool isProcessAlive(HANDLE process); void readLineFromPipe(HANDLE pipe_from_child, char8_t* buf, size_t size); void writeLineToPipe(HANDLE pipe_to_child, const char8_t* str); void removeEscapeSequence(char8_t* str); constexpr LPCWSTR commandLine = L"" "C:\Windows\System32\OpenSSH\ssh.exe " "-L XXXXX:localhost:XXXXX (IPaddress) -p XXXXX " "-i "(key_path)""; constexpr const char8_t* passPhrase = u8"xxxxxxxx"; int APIENTRY wWinMain(HINSTANCE, HINSTANCE, LPWSTR, int) { int ret = -1; // sshの標準入力、標準出力と繋ぐパイプを生成 HANDLE stdin_for_child; HANDLE pipe_to_child; if(CreatePipe(&stdin_for_child, &pipe_to_child, nullptr, 0)){ HANDLE stdout_for_child; HANDLE pipe_from_child; if(CreatePipe(&pipe_from_child, &stdout_for_child, nullptr, 0)){ // sshを動かす疑似コンソールを生成 HPCON hpcon; constexpr COORD size{80, 30}; if(SUCCEEDED(CreatePseudoConsole(size, stdin_for_child, stdout_for_child, 0, &hpcon))){ // sshを起動する if(HANDLE process = CreateProcessWOnPseudoConsole(hpcon, commandLine)){ // sshへ指示を送り、トンネルを確立する if(CreateTunnel(process, pipe_from_child, pipe_to_child)){ // TODO: 本番環境ではここでDB取得処理を書く MessageBoxW(nullptr, L"Connecting.", L"", MB_OK); ret = 0; DestroyTunnel(process, pipe_from_child, pipe_to_child); } CloseHandle(process); } ClosePseudoConsole(hpcon); } CloseHandle(pipe_from_child); CloseHandle(stdout_for_child); } CloseHandle(pipe_to_child); CloseHandle(stdin_for_child); } return ret; } // 以下省略 ``` ### 試したこと・調べたこと - [x] teratailやGoogle等で検索した - [x] ソースコードを自分なりに変更した - [ ] 知人に聞いた - [x] その他 ##### 上記の詳細・結果元々私はC++が専門で、Windows APIを使ったプログラミングもC++言語で長く経験を積んできたので、まず、C++言語でAPIの挙動を確認するためのラピッドプロトタイプを作成しました。ラピッドプロトタイプは無事に完成し、サーバーへの接続、接続中のDB更新も上手くいきました。そのため、VBA向けに移植して、目的のマクロを記述しようとしたのですが、VBAでCreatePseudoConsole関数を使うと、なぜかエラーが出る現象に直面しました。エラーコードから、引数の指定に問題があると考え、CreatePipe関数も含めて、合計3回分のAPI呼び出しの引数とメモリ配置をログファイルにダンプしてみましたが(後述1)、ラピッドプロトタイプとVBA版どちらも、同じ対応関係で変数を渡しており、どこを間違えたのか自分では気が付くことができませんでした。 Geminiにも相談し、上手くいかない原因の候補を5つ挙げるようプロンプトを書いたのですが、引数の順番、構造体の値渡しのエミュレート、プロトタイプ宣言、パイプハンドルの継承設定、引数のアライメント（後述2）、どれも再確認すれど、原因の特定には至りませんでした。 ※1:ログファイルは、次の手順で作成しました。 1. 呼ばれた関数と全く同じプロトタイプ型を持ち、メモリアドレスと中身、ポインタならその中身をログファイルに書き出すダミー関数を用意する（本物の関数を呼び出し、入出力をspyする）。 2. その関数をDLL化して、ラピッドプロトタイプとVBA版の両方に読み込ませる。 3. それぞれの版で、ダミー関数を呼び出すよう切り替える。 ※2:プロトタイプ版で逆アセンブルして、8バイト境界であることを確認、VBA版の引数をすべて8バイト単位になるよう書き換えたものの上手くいかず。 ### 補足使用環境は下記の通りです。 Windows 11 Home 25H2 Visual Studio Community 2026 Microsoft Office Home and Business 2021 お手数をおかけしますが、ご知見のあります方がいらしましたら、ご教示いただけますと幸いです。

Accepted Answer

多くの皆様からコメントを頂き、ありがとうございました。
大変申し上げにくいのですが、今回は、「原因不能だがおそらく不可能」という結論とさせていただきます。
AkitoshiManabe様の仰るように、シングルスレッドという性質上推奨されないことは承知しておりながら、会社の指示ということで設計しておりましたが、昨日、開発方針が変わり、利用するDBの置き場サーバーを変更し、VPN接続が必須化されることになりました。
VPNの接続はもはやExcelのアドインとssh.exeでは解決できないレベルのため、VPNのためにソフトウェアを入れることになったのですが、そのインストール時に専用のバッチファイルを入れ、コマンドラインからトンネルのonをした上でexcelに取り込みを行わせることになりました。
ここまでご協力いただいた皆様には申し訳ございませんが、vbaにこだわる必要がなくなったこと、何卒ご理解いただけますと幸いです。