VB.NET質問スレ (Part18)

VB.NET質問スレ (Part ..

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

752:デフォルトの名無しさん
 06/12/26 20:48:53 
・文字コードはそれで大丈夫? 
　ANSIだと 
　　sendMes.cbData = sendMes.lpData.Length + 1 
　だと思うけど。 
　SendMessageWにしてCharSet = CharSet.Unicodeにし、 
　その場合 
　　sendMes.cbData = （sendMes.lpData.Length + 1 )*2 
 
・シグネチャ 
　　ByVal lParam As COPYDATASTRUCT → ByRef lParam As COPYDATASTRUCT

753:デフォルトの名無しさん
 06/12/26 20:55:40 
回答ありがとうございます。・・・しかし無理でした。COPYDATASTRUCTのlpDataが悪さしているようですが、、、 
 
    Const WM_COPYDATA As Integer = &H4A 
    Declare Ansi Function FindWindow Lib "user32.dll" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As Integer 
    Declare Unicode Function SendMessage Lib "user32.dll" Alias "SendMessageW" (ByVal hWnd As Integer, ByVal MSG As Integer, ByVal wParam As Integer, ByRef lParam As COPYDATASTRUCT) As Integer 
 
    Sub main() 
        Dim sendMes As New COPYDATASTRUCT 
        sendMes.lpData = _ 
New System.Text.StringBuilder("TestAPP" + ChrW(0).ToString + "Music" + ChrW(0).ToString + "1" + ChrW(0).ToString + "{0} - {1}" + ChrW(0).ToString + "TEST" + ChrW(0).ToString + "TEST") 
        sendMes.cbData = (sendMes.lpData.Length + 1) * 2 
        SendMessage(FindWindow("MsnMsgrUIManager", Nothing), 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

次ページ