Win32 API

Вопрос

Как из программы отправить сообщение по сети на конкретный компьютер (IP и сетевое имя известны). Желательно не писать свой клиент-сервер. Хотел попробовать в программе Winsock, а получатель — WinPopup или NWPopup. Но не смог найти форматы сообщений и используемые порты.

Ответ

Вариантов, я думаю, есть очень много. Предлагаю через API обмениваться. Сделай формочку, нарисуй на ней кнопку и три текстбокса. Назови их txtFrom, txtText, txtMsg. Вставь следующий код. Запусти. Напиши имя отправителя, получателя и текст и нажми кнопку.

Option Explicit

Private Declare Function NetMessageBufferSend Lib "netapi32.dll" (ByVal ServerName As String, ByVal MsgName As String, ByVal FromName As String, Buf As Any, BufLen As Long) As Long

Private Sub Command1_Click()
Dim sName As String, sMsg As String, sBuf As String
Dim lLen As Long, ret As Long

   sName = StrConv(txtFrom.Text, vbUnicode)
   sMsg = StrConv(txtMsg.Text, vbUnicode)
   sBuf = StrConv(txtText.Text, vbUnicode)
   lLen = LenB(sBuf)
   ret = NetMessageBufferSend(sName, sMsg, sName, ByVal sBuf, ByVal lLen)

End Sub

Sergey Y. Tkachev