怎么用VB发送像NET SEND一样发送消息并得到结果

Question

怎么用VB发送像NET SEND一样发送消息并得到结果，不要用SHELL来调用NET SEND 因为这样得到发送结果很麻烦，且我已知道怎么得到结果。我想知道的是怎么用VB代码来直接发送，并把发送结果直接返回到程序中。我的实现方法是用先生成一个BAT文件，里面有NET SEND 语句，并把发送结果返回到一个TXT文件中，然后再到文件中读结果。请高手指点。

Answer 1

我也正想做一个这样的软件呢初步设想用 WinSock 来实现，不知行否~

Answer 2

http://www.csdn.net/cnshare/soft/16/16015.shtm

Answer 3

Private Declare Function NetMessageBufferSend Lib _
  "NETAPI32.DLL" (yServer As Any, yToName As Byte, _
  yFromName As Any, yMsg As Byte, ByVal lSize As Long) As Long
Private Const NERR_Success As Long = 0&
Public Function SendMessage(RcptToUser As String, _
   FromUser As String, BodyMessage As String) As Boolean
 
   Dim RcptTo() As Byte
   Dim From() As Byte
   Dim Body() As Byte   RcptTo = RcptToUser & vbNullChar
   From = FromUser & vbNullChar
   Body = BodyMessage & vbNullChar   If NetMessageBufferSend(ByVal 0&, RcptTo(0), ByVal 0&, _
        Body(0), UBound(Body)) = NERR_Success Then
     SendMessage = True
   End IfEnd Function
Private Sub Form_Load()
    Dim RetVal As Boolean
    RetVal = SendMessage("目标机器名", "FromUser机器名", "信息")
End Sub参看我写的局域网消息发送器：
http://www.csdn.net/cnshare/soft/16/16015.shtm

Answer 4

楼上的大哥，能不能把你写“局域网消息发送器"发一个给我。[email protected]那个地址下不了。