Net Send

[Yuri_S]

Я в этом темный, но слышал что можно в Пуск-Выполнить ввести что-то подобно NetSend <IP> <Message> и у юзера если он в сети высветится мессага.Как такое устроить в VB?Нужно ли подключать какой-то елемент дополнительно?

[gaidar]

А через Shell(" net send ...") самое простое

[Yuri_S]

тоесть прям так можно и написать Shell(" net send <IP> Hello")
а результат будет тот-же что и через пуск?Весело, хехе

[X-BOND]

Или немного сложнее...

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

Private Const NERR_Success As Long = 0&
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

Public Function NetSendMessage(ByVal RcptToUser As String, ByVal FromUser As String, ByVal BodyMessage As String) As Boolean
Dim RcptTo() As Byte, From() As Byte, 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
NetSendMessage = True
End If

End Function


Использование:
Test = NetSendMessage(КОМУ, ОТ КОГО, СООБЩЕНИЕ)

If Test then
msgbox "Сообщение отправлено успешно!"
Else: msgbox "Ошибка отправки сообщения!"
end if

[Yuri_So]

а в Test = NetSendMessage(КОМУ, ОТ КОГО, СООБЩЕНИЕ) "от кого" является обязательным параметром?

[X-BOND]

Если перед ByVal FromUser As String добавить Optional а после = VbNullString то не обязательно.

[Шнурок]

Пытался отправить сообщение на свой ip...не получилось.
И так и...так...
Shell("net send <0.0.0.0> Hello")
Shell("net send 0.0.0.0 Hello")

[Шнурок]

А если мне надо вписывать IPадресс и сообщение?

Я попробовал так:

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

Dim IPadress As String
Dim Message As String
Dim NET As String
Dim XPEHb As String
Private Sub Command1_Click()
    IPadress = Text1.Text
    Message = Text2.Text
    XPEHb = Text4.Text
    Text3.Text = "(" & XPEHb & "net send " & IPadress & " " & Message & XPEHb & ")"
    NET = Text3.Text
    Shell NET
End Sub
'Text4.Text = "


Но не прокатило....извиняюсь за свою глупость
Даже стыдно отправлять)

З.Ы. В итоге в text3.text писалось все правильно всмысле...

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

Из:
"(" & XPEHb & "net send " & IPadress & " " & Message & XPEHb & ")"
Получалось вполне приличное:
("net send 197.0.0.1 hellow")


Но вылезал еррор, мол не нашел путь(((

[Чудик]

Или немного сложнее...
Использование:
Test = NetSendMessage(КОМУ, ОТ КОГО, СООБЩЕНИЕ)

Чего только не делал - функция возвращает False. Она проверялась?

[tyomitch]

Или немного сложнее...
Использование:
Test = NetSendMessage(КОМУ, ОТ КОГО, СООБЩЕНИЕ)

Чего только не делал - функция возвращает False. Она проверялась?

Только что проверил у себя - работает.

[tyomitch]

Пытался отправить сообщение на свой ip...не получилось.
И так и...так...
Shell("net send <0.0.0.0> Hello")
Shell("net send 0.0.0.0 Hello")

Свой - это не 0.0.0.0, это 127.0.0.1

Кстати, с ним не канает: надо настоящий адрес вводить.

[tyomitch]

А если мне надо вписывать IPадресс и сообщение?

Я попробовал так:

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

Dim IPadress As String
Dim Message As String
Dim NET As String
Dim XPEHb As String
Private Sub Command1_Click()
    IPadress = Text1.Text
    Message = Text2.Text
    XPEHb = Text4.Text
    Text3.Text = "(" & XPEHb & "net send " & IPadress & " " & Message & XPEHb & ")"
    NET = Text3.Text
    Shell NET
End Sub
'Text4.Text = "


Но не прокатило....извиняюсь за свою глупость
Даже стыдно отправлять)

З.Ы. В итоге в text3.text писалось все правильно всмысле...

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

Из:
"(" & XPEHb & "net send " & IPadress & " " & Message & XPEHb & ")"
Получалось вполне приличное:
("net send 197.0.0.1 hellow")


Но вылезал еррор, мол не нашел путь(((

Потому что скобки не нужны.

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

    Text3.Text = "net send " & IPadress & " " & Message

[Чудик]

Только что проверил у себя - работает.

А данная функция зависит от каких-либо параметров? А то, например, net send у нас в локалке не работает. В чем-то причина? Что нужно проверить?

[tyomitch]

Наверное, у вас фаервол всё режет
Спроси у вашего админа, в чём дело

[Чудик]

Нет, был в свое время, но снесли ...

[Konst_One]

WinPopup - эта такая программка от мелкософта для посылки сообщений по сети, должна быть у тебя в папочке виндов. Попробуй с помощью нее, если не получится, то нужно смотреть настройки сети и системных служб на компе.

[Konst_One]

да, забыл сказать, что в 2000 можно юзать winchat.exe

[Ruslan Demidow]

Наверное, у вас фаервол всё режет
Спроси у вашего админа, в чём дело

Скорей всего в отключена служба сообщений.
Нужно её запустить - и будут сообщения.

[Шнурок]

Свой - это не 0.0.0.0, это 127.0.0.1

Это я для примера...а вообще я не 127.0.0.1 вводил, а 213.158.12.37

[Konst_One]

проверь службы: Net DDE и NET DDE DSDM
они должны быть запущены

[Konst_One]

и соединение надо проводить по имени компьютера

[Igor_123]

Может у человека 98

[tyomitch]

и соединение надо проводить по имени компьютера

В смысле, только "net send имя сообщение"? Я проверял "net send айпишник сообщение", и у меня тоже работало.

[KDima]

Кстати!
Рекомендую ваще забить на Net Send т.к. есть эксплоит, позволяющий получить шелл с правами системы!!!
Вывод: Winsock.ocx

[tyomitch]

Тогда на машину "адресата" придётся ставить свой клиент. А здесь няп вся фишка именно в том, что NetBEUI-клиент там уже стоит (как часть системы).

[KDima]

Кстати помню мы писали с другом чат "по шарам"
У нас был доступ к шаре на неком сервере и через файло мы передавали сообщения

[tyomitch]

Ага, я тоже такой писал =)
На TP7, для Netware, от скуки на уроках информатики...

[Чудик]

Скорей всего в отключена служба сообщений.
Нужно её запустить - и будут сообщения.

Где включается эта служба?

[Amed]

Пуск/Программы/Администрирование/Службы

[alibek]

и соединение надо проводить по имени компьютера

В смысле, только "net send имя сообщение"? Я проверял "net send айпишник сообщение", и у меня тоже работало.

В NT системах работает и так, и так. Но, ЕМНИП, в Win9x можно использовать только имена компьютеров (причем не DNS, а NetBIOS).