VB.NET質問スレ (Part18)

VB.NET質問スレ (Part18) at TECH

761:デフォルトの名無しさん
06/12/27 18:47:00
>>755
たぶんこれでいけるんじゃないかな？
なんちゃらメッセンジャーなんてクソ鬱陶しいソフトは使ってないので試してないが、
とりあえずメッセージの送信はこれでできているはずと思う。
見ればわかると思うけど、Formのコマンドボタンのクリックで送信するようになってる。
あと、いろんなところに属性がくっつけてあるけど、あまり考えずテキトーに使っているので
たぶん冗長なものがあると思う。
　　Const WM_COPYDATA As Integer = &H4A

　　<DllImport("user32.dll", CharSet:=CharSet.Unicode)> _
　　Private Shared Function FindWindow(ByVal lpClassName As String, ByVal lpWindowName As IntPtr) As IntPtr
　　End Function

　　<DllImport("user32.dll", CharSet:=CharSet.Unicode)> _
　　Private Shared Function FindWindow(ByVal lpClassName As String, ByVal lpWindowName As String) As IntPtr
　　End Function

　　<DllImport("user32.dll", CharSet:=CharSet.Unicode)> _
　　Private Shared Function SendMessage(ByVal hWnd As IntPtr, _
　　　　　　　　　　　　　　　　　　ByVal MSG As Integer, _
　　　　　　　　　　　　　　　　　　ByVal wParam As Integer, _
　　　　　　　　　　　　　　　　　　ByRef lParam As COPYDATASTRUCT) As IntPtr
　　End Function

　　<StructLayout(LayoutKind.Sequential, CharSet:=CharSet.Unicode, pack:=4)> _
　　Public Structure COPYDATASTRUCT
　　　　Public dwData As Integer
　　　　Public cbData As Integer

　　　　<MarshalAs(UnmanagedType.LPWStr)> _
　　　　Public lpData As String
　　End Structure

次ページ

続きを表示

1を表示