SendMessageのプロセス間通信でエラー (ID:147880)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 > 今までSendMessageA や FindWindowAしか使用したことがありませんでしたが、 > SendMessageW,FindWindowWを使用して希望の動作になることを確認しました。 FindWindowA の場合、Shift_JIS で表現できない文字列、たとえば Dim nihao As String = ChrW(&H4F60) & "好" Dim cubicMeter As String = ChrW(&H33A5) などが使われているウィンドウを処理することができません。 今回は A でも W でも動作させれらるとは思いますが、Win98 系向けの VB.NET アプリを作るわけでは無いのなら、A 系を採用するメリットは あまり無いと思います。 > ByVal wParam As Integer, _ Int32 型を採用されているようですが、WPARAM のサイズは 4バイト固定ではなく、Win16/Win32/Win64 環境で異なる事に注意してください。 WPARAM/LPARAM のサイズはポインターの幅であるため、本来は wParam/lParam 共に IntPtr で宣言されるべきものです。 さらに言えば、SendMessage の戻り値である LRESULT 型についても、 本来は IntPtr とすることが求められます。 ただし 32bit 環境でしか実行されない場合に限っては、 ByVal wParam As Integer を用いることもできます。 4 バイト幅の環境で動作することを保証したいのであれば、今回のコードを x86 ビルドにてコンパイルするようにしてください。AnyCPU でビルドするなら IntPtr 型で宣言する必要があります。 > If WH_WatchDog <> 0 Then これだと、Option Strict On モードでコンパイルが通らなくなります。 WH_WatchDog は Integer ではなく IntPtr なので、 比較するべきは 0 ではなく、IntPtr.Zero となります。 > cds.dwData = 0 これも同様の理由から、「cds.dwData = IntPtr.Zero」とすべきです。 > cds.cbData = len + 1 +1 している理由は何ですか? > Dim bytearry() As Byte = System.Text.Encoding.Default.GetBytes(txt) > Dim len As Integer = bytearry.Length String 型として lpData を用意するのであれば、COPYDATASTRUCT に <StructLayout(…)> で Charset 指定を明示した方が良いでしょう。 Encoding.Default なら Charset.Ansi を指定しておくようにします。 なお、COPYDATASTRUCT.lpData に格納するデータを Unicode 文字列とするか Shift_JIS 文字列とするかは、送信側と受信側で一致させておいてください。