📄 frmnetsend.frm
字号:
VERSION 5.00
Begin VB.Form frmnetSend
BackColor = &H00FFFFFF&
BorderStyle = 0 'None
Caption = "网络消息发送"
ClientHeight = 7740
ClientLeft = 0
ClientTop = 0
ClientWidth = 4350
DrawStyle = 2 'Dot
LinkTopic = "Form1"
MouseIcon = "frmnetSend.frx":0000
ScaleHeight = 7740
ScaleWidth = 4350
ShowInTaskbar = 0 'False
StartUpPosition = 2 '屏幕中心
Begin khgl.dBar dBar1
Height = 315
Left = 360
TabIndex = 17
Top = 7020
Width = 3615
_extentx = 6376
_extenty = 556
End
Begin VB.Frame SettingFrame
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "用户配置面板"
ForeColor = &H80000008&
Height = 2895
Left = 120
TabIndex = 7
Top = 3420
Width = 3975
Begin khgl.chameleonButton back
Height = 315
Left = 2520
TabIndex = 23
Top = 2400
Width = 855
_extentx = 1508
_extenty = 556
btype = 3
tx = "返回 "
enab = -1
font = "frmnetSend.frx":0CCA
coltype = 1
focusr = -1
bcol = 14215660
fcol = 0
End
Begin khgl.chameleonButton GetIpButton
Height = 315
Left = 900
TabIndex = 22
Top = 2400
Width = 975
_extentx = 1720
_extenty = 556
btype = 3
tx = "获取 IP "
enab = -1
font = "frmnetSend.frx":0CEE
coltype = 1
focusr = -1
bcol = 14215660
fcol = 0
End
Begin khgl.chameleonButton EditChat
Height = 315
Left = 2400
TabIndex = 21
Top = 600
Width = 1455
_extentx = 2566
_extenty = 556
btype = 3
tx = "查看历史消息 "
enab = -1
font = "frmnetSend.frx":0D12
coltype = 1
focusr = -1
bcol = 14215660
fcol = 0
End
Begin VB.CheckBox isAutoResizeCheck
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "让窗体能够自动伸缩"
ForeColor = &H80000008&
Height = 255
Left = 240
TabIndex = 13
Top = 2040
Width = 2955
End
Begin VB.CheckBox isShow
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "在任务栏上显示"
ForeColor = &H80000008&
Height = 255
Left = 240
TabIndex = 12
Top = 1680
Width = 2895
End
Begin VB.CheckBox OnTop
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "总在任何窗口最上面"
ForeColor = &H80000008&
Height = 315
Left = 240
TabIndex = 11
Top = 1320
Width = 3315
End
Begin VB.CheckBox isMin
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "消息成功发送后，窗口自动最小化"
ForeColor = &H80000008&
Height = 255
Left = 240
TabIndex = 10
Top = 1020
Width = 3315
End
Begin VB.CheckBox isRecCheck
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "记录当前消息发送内容"
ForeColor = &H80000008&
Height = 315
Left = 240
TabIndex = 9
Top = 660
Width = 3135
End
Begin VB.CheckBox isStartWithWin
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "开机启动"
ForeColor = &H80000008&
Height = 255
Left = 240
TabIndex = 8
Top = 360
Width = 2355
End
End
Begin VB.Frame MainFrame
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "消息发送"
ForeColor = &H80000008&
Height = 2415
Left = 180
TabIndex = 0
Top = 480
Width = 3915
Begin khgl.chameleonButton Setting
Height = 315
Left = 2820
TabIndex = 20
Top = 1860
Width = 915
_extentx = 1614
_extenty = 556
btype = 3
tx = "选项 "
enab = -1
font = "frmnetSend.frx":0D36
coltype = 1
focusr = -1
bcol = 14215660
fcol = 0
End
Begin khgl.chameleonButton CmdClr
Height = 315
Left = 1260
TabIndex = 19
Top = 1860
Width = 975
_extentx = 1720
_extenty = 556
btype = 3
tx = "清除 "
enab = -1
font = "frmnetSend.frx":0D5A
coltype = 1
focusr = -1
bcol = 14215660
fcol = 0
End
Begin khgl.chameleonButton cmdSend
Height = 315
Left = 360
TabIndex = 18
Top = 1860
Width = 915
_extentx = 1614
_extenty = 556
btype = 3
tx = "发送 "
enab = -1
font = "frmnetSend.frx":0D7E
coltype = 1
focusr = -1
bcol = 14215660
fcol = 0
End
Begin VB.TextBox txtMSGID
Appearance = 0 'Flat
Height = 495
Left = 1200
TabIndex = 4
Top = 840
Width = 2535
End
Begin VB.ComboBox txtUser
Appearance = 0 'Flat
Height = 300
Left = 1200
TabIndex = 2
Top = 420
Width = 2535
End
Begin VB.Label lblResponse
Appearance = 0 'Flat
BackColor = &H80000005&
ForeColor = &H80000008&
Height = 255
Left = 1200
TabIndex = 6
Top = 1380
Width = 2535
End
Begin VB.Label Label3
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "发送状态"
ForeColor = &H80000008&
Height = 315
Left = 240
TabIndex = 5
Top = 1440
Width = 795
End
Begin VB.Label Label2
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "消息内容"
ForeColor = &H80000008&
Height = 255
Left = 240
TabIndex = 3
Top = 900
Width = 855
End
Begin VB.Label Label1
Appearance = 0 'Flat
BackColor = &H80000005&
Caption = "计算机名/IP"
ForeColor = &H80000008&
Height = 195
Left = 120
TabIndex = 1
Top = 420
Width = 1155
End
End
Begin VB.Label EndButton
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
ForeColor = &H80000008&
Height = 135
Left = 3960
TabIndex = 16
Top = 120
Width = 135
End
Begin VB.Label MinButton
Appearance = 0 'Flat
BackColor = &H80000005&
BackStyle = 0 'Transparent
ForeColor = &H80000008&
Height = 135
Left = 3780
TabIndex = 15
Top = 120
Width = 195
End
Begin VB.Label UnfoldButton
Appearance = 0 'Flat
BackColor = &H00FFFFFF&
BackStyle = 0 'Transparent
ForeColor = &H80000008&
Height = 135
Left = 3540
TabIndex = 14
Top = 120
Width = 195
End
Begin VB.Image BgBottom
Height = 1575
Left = 0
Picture = "frmnetSend.frx":0DA2
Top = 5280
Width = 4215
End
Begin VB.Image Image1
Height = 3120
Left = 0
Picture = "frmnetSend.frx":1383
Top = 0
Width = 4215
End
End
Attribute VB_Name = "frmnetSend"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Public WinDir As String 'Windows 系统目录
Private sfPath As String
Private slogPath As String
Private sExecFile As String
Private ChatFile As String
Private FrmHeight As Long
Private FrmSettingHeight As Long
Private FrmWidth As Long
Public isSending As Boolean
Public isSetting As Boolean
Public isTitleDblClickMin As Boolean '窗体是否是被双击标题栏而最小化了
Public isSuccessSend As Boolean '消息是否被成功发送
Private MyComputerName As String
Private MyComputerVer As Long
Private RunKeyPath As String '注册表中：是否开机启动的键
Private MyPath As String '应用程序自己的路径，包括文件名
Private isRec As Boolean '是否记录当前消息内容
Private isRecPath As String '注册表中：是否记录当前消息内容
Private isRecChatToFile As String '是否保存当前消息记录的值
Private isWinMin As Boolean '消息成功发送后，是否最小化窗口
Private isWinMinPath As String '注册表中：消息发送成功后是否最小化窗体的键
Private isShowInTaskbar As String '是否在任务栏上显示
Private isShowInTaskbarPath As String '注册表中：是否在任务栏上显示键
Private isAutoResize As Boolean '当窗体置在顶部，窗体是否具有自动伸缩功能
Private isAutoResizeValue As String '同上
Private isAutoResizePath As String '注册表中：同上
Private isOnTop As String '是否窗口总在最上
Private isOntopPath As String '注册表中：是否将窗口设置在最上键
Private LastSendTo As String '最后一个发消息的人
Private LastSendToPath As String '注册表中：上次最后一个发消息的人
Public isSetFrmOnTop As Boolean '是否设置窗体总在最上
'URL 链接声明
Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long
'对文件操作（无提示删除文件）的声明
Private Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long
'获取 Windows 目录声明
Private Declare Function GetWindowsDirectory Lib "kernel32" Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
'是否在任务栏上显示 声明开始
Private Const GWL_EXSTYLE = (-20)
Private Const WS_EX_APPWINDOW = &H40000
Private Declare Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long
Private Declare Function SetWindowLong Lib "user32" Alias "SetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long
Private lStyle As Long
Private lResult As Long
'是否在任务栏上显示 声明结束
'发送按钮
'------------------------------------------------------------
Private Sub cmdSend_Click()
iSenseKeyPress txtMSGID, 13 '智能填写
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -