2024年4月1日发(作者：)

Private Type NOTIFYICONDATA

cbSize As Long

hwnd As Long

uId As Long

uFlags As Long

ucallbackMessage As Long

hIcon As Long

szTip As String * 64 '指向后显示文本长度

End Type

Private Const NIM_ADD = &H0

Private Const NIM_MODIFY = &H1

Private Const NIM_DELETE = &H2

Private Const WM_MOUSEMOVE = &H200

Private Const NIF_MESSAGE = &H1

Private Const NIF_ICON = &H2

Private Const NIF_TIP = &H4

Private Const WM_LBUTTONDBLCLK = &H203

Private Const WM_LBUTTONDOWN = &H201

Private Const wm_lbuttonup = &H202

Private Const WM_RBUTTONDBLCLK = &H206

Private Const WM_RBUTTONDOWN = &H204

Private Const WM_RBUTTONUP = &H205

Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal

dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean

Dim T As NOTIFYICONDATA

Public Strtimer As String

Dim Buto As String

Dim Scmnumber As Integer

Dim Scmlb1 As Long

Dim lcon As Boolean

Dim Buuse As Boolean

Private Sub Abscm_Click()

End Sub

Private Sub Box1_Change()

With Box1

'.SetFocus '选

.SelStart = 0

.SelLength = Len(.Text)

End With

End Sub

Private Sub Box2_KeyPress(keyascii As Integer)

On Error GoTo sc

If keyascii = 13 Then

If Buto <> "Use Button" Then GoTo Tobuto

If = "" Then

MsgBox "发送内容不能空！", 64, "提示"

= ""

us

SendKeys "{backspace}"

Else

Call Sendinfor("Msgwins" & "(" & Time$ & ")" & Scmnet1(0).LocalHostName & ":" &

vbCrLf & & vbCrLf & vbCrLf)

= & "(" & Time$ & ")" & Scmnet1(0).LocalHostName & ":" &

vbCrLf & & vbCrLf & vbCrLf

= ""

us

SendKeys "{backspace}"

= & vbCrLf & "信息发送成功！" & "(" & Time$ & ")" & vbCrLf

End If