VB.NET質問スレ (Part18)

VB.NET質問スレ (Part ..

751:デフォルトの名無しさん
06/12/26 20:25:20
URLﾘﾝｸ(www.be-interactive.org)
これをVB2005で行いたいのですが、どのようにすれば良いのか分かりません。

Const WM_COPYDATA As Integer = &H4A
Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hWnd As Integer, ByVal MSG As Integer, ByVal wParam As Integer, ByVal lParam As COPYDATASTRUCT) As Integer

Sub main()
Dim sendMes As New COPYDATASTRUCT
sendMes.lpData = _
New System.Text.StringBuilder("TestAPP" + Chr(0).ToString + "Music" + Chr(0).ToString + "1" + Chr(0).ToString + "{0} - {1}" + Chr(0).ToString + "TEST" + Chr(0).ToString + "TEST")
sendMes.cbData = sendMes.lpData.Length + 2
SendMessage(132030, WM_COPYDATA, Nothing, sendMes)
End Sub

Public Structure COPYDATASTRUCT
Const dwData As Integer = 1351
Public cbData As Integer
Public lpData As System.Text.StringBuilder
End Structure

このようにしたところ、SendMessageのところでTypeLoadExceptionを吐いてしまいます。

よろしくお願いします。

次ページ