sendmessage.frm

在局域网内发送消息

VERSION 5.00
Begin VB.Form SendMessage 
   Caption         =   "Form1"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.TextBox TxtMsg 
      Height          =   1410
      Left            =   495
      MultiLine       =   -1  'True
      ScrollBars      =   2  'Vertical
      TabIndex        =   3
      Top             =   975
      Width           =   3675
   End
   Begin VB.TextBox TxtTo 
      Height          =   360
      Left            =   2565
      TabIndex        =   2
      Top             =   435
      Width           =   1590
   End
   Begin VB.TextBox TxtFrom 
      Height          =   360
      Left            =   495
      TabIndex        =   1
      Top             =   420
      Width           =   1590
   End
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   405
      Left            =   1485
      TabIndex        =   0
      Top             =   2550
      Width           =   1335
   End
   Begin VB.Label Label3 
      Caption         =   "发送内容"
      Height          =   795
      Left            =   120
      TabIndex        =   6
      Top             =   960
      Width           =   240
   End
   Begin VB.Label Label2 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "到"
      Height          =   180
      Left            =   2250
      TabIndex        =   5
      Top             =   495
      Width           =   180
   End
   Begin VB.Label Label1 
      AutoSize        =   -1  'True
      BackStyle       =   0  'Transparent
      Caption         =   "从"
      Height          =   180
      Left            =   165
      TabIndex        =   4
      Top             =   510
      Width           =   180
   End
End
Attribute VB_Name = "SendMessage"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
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

Private Sub Command1_Click()
    Dim X As Boolean
    X = SendMsg(TxtTo.Text, TxtFrom.Text, TxtMsg.Text)
    If X Then
        MsgBox "消息已被成功发送", vbInformation, "发送消息"
    Else
        MsgBox "发送消息失败", vbCritical, "发送消息"
    End If
End Sub

Private Function SendMsg(sToUser As String, sFromUser As String, sMessage As String) As Boolean
    
    Dim yToName() As Byte
    Dim yFromName() As Byte
    Dim yMsg() As Byte
    Dim l As Long
    
    yToName = sToUser & vbNullChar
    yFromName = sFromUser & vbNullChar
    yMsg = sMessage & vbNullChar

    If NetMessageBufferSend(ByVal 0&, yToName(0), ByVal 0&, yMsg(0), UBound(yMsg)) = NERR_Success Then
        SendMsg = True
    End If
End Function