【VB开源代码栏目提醒】：文章导读：在新的一年中，各位网友都进入紧张的学习或是工作阶段。网学会员整理了VB开源代码-SendMsg.frm的相关内容供大家参考，祝大家在新的一年里工作和学习顺利！

    VERSION 5.00
    Begin VB.Form SendMsg 
       BorderStyle     =   1  'Fixed Single
       Caption         =   "局域网通讯"
       ClientHeight    =   3270
       ClientLeft      =   150
       ClientTop       =   435
       ClientWidth     =   6060
       LinkTopic       =   "Form1"
       LockControls    =   -1  'True
       MaxButton       =   0   'False
       ScaleHeight     =   3270
       ScaleWidth      =   6060
       StartUpPosition =   3  '窗口缺省
       Begin VB.Frame Frame3 
          Height          =   555
          Left            =   75
          TabIndex        =   6
          Top             =   2670
          Width           =   3930
          Begin VB.CheckBox Check2 
             Caption         =   "回车发送"
             Height          =   240
             Left            =   180
             TabIndex        =   9
             Top             =   210
             Width           =   1035
          End
          Begin VB.TextBox Text2 
             Height          =   300
             Left            =   2490
             TabIndex        =   8
             Top             =   165
             Width           =   1290
          End
          Begin VB.CheckBox Check1 
             Caption         =   "匿名发送"
             Height          =   225
             Left            =   1335
             TabIndex        =   7
             Top             =   210
             Width           =   1035
          End
       End
       Begin VB.CommandButton Command2 
          Caption         =   "重写"
          Height          =   345
          Left            =   5130
          TabIndex        =   5
          Top             =   2880
          Width           =   870
       End
       Begin VB.CommandButton Command1 
          Caption         =   "发送"
          Height          =   345
          Left            =   4200
          TabIndex        =   4
          Top             =   2880
          Width           =   870
       End
       Begin VB.Frame Frame2 
          Caption         =   "发送信息的内容"
          Height          =   2580
          Left            =   75
          TabIndex        =   2
          Top             =   90
          Width           =   3930
          Begin VB.TextBox Text1 
             Height          =   2175
             Left            =   155
             MultiLine       =   -1  'True
             ScrollBars      =   2  'Vertical
             TabIndex        =   3
             Top             =   285
             Width           =   3630
          End
       End
       Begin VB.Frame Frame1 
          Caption         =   "局域网中的计算机"
          Height          =   2580
          Left            =   4080
          TabIndex        =   0
          Top             =   90
          Width           =   1920
          Begin VB.ListBox List1 
             Height          =   2220
             Left            =   105
             MultiSelect     =   2  'Extended
             TabIndex        =   1
             Top             =   270
             Width           =   1665
          End
       End
       Begin VB.Menu FILE 
          Caption         =   "文件"
          Visible         =   0   'False
          Begin VB.Menu FSXX 
             Caption         =   "发送信息"
          End
          Begin VB.Menu QXFS 
             Caption         =   "取消发送"
          End
          Begin VB.Menu BB 
             Caption         =   "-"
          End
          Begin VB.Menu HCFS 
             Caption         =   "回车发送"
          End
          Begin VB.Menu QXHC 
             Caption         =   "取消回车"
          End
          Begin VB.Menu CC 
             Caption         =   "-"
          End
          Begin VB.Menu NMFS 
             Caption         =   "匿名发送"
          End
          Begin VB.Menu QXNM 
             Caption         =   "取消匿名"
          End
       End
       Begin VB.Menu AAA 
          Caption         =   "备用列表"
          Visible         =   0   'False
          Begin VB.Menu QDBYLB 
             Caption         =   "启动备用列表"
          End
          Begin VB.Menu GBBYLB 
             Caption         =   "关闭备用列表"
          End
          Begin VB.Menu AA 
             Caption         =   "-"
          End
          Begin VB.Menu EXIT 
             Caption         =   "退出信使服务"
          End
       End
    End
    Attribute VB_Name = "SendMsg"
    Attribute VB_GlobalNameSpace = False
    Attribute VB_Creatable = False
    Attribute VB_PredeclaredId = True
    Attribute VB_Exposed = False
    Option Explicit
        Dim X As Integer
        Dim i As Integer                         '判断是否选择接收信息的计算机名称
        Dim j As Integer
        Dim n As Integer
        Dim Intext, Intext1
        Dim StrName As String * 256
        Dim StrList(20) As String                '保存接收信息的计算机名称信息
        Public Ascii As Integer                     '判断是否按下Ctrl键
        Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
        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 Declare Function WNetOpenEnum Lib "mpr.dll" Alias "WNetOpenEnumA" (ByVal dwScope As Long, ByVal dwType As Long, ByVal dwUsage As Long, lpNetResource As Any, lphEnum As Long) As Long
        Private Declare Function WNetEnumResource Lib "mpr.dll" Alias "WNetEnumResourceA" (ByVal hEnum As Long, lpcCount As Long, lpBuffer As Any, lpBufferSize As Long) As Long
        Private Declare Function WNetCloseEnum Lib "mpr.dll" (ByVal hEnum As Long) As Long
        Private Declare Sub CopyMem Lib "kernel32" Alias "RtlMoveMemory" (lpTo As Any, lpFrom As Any, ByVal lLen As Long)
        Private Declare Function lstrcpy Lib "kernel32" Alias "lstrcpyA" (ByVal lpString1 As String, ByVal lpString2 As Any) As Long
        Private Declare Function lstrlen Lib "kernel32" Alias "lstrlenA" (ByVal lpString As Any) As Long
    
        Private Const RESOURCE_GLOBALNET As Long = &H2&  ' 枚举所有资源
    
        '  网络资源类型常数
        Private Const RESOURCEDISPLAYTYPE_DIRECTORY& = &H9
        Private Const RESOURCEDISPLAYTYPE_DOMAIN& = &H1
        Private Const RESOURCEDISPLAYTYPE_FILE& = &H4
        Private Const RESOURCEDISPLAYTYPE_GENERIC& = &H0
        Private Const RESOURCEDISPLAYTYPE_GROUP& = &H5
        Private Const RESOURCEDISPLAYTYPE_NETWORK& = &H6
        Private Const RESOURCEDISPLAYTYPE_ROOT& = &H7
        Private Const RESOURCEDISPLAYTYPE_SERVER& = &H2
        Private Const RESOURCEDISPLAYTYPE_SHARE& = &H3
        Private Const RESOURCEDISPLAYTYPE_SHAREADMIN& = &H8
        Private Const RESOURCETYPE_ANY As Long = &H0&
        Private Const RESOURCETYPE_DISK As Long = &H1&
        Private Const RESOURCETYPE_PRINT As Long = &H2&
        Private Const RESOURCETYPE_UNKNOW