📄 faws.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Begin VB.Form Faws
Caption = "共享文件"
ClientHeight = 8595
ClientLeft = 60
ClientTop = 855
ClientWidth = 12690
Icon = "Faws.frx":0000
LinkTopic = "Form3"
ScaleHeight = 8270.66
ScaleMode = 0 'User
ScaleWidth = 12208.94
StartUpPosition = 1 '所有者中心
Begin VB.Frame Frame1
Caption = "我的电脑"
Height = 8415
Left = 120
TabIndex = 6
Top = 120
Width = 6000
Begin VB.ComboBox Combo1
Height = 300
ItemData = "Faws.frx":57E2
Left = 1560
List = "Faws.frx":57E4
TabIndex = 9
Top = 960
Width = 4335
End
Begin MSComctlLib.StatusBar StatusBar1
Height = 255
Left = 120
TabIndex = 7
Top = 8040
Width = 5775
_ExtentX = 10186
_ExtentY = 450
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 2
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Text = "当前路径："
TextSave = "当前路径："
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 2117
MinWidth = 2117
EndProperty
EndProperty
End
Begin MSComctlLib.Toolbar Toolbar1
Height = 570
Left = 120
TabIndex = 8
Top = 240
Width = 5775
_ExtentX = 10186
_ExtentY = 1005
ButtonWidth = 1032
ButtonHeight = 1005
Appearance = 1
Style = 1
ImageList = "ImageList2"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 5
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "我的电脑"
Object.ToolTipText = "我的电脑"
ImageIndex = 6
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "后退"
Object.ToolTipText = "后退"
ImageIndex = 4
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "前进"
Object.ToolTipText = "前进"
ImageIndex = 5
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "向上"
Object.ToolTipText = "向上"
ImageIndex = 1
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "新建文件夹"
Object.ToolTipText = "新建文件夹"
ImageIndex = 2
EndProperty
EndProperty
End
Begin MSComctlLib.ListView ListView1
Height = 6495
Left = 120
TabIndex = 10
Top = 1440
Width = 5775
_ExtentX = 10186
_ExtentY = 11456
Arrange = 2
LabelEdit = 1
MultiSelect = -1 'True
LabelWrap = -1 'True
HideSelection = 0 'False
_Version = 393217
Icons = "ImageList1"
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 0
End
Begin VB.Label Label1
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "本机驱动器列表："
ForeColor = &H00000000&
Height = 180
Left = 120
TabIndex = 11
Top = 1080
Width = 1440
End
End
Begin VB.Frame Frame2
Caption = "远程主机"
Height = 8415
Left = 6480
TabIndex = 0
Top = 120
Width = 6135
Begin VB.ComboBox Combo2
Height = 300
ItemData = "Faws.frx":57E6
Left = 1680
List = "Faws.frx":57E8
TabIndex = 1
Top = 960
Width = 4335
End
Begin MSComctlLib.ListView ListView2
Height = 6495
Left = 120
TabIndex = 2
Top = 1440
Width = 5895
_ExtentX = 10398
_ExtentY = 11456
Arrange = 2
LabelEdit = 1
MultiSelect = -1 'True
LabelWrap = -1 'True
HideSelection = 0 'False
_Version = 393217
Icons = "ImageList1"
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
NumItems = 0
End
Begin MSComctlLib.Toolbar Toolbar2
Height = 570
Left = 120
TabIndex = 3
Top = 240
Width = 5295
_ExtentX = 9340
_ExtentY = 1005
ButtonWidth = 1032
ButtonHeight = 1005
Appearance = 1
Style = 1
ImageList = "ImageList2"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 5
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "远程电脑"
Object.ToolTipText = "远程电脑"
ImageIndex = 7
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "后退"
Object.ToolTipText = "后退"
ImageIndex = 4
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "前进"
Object.ToolTipText = "前进"
ImageIndex = 5
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "向上"
Object.ToolTipText = "向上"
ImageIndex = 1
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Key = "新建文件夹"
Object.ToolTipText = "新建文件夹"
ImageIndex = 2
EndProperty
EndProperty
End
Begin MSComctlLib.StatusBar StatusBar2
Height = 255
Left = 120
TabIndex = 4
Top = 8040
Width = 2775
_ExtentX = 4895
_ExtentY = 450
_Version = 393216
BeginProperty Panels {8E3867A5-8586-11D1-B16A-00C0F0283628}
NumPanels = 2
BeginProperty Panel1 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Text = "当前路径："
TextSave = "当前路径："
EndProperty
BeginProperty Panel2 {8E3867AB-8586-11D1-B16A-00C0F0283628}
Object.Width = 2117
MinWidth = 2117
EndProperty
EndProperty
End
Begin VB.Label Label2
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "被控端驱动器列表："
ForeColor = &H00000000&
Height = 180
Left = 120
TabIndex = 5
Top = 1080
Width = 1620
End
End
Begin MSComctlLib.ImageList ImageList2
Left = 120
Top = 6960
_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 = "Faws.frx":57EA
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Faws.frx":64C4
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Faws.frx":719E
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Faws.frx":7E78
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Faws.frx":8B52
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Faws.frx":982C
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Faws.frx":A106
Key = ""
EndProperty
EndProperty
End
Begin MSWinsockLib.Winsock Scmnet4
Left = 120
Top = 6960
_ExtentX = 741
_ExtentY = 741
_Version = 393216
Protocol = 1
End
Begin MSWinsockLib.Winsock Scmnet3
Left = 120
Top = 6960
_ExtentX = 741
_ExtentY = 741
_Version = 393216
End
Begin MSComctlLib.ImageList ImageList1
Left = 120
Top = 6960
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 32
ImageHeight = 32
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 9
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Faws.frx":A9E0
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Faws.frx":B6BA
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Faws.frx":C394
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Faws.frx":D06E
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Faws.frx":DD48
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Faws.frx":EA22
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Faws.frx":F6FC
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Faws.frx":103D6
Key = ""
EndProperty
BeginProperty ListImage9 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "Faws.frx":110B0
Key = ""
EndProperty
EndProperty
End
Begin VB.Timer Timer1
Enabled = 0 'False
Interval = 100
Left = 120
Top = 6960
End
Begin VB.Timer Timer2
Enabled = 0 'False
Interval = 100
Left = 120
Top = 6960
End
Begin VB.Frame Frame3
BorderStyle = 0 'None
Caption = "Frame3"
Height = 375
Left = 6120
TabIndex = 12
Top = 5400
Width = 375
Begin VB.Label Label4
BackStyle = 0 'Transparent
Caption = "被控端文件传到本机"
Height = 615
Left = 120
TabIndex = 14
Top = 3360
Width = 855
End
Begin VB.Label Label3
BackStyle = 0 'Transparent
Caption = "本机文件传到被控端"
Height = 615
Left = 120
TabIndex = 13
Top = 5880
Width = 855
End
Begin VB.Image Image2
Height = 480
Left = 120
ToolTipText = "本机文件传到被控端"
Top = 4920
Width = 480
End
Begin VB.Image Image1
Height = 480
Left = 120
ToolTipText = "被控端文件传到本机"
Top = 2400
Width = 480
End
End
Begin VB.Menu file1
Caption = "文件(&F)"
Begin VB.Menu Open1
Caption = "打开(&O)"
Shortcut = ^O
End
Begin VB.Menu Ropen
Caption = "远程打开文件(&R)"
End
Begin VB.Menu Lopen
Caption = "本地打开文件(&L)"
End
Begin VB.Menu Rrtbox
Caption = "远程读取文本(&T)"
End
Begin VB.Menu Sendfile1
Caption = "传送(&S)"
End
Begin VB.Menu redata
Caption = "接收文件(&R)"
End
Begin VB.Menu h4
Caption = "-"
End
Begin VB.Menu Cwallpaper
Caption = "设置桌面壁纸(&D)"
Begin VB.Menu Cwallb
Caption = "设置为平铺(&B)"
End
Begin VB.Menu Cwallm
Caption = "设置为居中(&M)"
End
Begin VB.Menu Cwallk
Caption = "设置为拉伸(&K)"
End
End
Begin VB.Menu h1
Caption = "-"
End
Begin VB.Menu Auls
Caption = "自动排列(&A)"
Shortcut = ^A
End
Begin VB.Menu Enews
Caption = "刷新(&E)"
Shortcut = ^E
End
Begin VB.Menu h2
Caption = "-"
End
Begin VB.Menu Delfiles
Caption = "删除(&D)"
Shortcut = ^D
End
Begin VB.Menu Rmnewn
Caption = "重命名(&M)"
End
Begin VB.Menu Rfiles
Caption = "属性(&R)"
End
Begin VB.Menu h3
Caption = "-"
End
Begin VB.Menu Exitwin
Caption = "退出(&X)"
End
End
End
Attribute VB_Name = "Faws"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Private Declare Function ExtractAssociatedIcon Lib "shell32.dll" Alias "ExtractAssociatedIconA" (ByVal hInst As Long, ByVal lpIconPath As String, lpiIcon As Long) As Long
'Private Declare Function DrawIcon Lib "user32" (ByVal hdc As Long, ByVal x As Long, ByVal y As Long, ByVal hIcon As Long) As Long
Dim imageindex As Long 'imagelist中新增图标的索引
Private Type insuffix '用来图标和文件类型的关联
suffix As String '后缀
index As Long '在imagelist中的索引
End Type
Dim imagel() As insuffix ''用来图标和文件类型的关联
Dim fileput As Boolean 'list2传过来的是文件名，还是数据
Dim a4 As Long '为数组的下界
Dim filesizes As Long 'list2 to lost1 的大小
Dim list1key As String '记录list2到list1中要放入的路径
Dim OldName, Newname As String '重命名
Private Declare Function ScreenToClient Lib "user32" (ByVal hwnd As Long, lpPoint As POINTAPI) As Long
'''''''''打开文件
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
Const SW_SHOWNORMAL = 1
'''''''''''''''''
Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
Private Type POINTAPI
X As Long
Y As Long
End Type
Dim z As POINTAPI
Public mu1 As String
Public port2 As String
Public IP2 As String
'新增6个变量用于保存路径
'Dim l1f1 As String 'list1中向上用的路径
Dim l1f2 As String 'list1中后退用的路径
Dim l1f3 As String 'list1中前进用的路径
Private Sub Auls_Click()
If mu1 = 1 Then
ListView1.Sorted = True
ElseIf mu1 = 2 Then
ListView2.Sorted = True
End If
End Sub
'Dim l2f1 As String 'list2中向上用的路径// 改为被控方IP
'Dim l2f2 As String 'list2中后退用的路径
'Dim l2f3 As String 'list2中前进用的路径
Private Sub Combo1_Click()
ListView1.ListItems.Clear
Toolbar1.Buttons(1).Enabled = True
Toolbar1.Buttons(2).Enabled = True
Toolbar1.Buttons(3).Enabled = True
Toolbar1.Buttons(4).Enabled = False
l1f2 = list1key
Dim index As Long
Dim f
Dim path As String
Dim fc, f1, fs, d, dc
Dim S As String
Set fs = CreateObject("Scripting.FileSystemObject")
Dim a1 As String
Dim pi As String
a1 = Combo1.Text
Select Case a1
Case "我的电脑"
Call computer
Exit Sub
Case "我的文档"
path = regread("personal")
On Error GoTo er:
Set f = fs.GetFolder(path & "\")
Set fc = f.SubFolders
For Each f1 In fc
S = f1.name
ListView1.ListItems.Add , f1.path & "\", S, 1
Next
Set fc = f.Files
For Each f1 In fc
S = f1.name
index = icoindex(f1.path, S)
ListView1.ListItems.Add , f1.path, S, index
Next
l1f2 = list1key
list1key = path & "\"
StatusBar1.Panels(2).Text = list1key
StatusBar1.Panels(2).ToolTipText = list1key
Exit Sub
Case "桌面"
path = regread("desktop")
On Error GoTo er:
Set f = fs.GetFolder(path & "\")
Set fc = f.SubFolders
For Each f1 In fc
S = f1.name
ListView1.ListItems.Add , f1.path & "\", S, 1
Next
Set fc = f.Files
For Each f1 In fc
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -