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