在WindowsNT网络中广播消息

2019-11-18 17:27:44

字体：大中小

来源：转载

供稿：网友

Windows9x中有一个WinPopUp.exe可以在一个Windows网络中收发消息。但WindowsNT中并未提供该程序。
利用WIN32API函数NetMessageBufferSend()可以在一个WindowsNT网络中广播一个消息。

PRivateConstNERR_SuccessAsLong=0&
PrivateDeclareFunctionNetMessageBufferSendLib"NETAPI32.DLL"(ServerAsAny,yToNameAsByte,yFromNameAsAny,yMsgAsByte,ByVallSizeAsLong)AsLong

PublicFunctionSendmsg(strToAsString,strFromAsString,strMessageAsString)AsBoolean
DimbytTo()AsByte
DimbytFrom()AsByte
DimbytMsg()AsByte
bytTo=strTo&vbNullChar
bytName=strFrom&vbNullChar
bytMsg=strMessage&vbNullChar
Sendmsg=(NetMessageBufferSend(ByVal0&,yToName(0),ByVal0&,yMsg(0),UBound(yMsg))=NERR_Success)
EndFunction->

上一篇：在VB中用Outlook发电子邮件

下一篇：在程序中打开Internet拨号连接窗口