📄 frmsendmain.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "comdlg32.ocx"
Object = "{628CC7D5-A6CF-11D0-B997-00805F024BFD}#1.0#0"; "VertMenu.ocx"
Object = "{BDC217C8-ED16-11CD-956C-0000C04E4C0A}#1.1#0"; "Tabctl32.ocx"
Object = "{48DC3C96-B20F-11D1-A87F-D9394DC38340}#2.6#0"; "FlatBtn2.ocx"
Begin VB.Form FrmSendMain
Caption = "Form1"
ClientHeight = 6450
ClientLeft = 7965
ClientTop = 1290
ClientWidth = 1725
Icon = "FrmSendMain.frx":0000
LinkTopic = "Form1"
LockControls = -1 'True
MaxButton = 0 'False
ScaleHeight = 430
ScaleMode = 3 'Pixel
ScaleWidth = 115
Begin TabDlg.SSTab SSTab1
Height = 6465
Left = -30
TabIndex = 0
Top = 0
Width = 1785
_ExtentX = 3149
_ExtentY = 11404
_Version = 393216
Style = 1
Tabs = 2
TabsPerRow = 2
TabHeight = 520
TabCaption(0) = "面板"
TabPicture(0) = "FrmSendMain.frx":08CA
Tab(0).ControlEnabled= -1 'True
Tab(0).Control(0)= "Image1"
Tab(0).Control(0).Enabled= 0 'False
Tab(0).Control(1)= "FlatBttn1"
Tab(0).Control(1).Enabled= 0 'False
Tab(0).Control(2)= "FlatBttn2"
Tab(0).Control(2).Enabled= 0 'False
Tab(0).Control(3)= "FlatBttn3"
Tab(0).Control(3).Enabled= 0 'False
Tab(0).Control(4)= "mnvComputer"
Tab(0).Control(4).Enabled= 0 'False
Tab(0).Control(5)= "cdlOpen"
Tab(0).Control(5).Enabled= 0 'False
Tab(0).Control(6)= "ImageList1"
Tab(0).Control(6).Enabled= 0 'False
Tab(0).ControlCount= 7
TabCaption(1) = "控制"
TabPicture(1) = "FrmSendMain.frx":08E6
Tab(1).ControlEnabled= 0 'False
Tab(1).ControlCount= 0
Begin MSComctlLib.ImageList ImageList1
Left = 90
Top = 4500
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 7
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSendMain.frx":0902
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSendMain.frx":238C
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSendMain.frx":3066
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSendMain.frx":4D70
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSendMain.frx":6A7A
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSendMain.frx":7ACC
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "FrmSendMain.frx":87A6
Key = ""
EndProperty
EndProperty
End
Begin MSComDlg.CommonDialog cdlOpen
Left = 750
Top = 4560
_ExtentX = 847
_ExtentY = 847
_Version = 393216
End
Begin VertMenu.VerticalMenu mnvComputer
CausesValidation= 0 'False
Height = 5445
Left = 30
TabIndex = 1
Top = 330
Width = 1665
_ExtentX = 2937
_ExtentY = 9604
Enabled = -1 'True
MenusMax = 3
MenuCaption1 = "网上电脑"
MenuItemIcon11 = "FrmSendMain.frx":8AC0
MenuCaption2 = "更多机器"
MenuItemsMax2 = 0
MenuCaption3 = "黑名单"
MenuItemIcon31 = "FrmSendMain.frx":8DDA
MenuItemCaption31= "Item1"
Enabled = -1 'True
End
Begin DevPowerFlatBttn.FlatBttn FlatBttn3
Height = 540
Left = 1140
TabIndex = 2
Top = 5820
Width = 540
_ExtentX = 953
_ExtentY = 953
Caption = ""
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
TextColor = -2147483630
Object.ToolTipText = ""
MousePointer = 1
Picture = "FrmSendMain.frx":90F4
End
Begin DevPowerFlatBttn.FlatBttn FlatBttn2
Height = 540
Left = 600
TabIndex = 3
Top = 5820
Width = 540
_ExtentX = 953
_ExtentY = 953
Caption = ""
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
TextColor = -2147483630
Object.ToolTipText = ""
MousePointer = 1
Picture = "FrmSendMain.frx":940E
End
Begin DevPowerFlatBttn.FlatBttn FlatBttn1
Height = 540
Left = 60
TabIndex = 4
Top = 5820
Width = 540
_ExtentX = 953
_ExtentY = 953
Caption = ""
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "宋体"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
TextColor = -2147483630
Object.ToolTipText = ""
MousePointer = 1
Picture = "FrmSendMain.frx":A0E8
End
Begin VB.Image Image1
Height = 465
Left = 1080
Top = 0
Width = 585
End
End
Begin VB.Menu mnuTray
Caption = "PopupTray"
Visible = 0 'False
Begin VB.Menu mnuCalendar
Caption = "万年历"
End
Begin VB.Menu mnuAllway
Caption = "总在最前面"
End
Begin VB.Menu mnuTrayChangeIcon
Caption = "更换图标(&I)"
End
Begin VB.Menu mnuTrayRestore
Caption = "恢复(&R)"
End
Begin VB.Menu mnuTrayMinimize
Caption = "最小化(&N)"
End
Begin VB.Menu mnuTrayMaximize
Caption = "最大化(&X)"
End
Begin VB.Menu mnuTrayLine
Caption = "-"
End
Begin VB.Menu mnuAbout
Caption = "关于"
End
Begin VB.Menu mnuTrayClose
Caption = "退出(&C)"
End
End
End
Attribute VB_Name = "FrmSendMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
'***************************************************
Dim strUserName As String
Dim strComputerName As String
Dim myData As NOTIFYICONDATA
'***************************************************
Private Const RESOURCE_CONNECTED As Long = &H1&
Private Const RESOURCE_GLOBALNET As Long = &H2&
Private Const RESOURCE_REMEMBERED As Long = &H3&
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_UNKNOWN As Long = &HFFFF&
Private Const RESOURCEUSAGE_ALL As Long = &H0&
Private Const RESOURCEUSAGE_CONNECTABLE As Long = &H1&
Private Const RESOURCEUSAGE_CONTAINER As Long = &H2&
Private Const RESOURCEUSAGE_RESERVED As Long = &H80000000
Private Const NO_ERROR = 0
Private Const ERROR_MORE_DATA = 234 'L // dderror
Private Const RESOURCE_ENUM_ALL As Long = &HFFFF
Private Type NETRESOURCE
dwScope As Long
dwType As Long
dwDisplayType As Long
dwUsage As Long
pLocalName As Long
pRemoteName As Long
pComment As Long
pProvider As Long
End Type
Private Type NETRESOURCE_REAL
dwScope As Long
dwType As Long
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -