📄 messengerorig.frm
字号:
VERSION 5.00
Begin VB.Form MessengerOrig
BackColor = &H80000005&
BorderStyle = 0 'None
ClientHeight = 6825
ClientLeft = 210
ClientTop = 1365
ClientWidth = 7380
ClipControls = 0 'False
ControlBox = 0 'False
FillColor = &H00FFFFFF&
Icon = "MessengerOrig.frx":0000
KeyPreview = -1 'True
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
Picture = "MessengerOrig.frx":000C
ScaleHeight = 6825
ScaleWidth = 7380
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin VB.Frame Frame1
BackColor = &H00E0E0E0&
Caption = "发送给："
Height = 1215
Left = 480
TabIndex = 10
Top = 360
Width = 6255
Begin VB.OptionButton Workstation
BackColor = &H00E0E0E0&
Caption = "一个小组"
Height = 255
Left = 3360
TabIndex = 14
Top = 840
Width = 1455
End
Begin VB.OptionButton Domain
BackColor = &H00E0E0E0&
Caption = "一个网络所有用户"
Height = 255
Left = 3360
TabIndex = 13
Top = 360
Width = 1815
End
Begin VB.OptionButton Group
BackColor = &H00E0E0E0&
Caption = "多个小组"
Height = 255
Left = 240
TabIndex = 12
Top = 840
Width = 1455
End
Begin VB.OptionButton User
BackColor = &H00E0E0E0&
Caption = "某个用户"
Height = 255
Left = 240
TabIndex = 11
Top = 360
Width = 1935
End
End
Begin VB.TextBox txtMsg
Appearance = 0 'Flat
Height = 2055
Left = 480
MaxLength = 2000
MultiLine = -1 'True
ScrollBars = 2 'Vertical
TabIndex = 6
Top = 2160
Width = 6255
End
Begin VB.CommandButton cmdSend
Caption = "发送"
Height = 420
Left = 4080
TabIndex = 5
Top = 4920
Width = 1335
End
Begin VB.CommandButton cmdExit
Caption = "关闭"
Height = 420
Left = 5640
TabIndex = 4
Top = 4920
Width = 1335
End
Begin VB.ComboBox cboWorkstation
Appearance = 0 'Flat
Height = 300
Left = 1920
TabIndex = 3
Top = 1770
Width = 1815
End
Begin VB.ComboBox cboSelected
Appearance = 0 'Flat
Height = 300
Left = 4530
Style = 2 'Dropdown List
TabIndex = 2
Top = 1770
Visible = 0 'False
Width = 1785
End
Begin VB.CheckBox chkGroup
Height = 255
Left = 3735
TabIndex = 1
Top = 1800
Width = 255
End
Begin VB.CommandButton cmdBeep
Appearance = 0 'Flat
BackColor = &H00C0C0C0&
Height = 290
Left = 6435
Picture = "MessengerOrig.frx":292F
Style = 1 'Graphical
TabIndex = 0
Top = 2505
UseMaskColor = -1 'True
Width = 290
End
Begin VB.Label Label1
BackStyle = 0 'Transparent
Caption = "信使服务程序"
BeginProperty Font
Name = "宋体"
Size = 12
Charset = 134
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000FF&
Height = 255
Left = 2640
TabIndex = 15
Top = 110
Width = 1935
End
Begin VB.Label lblStatus
BackColor = &H00FFFFFF&
Height = 375
Left = 480
TabIndex = 9
Top = 4320
Width = 4320
End
Begin VB.Label lblWorkSta
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "发送给："
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Height = 195
Left = 600
TabIndex = 8
Top = 1845
Width = 795
End
Begin VB.Line Line1
BorderColor = &H000000FF&
X1 = 360
X2 = 6840
Y1 = 1680
Y2 = 1680
End
Begin VB.Label lblGroup
BackStyle = 0 'Transparent
Caption = "小组"
Height = 255
Left = 3975
TabIndex = 7
Top = 1830
Width = 495
End
Begin VB.Shape shpBorder
BorderColor = &H00C00000&
BorderStyle = 0 'Transparent
BorderWidth = 2
FillColor = &H0000C000&
Height = 5415
Left = 0
Shape = 4 'Rounded Rectangle
Top = 0
Width = 7335
End
End
Attribute VB_Name = "MessengerOrig"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Declare Function CreatePolygonRgn Lib "gdi32" (lpPoint As POINTAPI, ByVal nCount As Long, ByVal nPolyFillMode As Long) As Long
Private Declare Function CreateRectRgn Lib "gdi32" (ByVal x1 As Long, ByVal y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function CreateRoundRectRgn Lib "gdi32" (ByVal x1 As Long, ByVal y1 As Long, ByVal X2 As Long, ByVal Y2 As Long, ByVal X3 As Long, ByVal Y3 As Long) As Long
Private Declare Function CreateEllipticRgn Lib "gdi32" (ByVal x1 As Long, ByVal y1 As Long, ByVal X2 As Long, ByVal Y2 As Long) As Long
Private Declare Function CombineRgn Lib "gdi32" (ByVal hDestRgn As Long, ByVal hSrcRgn1 As Long, ByVal hSrcRgn2 As Long, ByVal nCombineMode As Long) As Long
Private Declare Function DeleteObject Lib "gdi32" (ByVal hObject As Long) As Long
Private Declare Function SetWindowRgn Lib "user32" (ByVal hWnd As Long, ByVal hRgn As Long, ByVal bRedraw As Boolean) As Long
Private Declare Function ReleaseCapture Lib "user32" () As Long
Private Type POINTAPI
X As Long
Y As Long
End Type
Private Const RGN_COPY = 5
Private ResultRegion As Long
Private Const RectXRound As Integer = 75
Private Const RectYRound As Integer = 75
Private Declare Function GetComputerName Lib "kernel32" Alias "GetComputerNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Private Declare Function NetQueryDisplayInformation Lib "NETAPI32.DLL" (Server As String, level As Long, Index As Long, Ent_Req As Long, Pref_Max As Long, Ret_Ent_Cnt As Long, Sorted_Buffer As Long) As Long
Private Declare Function NetMessageBufferSend Lib "NETAPI32.DLL" (ServerName As String, MsgName As String, FromName As String, Buffer As String, ByVal BufLen As Long) As Long
Private Declare Function NetGroupGetUsers Lib "NETAPI32.DLL" (Server As String, Group As String, level As Long, lpBuffer As Long, PrefMaxLen As Long, EntriesRead As Long, Totalentries As Long, ResumeHandle As Long) As Long
Private Declare Function NetWkstaGetInfo Lib "NETAPI32.DLL" (ByVal lpServer As String, ByVal level As Long, lpBuffer As Long) As Long
Private Declare Function NetGetDCName Lib "NETAPI32.DLL" (Server As String, Domain As String, LName As Long) As Long
Private Declare Function WNetOpenEnum Lib "mpr" Alias "WNetOpenEnumA" (ByVal dwScope As Long, ByVal dwType As Long, ByVal dwUsage As Long, lpNetResource As NETRESOURCE, 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 agCopyData Lib "apigid32.dll" (Source As Any, dest As Any, ByVal nCount&)
Private Declare Sub CopyMem Lib "kernel32" Alias "RtlMoveMemory" (pTo As Any, uFrom As Any, ByVal lSize As Long)
'Functions for Memory Management
Private Declare Function agGetAddressForObject& Lib "apigid32.dll" (object As Any)
Private Declare Function NetApiBufferFree Lib "netapi32" (ByVal pBuffer As Long) As Long
Private Declare Function lstrlenW Lib "kernel32" (ByVal lpString As Long) As Long
Private Declare Function agGetStringFromPointer$ Lib "apigid32.dll" Alias "agGetStringFromLPSTR" (ByVal ptr&)
Private Declare Function FormatMessage Lib "kernel32" Alias "FormatMessageA" (ByVal dwFlags As Long, lpSource As Any, ByVal dwMessageId As Long, ByVal dwLanguageId As Long, ByVal lpBuffer As String, ByVal nSize As Long, Arguments As Long) As Long
Private Type SECURITY_ATTRIBUTES
nLength As Long
lpSecurityDescriptor As Long
bInheritHandle As Long
End Type
Private Declare Function SystemParametersInfo Lib "user32" Alias "SystemParametersInfoA" (ByVal uAction As Long, ByVal uParam As Long, ByRef lpvParam As Any, ByVal fuWinIni As Long) As Long
Const SPI_SETBEEP = 2
Const SPI_GETBEEP = 1
Const FORMAT_MESSAGE_ALLOCATE_BUFFER = &H100
Const FORMAT_MESSAGE_ARGUMENT_ARRAY = &H2000
Const FORMAT_MESSAGE_IGNORE_INSERTS = &H200
Const FORMAT_MESSAGE_MAX_WIDTH_MASK = &HFF
Const FORMAT_MESSAGE_FROM_HMODULE = &H800
Const FORMAT_MESSAGE_FROM_STRING = &H400
Const FORMAT_MESSAGE_FROM_SYSTEM = &H1000
Const LANG_USER_DEFAULT = &H400&
Private Type WKSTA_INFO_100
PLATFORM As Long
COMPUTER As Long
LANGROUP As Long
VERMINOR As Long
VERMAJOR As Long
End Type
Private Type UM_INFO
C_NAME As Long
C_COMM As Long
C_FLAG As Long
USERID As Long
NEXTIX As Long
SOMETH As Long
End Type
'Structure to get Group Details
Private Type GRP_INFO
GRP_NAME As Long
GRP_COMMENT As Long
GRP_GROUP_ID As Long
GRP_ATTRIBUTES As Long
GRP_NEXT_INDEX As Long
End Type
Private Type G_USER
U_NAME As Long
End Type
Const RESOURCE_GLOBALNET As Long = &H2&
Const RESOURCE_CONNECTED As Long = &H1&
Const RESOURCETYPE_ANY As Long = &H0&
Const RESOURCETYPE_DISK As Long = &H1&
Const RESOURCETYPE_PRINT As Long = &H2&
Const RESOURCEUSAGE_CONTAINER As Long = &H2&
Const RESOURCEUSAGE_CONNECTABLE As Long = &H1&
Const RESOURCEDISPLAYTYPE_DOMAIN As Long = &H1&
Const RESOURCEDISPLAYTYPE_GENERIC As Long = &H0&
Const RESOURCEDISPLAYTYPE_GROUP As Long = &H5&
Const RESOURCEDISPLAYTYPE_SERVER As Long = &H2&
Const RESOURCEDISPLAYTYPE_SHARE As Long = &H3&
Const RESOURCEDISPLAYTYPE_FILE As Long = &H4&
Const NO_ERROR = 0
Const ERROR_MORE_DATA = 234
Private Type NETRESOURCE
dwScope As Long
dwType As Long
dwDisplayType As Long
dwUsage As Long
lpLocalName As String
lpRemoteName As String
lpComment As String
lpProvider As String
End Type
Private Type NETRESOURCELONG
dwScope As Long
dwType As Long
dwDisplayType As Long
dwUsage As Long
lpLocalName As Long
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -