tempad
ReadyGo!技术成就梦想 >>VB教程 >> 在WindowsNT网络中广播消息

在WindowsNT网络中广播消息

ReadyGo!技术成就梦想 网络搜索 efish 2008-2-24 2:47:36
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->

责任编辑: efish 参与评论 查找更多：
相关文章
在VB中用Outlook发电子邮件 在VB中用Outlook发电子邮件
在VB中实现文件上传 在VB中实现文件上传
在VB中使用UDP协议 在VB中使用UDP协议
在VB中如何得到网络中某一台电脑(电脑名)的网卡地址？ 在VB中如何得到网络中某一台电脑(电脑名)的网卡地址？
VB邮件检查程序（二） VB邮件检查程序（二）
VB邮件检查程序（一） VB邮件检查程序（一）
PING一个IP地址（向它发送一个数据包并等待回应)） PING一个IP地址（向它发送一个数据包并等待回应)）
用VB编写标准CGI程序（上） 用VB编写标准CGI程序（上）
用VB编写异步多线程下载程序 用VB编写异步多线程下载程序
跟我学做记事本 跟我学做记事本
2秒记住本站域名

玩过泡泡龙吗？Readygo?Go! 再加上.Com.Cn的后缀，那就是大名小顶的ReadyGo.com.cn

分类导航
ReadyGo!技术成就梦想