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

名前

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

本文 SendMessageでプロセス間通信をしたい プログラムA(送信側)からプログラムB(受信側)にWM_COPYDATAを使い、 ３秒(Timer1)に１回文字列を送りたい。 環境：Windows7 Pro , VB 2010 Express 下記プログラムAにおいて ret = SendMessage・・・ の所で 「PInvokeStackImbalance が検出されました。 Message: PInvoke 関数 'Test_WatchDog!Test_WatchDog.Form1::SendMessage' がスタックを不安定にしています。 PInvoke シグネチャがアンマネージ ターゲット シグネチャに一致していないことが原因として考えられます。 呼び出し規約、および PInvoke シグネチャのパラメーターがターゲットのアンマネージ シグネチャに 一致していることを確認してください。」 のエラーが発生する。 Public Class Form1 Private Const WM_COPYDATA As Integer = &H4A Private WH_WatchDog As IntPtr Public Structure COPYDATASTRUCT Public dwData As Integer Public cbData As Integer Public lpData As String End Structure Private Declare Function FindWindow Lib "user32" Alias "FindWindowA" _ (ByVal lpClassName As String, _ ByVal lpWindowName As String) As IntPtr Private Declare Ansi Function SendMessage Lib "user32" Alias "SendMessageA" _ (ByVal hwnd As IntPtr, _ ByVal msg As Integer, _ ByVal wParam As Integer, _ ByVal lParam As COPYDATASTRUCT) As Integer Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Dim txt As String = "Dog" Dim ret As Integer WH_WatchDog = FindWindow(vbNullString, "WatchDog") '受信側のハンドル取得 If WH_WatchDog <> 0 Then Dim bytearry() As Byte = _ System.Text.Encoding.Default.GetBytes(txt) Dim len As Integer = bytearry.Length Dim cds As COPYDATASTRUCT cds.dwData = 0 cds.cbData = len + 1 cds.lpData = txt ret = SendMessage(WH_WatchDog, WM_COPYDATA, 0, cds) 'ここでエラー発生 End If End Sub End Class 解決のアドバイスをよろしくお願いいたします。