VB.NET質問スレ (Part18)

[表示 : 全て最新50 1-99 101- 201- 301- 401- 501- 601- 701- 801- 901- 1001- 2chのread.cgiへ]
Update time : 05/29 20:01 / Filesize : 273 KB / Number-of Response : 1002
[このスレッドの書き込みを削除する]
[＋板最近立ったスレ＆熱いスレ一覧 : ＋板最近立ったスレ／記者別一覧] [類似スレッド一覧]


↑キャッシュ検索、類似スレ動作を修正しました、ご迷惑をお掛けしました

VB.NET質問スレ (Part18)

761 名前：デフォルトの名無しさん mailto:sage [2006/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

[ 続きを読む ] / [ 携帯版 ]

read.cgi ver5.27 [feat.BBS2 +1.6] / e.0.2 (02/09/03) / eucaly.net products.
担当:undef