利用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->
文章整理:西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!



