Сообщение по сети

[Sergey-13]

Доброго дня
мне нужно отправить сообщение(тип msgbox) на другой ком зная его айпишник.
Подскажите как это можно сделать.
Все книги не доступны в инете лазить нет возможность

[Konst_One]

Поиск http://bbs.vbstreets.ru/search.php, FAQ, статьи и примеры, google, yandex и тд и тп...

[Igor_123]

В командной строке пишешь:
net send "имя машины" "сообщение"

кавычки не нужны, пробел между "имя машины" и "сообщение", обязателен.

Это работает на НТ системах при включенной службе сообщений, на обеих машинах.

А дальше Konst_One уже и так дал исчерпывающее обьяснение

[Sasha_karasov]

А если всем то вместо IP "*"

[GM]

Зачем net send. Если не ошибаюсь можно юзать NetMessageBufferSend.

[ism]

В командной строке пишешь:
net send "имя машины" "сообщение"

и

NetMessageBufferSend

Только если ты администратор, лутше поставить себя на друрие компьютеры и использовать Mailslots

[JohnCR]

Код: Выделить всё

Option Explicit
'на форме одна кнопка (Command1)
Private Declare Function NetMessageBufferSend Lib _
  "NETAPI32.DLL" (yServer As Any, yToName As Byte, _
  yFromName As Any, yMsg As Byte, ByVal lSize As Long) As Long
Private Const NERR_Success As Long = 0&
Public Function SendMessage(RcptToUser As String, _
   FromUser As String, BodyMessage As String) As Boolean

   Dim RcptTo() As Byte
   Dim From() As Byte
   Dim Body() As Byte

   RcptTo = RcptToUser & vbNullChar
   From = FromUser & vbNullChar
   Body = BodyMessage & vbNullChar

   If NetMessageBufferSend(ByVal 0&, RcptTo(0), ByVal 0&, _
        Body(0), UBound(Body)) = NERR_Success Then
     SendMessage = True
   End If

End Function
Private Sub Command1_Click()
    Dim RetVal As Boolean
    RetVal = SendMessage("cr", "FromUser", "BodyText")
    'cr - это имя машины в сети на которую отправляешь сообщение
    'можешь поставить название своей машины, чтобы протестировать.
End Sub