回答編集履歴
1
誤字修正
answer
CHANGED
|
@@ -7,7 +7,8 @@
|
|
|
7
7
|
⇒これについては「ExcelVBAでIPMessengerを送信したい」という目的が伝わっているのでOKです。
|
|
8
8
|
|
|
9
9
|
②そのために行ったこと
|
|
10
|
-
⇒調べた内容や、ソースを作成したのならこれも提示しましょう。
|
|
10
|
+
⇒調べた内容や、ソースを作成したのならこれも提示しましょう。
|
|
11
|
+
（作りかけとかエラーで動かないものでも可）
|
|
11
12
|
|
|
12
13
|
③困っていること、行き詰ってしまったこと
|
|
13
14
|
⇒②を行っている中で思うようにいかない点、よくわからない点、エラーが発生する点、など詰まってしまった部分を具体的に記載しましょう。
|
|
@@ -21,7 +22,8 @@
|
|
|
21
22
|
なお既読かもしれませんが、引数や戻り値の説明は、IPM_Send.DLLの配布サイトにありますのでご参考ください。
|
|
22
23
|
[⇒参考](http://rocketeer.dip.jp/sanaki/free/free37.htm)
|
|
23
24
|
|
|
24
|
-
**まず、IPMessenger送信用関数にコメントをつけてみました。
|
|
25
|
+
**まず、IPMessenger送信用関数にコメントをつけてみました。**
|
|
26
|
+
**（わかりやすくするため一部処理を変更しています）**
|
|
25
27
|
```
|
|
26
28
|
'概要：IPMessenger送信用関数
|
|
27
29
|
'引数：ip IPアドレス（相手先ipアドレスまたはPC名)
|
|
@@ -34,7 +36,7 @@
|
|
|
34
36
|
Set obj = CreateObject("IPM_Send.ComSend")
|
|
35
37
|
|
|
36
38
|
'メッセージ送信処理の実行
|
|
37
|
-
ret = obj.Send("", ip, "", tx) '
|
|
39
|
+
ret = obj.Send("", ip, "", tx) '引数：(コマンド番号(省略時：80020)、送信先IPアドレス、送信ポート(省略時:2425)、メッセージ)
|
|
38
40
|
|
|
39
41
|
'送信処理の戻り値をこの関数の戻り値に設定
|
|
40
42
|
mss_send_ipm = ret
|