115.htm

一些简单的编程例子 都是网页的形式

<p>在WindowsNT网络中广播消息 </p>
<p>Windows 9x中有一个WinPopUp.exe可以在一个Windows网络中收发消息。但Windows NT中并未提供该程序。</p>
<p>利用WIN32 API函数NetMessageBufferSend()可以在一个Windows NT网络中广播一个消息。</p>
<p></p>
<p>Private Const NERR_Success As Long = 0&</p>
<p>Private Declare Function NetMessageBufferSend Lib "NETAPI32.DLL" (Server As Any, yToName As Byte, yFromName As Any, yMsg As Byte,ByVal lSize As Long) As Long</p>
<p></p>
<p>Public Function Sendmsg(strTo As String, strFrom As String,strMessage As String) As Boolean</p>
<p>Dim bytTo() As Byte</p>
<p>Dim bytFrom() As Byte</p>
<p>Dim bytMsg() As Byte</p>
<p>bytTo = strTo & vbNullChar</p>
<p>bytName = strFrom & vbNullChar</p>
<p>bytMsg = strMessage & vbNullChar</p>
<p>Sendmsg = (NetMessageBufferSend(ByVal 0&, yToName(0),ByVal 0&, yMsg(0), UBound(yMsg)) = NERR_Success)</p>
<p>End Function</p>
<p></p>
<p></p>