Nahrazení příkazu NET SEND
Postup:
Na formulář přidejte tlačítko, pak zapište do deklarační části
formuláře a na událost Click tlačítka:
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$, sMsg$, sBuf$
Dim lLen&, ret&
sNameFrom = StrConv("PC1", vbUnicode)
sNameTo = StrConv("PC2", vbUnicode)
sMsg = StrConv("PC1", vbUnicode)
sBuf = StrConv("Táborské KRLÉŠ!", vbUnicode)
lLen = LenB(sBuf)
ret = NetMessageBufferSend(sNameTo, sMsg, sNameFrom, _
ByVal sBuf, ByVal lLen)
End Sub