📄 frmftp.frm
字号:
VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "mscomctl.ocx"
Begin VB.Form frmFTP
BorderStyle = 1 'Fixed Single
Caption = "DevEdit - FTP"
ClientHeight = 5730
ClientLeft = 45
ClientTop = 330
ClientWidth = 7350
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
Icon = "frmFTP.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5730
ScaleWidth = 7350
StartUpPosition = 3 '窗口缺省
Begin cEdit.ctlFrame b
Height = 4020
Left = 5505
TabIndex = 12
Top = 720
Width = 1710
_ExtentX = 3016
_ExtentY = 7091
Begin VB.CheckBox chkClose
Caption = "Close when complete"
Height = 345
Left = 120
TabIndex = 15
Top = 3495
Value = 1 'Checked
Width = 1335
End
Begin VB.TextBox txtFilter
Height = 315
Left = 795
TabIndex = 14
Text = "*.*"
Top = 3083
Width = 840
End
Begin MSComctlLib.Toolbar tbMain
Height = 2970
Left = 60
TabIndex = 13
Top = 120
Width = 1605
_ExtentX = 2831
_ExtentY = 5239
ButtonWidth = 2805
ButtonHeight = 582
AllowCustomize = 0 'False
Style = 1
TextAlignment = 1
ImageList = "imgList"
_Version = 393216
BeginProperty Buttons {66833FE8-8583-11D1-B16A-00C0F0283628}
NumButtons = 9
BeginProperty Button1 {66833FEA-8583-11D1-B16A-00C0F0283628}
Caption = "&Accounts"
Key = "setup"
ImageIndex = 1
EndProperty
BeginProperty Button2 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 3
EndProperty
BeginProperty Button3 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Caption = "&Make Directory"
Key = "create"
ImageIndex = 2
EndProperty
BeginProperty Button4 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Caption = "&Rename"
Key = "rename"
ImageIndex = 5
EndProperty
BeginProperty Button5 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Caption = "&Delete"
Key = "delete"
ImageIndex = 6
EndProperty
BeginProperty Button6 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Caption = "&CHMOD (Unix)"
Key = "chmod"
Object.ToolTipText = "CHMOD (Unix)"
ImageIndex = 7
EndProperty
BeginProperty Button7 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Caption = "&Command"
Key = "command"
Object.ToolTipText = "Execute Command"
ImageIndex = 8
EndProperty
BeginProperty Button8 {66833FEA-8583-11D1-B16A-00C0F0283628}
Style = 4
EndProperty
BeginProperty Button9 {66833FEA-8583-11D1-B16A-00C0F0283628}
Enabled = 0 'False
Caption = "&Refresh"
Key = "refresh"
Object.ToolTipText = "Refresh Directory Listing"
ImageIndex = 4
EndProperty
EndProperty
End
Begin VB.Label lblFilter
Caption = "Filter:"
BeginProperty Font
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 700
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H00808080&
Height = 240
Left = 120
TabIndex = 16
Top = 3090
Width = 645
End
End
Begin cEdit.ctlFrame ctlFrame2
Height = 630
Left = 120
TabIndex = 8
Top = 30
Width = 7095
_ExtentX = 12515
_ExtentY = 1111
Begin VB.CommandButton cmdConnect
Caption = "&Browse"
Height = 390
Left = 5760
TabIndex = 10
Top = 120
Width = 1200
End
Begin VB.ComboBox cboAccount
Height = 315
Left = 1005
Style = 2 'Dropdown List
TabIndex = 9
Top = 150
Width = 4635
End
Begin VB.Label lblAcnt
Caption = "Account :"
Height = 255
Left = 120
TabIndex = 11
Top = 195
Width = 1005
End
End
Begin VB.TextBox txtFile
Height = 345
Left = 1080
TabIndex = 3
ToolTipText = "You may type files in here. Syntax: ""File1"" ""File2"". Quotes must be around each file."
Top = 4800
Width = 4770
End
Begin VB.CommandButton cmdOpen
Caption = "&Open"
Default = -1 'True
Height = 345
Left = 5985
TabIndex = 2
Top = 4800
Width = 1230
End
Begin VB.CommandButton cmdCancel
Cancel = -1 'True
Caption = "&Cancel"
Height = 345
Left = 5985
TabIndex = 1
Top = 5265
Width = 1230
End
Begin MSComctlLib.ProgressBar PB
Height = 345
Left = 1095
TabIndex = 0
Top = 5265
Width = 4770
_ExtentX = 8414
_ExtentY = 609
_Version = 393216
Appearance = 1
End
Begin MSComctlLib.ListView lstMain
Height = 3840
Left = 120
TabIndex = 6
Top = 900
Width = 5340
_ExtentX = 9419
_ExtentY = 6773
View = 3
MultiSelect = -1 'True
LabelWrap = -1 'True
HideSelection = -1 'True
_Version = 393217
Icons = "imgMain"
SmallIcons = "imgMain"
ForeColor = -2147483640
BackColor = -2147483643
BorderStyle = 1
Appearance = 1
BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851}
Name = "Verdana"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
NumItems = 4
BeginProperty ColumnHeader(1) {BDD1F052-858B-11D1-B16A-00C0F0283628}
Text = "Filename"
Object.Width = 5292
EndProperty
BeginProperty ColumnHeader(2) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 1
Text = "Size"
Object.Width = 2540
EndProperty
BeginProperty ColumnHeader(3) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 2
Text = "Date Created"
Object.Width = 3651
EndProperty
BeginProperty ColumnHeader(4) {BDD1F052-858B-11D1-B16A-00C0F0283628}
SubItemIndex = 3
Text = "Date Modified"
Object.Width = 3678
EndProperty
End
Begin MSComctlLib.ImageList imgMain
Left = 2760
Top = 3960
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 3
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmFTP.frx":1042
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmFTP.frx":1594
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmFTP.frx":1AE6
Key = ""
EndProperty
EndProperty
End
Begin MSComctlLib.ImageList imgList
Left = 1320
Top = 495
_ExtentX = 1005
_ExtentY = 1005
BackColor = -2147483643
ImageWidth = 16
ImageHeight = 16
MaskColor = 12632256
_Version = 393216
BeginProperty Images {2C247F25-8591-11D1-B16A-00C0F0283628}
NumListImages = 8
BeginProperty ListImage1 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmFTP.frx":2038
Key = ""
EndProperty
BeginProperty ListImage2 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmFTP.frx":2198
Key = ""
EndProperty
BeginProperty ListImage3 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmFTP.frx":25EC
Key = ""
EndProperty
BeginProperty ListImage4 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmFTP.frx":2A40
Key = ""
EndProperty
BeginProperty ListImage5 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmFTP.frx":2B9C
Key = ""
EndProperty
BeginProperty ListImage6 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmFTP.frx":2CF8
Key = ""
EndProperty
BeginProperty ListImage7 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmFTP.frx":2E0C
Key = ""
EndProperty
BeginProperty ListImage8 {2C247F27-8591-11D1-B16A-00C0F0283628}
Picture = "frmFTP.frx":3E5E
Key = ""
EndProperty
EndProperty
End
Begin VB.Label lblDir
BeginProperty Font
Name = "MS Sans Serif"
Size = 8.25
Charset = 0
Weight = 400
Underline = 0 'False
Italic = 0 'False
Strikethrough = 0 'False
EndProperty
ForeColor = &H000000C0&
Height = 255
Left = 135
TabIndex = 7
Top = 690
Width = 4965
End
Begin VB.Label lblFile
Caption = "File Name:"
Height = 285
Index = 0
Left = 120
TabIndex = 5
Top = 4890
Width = 3060
End
Begin VB.Label lblProgress
Caption = "Progress:"
Height = 285
Index = 1
Left = 135
TabIndex = 4
Top = 5355
Width = 3060
End
Begin VB.Menu mnuFile
Caption = "&File"
Visible = 0 'False
Begin VB.Menu mnuAccounts
Caption = "Accounts"
End
Begin VB.Menu mnuBar0
Caption = "-"
End
Begin VB.Menu mnuMakeDir
Caption = "&Make Directory"
End
Begin VB.Menu mnuRename
Caption = "&Rename"
End
Begin VB.Menu mnuDelete
Caption = "&Delete"
End
Begin VB.Menu mnuChmod
Caption = "&CHMOD (Unix)"
End
Begin VB.Menu mnuCommand
Caption = "&Command"
End
Begin VB.Menu mnuBar1
Caption = "-"
End
Begin VB.Menu mnuRefresh
Caption = "&Refresh"
End
End
End
Attribute VB_Name = "frmFTP"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'****************************************************************************
'人人为我，我为人人
'枕善居汉化收藏整理
'发布日期：05/06/19
'描 述：完整版本的超强文件编辑器
'网 站：http://www.mndsoft.com/
'e-mail：mnd@mndsoft.com
'OICQ : 88382850
'****************************************************************************
Option Explicit
Dim URL As String, Port As String, User As String, Pass As String, SiteName As String
Public SaveString As String
Dim TopDir As String, DoRun As Long
Private Sub cmdCancel_Click()
Unload Me
End Sub
Private Sub cmdConnect_Click()
Dim file As String
Dim fFile As Integer, FTPInfo As FTP
DoEvents
If cboAccount.Text = "" Then
MsgBox "Please select an account to access first.", vbOKOnly + vbCritical, "Error"
Exit Sub
End If
file = App.path & "\accounts\" & cboAccount.Text & ".ftp"
If Dir(file) = "" Then
MsgBox "There was an error reading the FTP file."
Exit Sub
End If
DoEvents
fFile = FreeFile()
Open App.path & "\Accounts\" & cboAccount.Text & ".ftp" For Binary Access Read As #fFile
Get #fFile, , FTPInfo
Close #fFile
URL = FTPInfo.URL
Port = FTPInfo.PortNum
User = FTPInfo.UserName
Pass = Base64Decode(FTPInfo.Password)
DoEvents
If URL = "" Or Port = "" Or User = "" Or Pass = "" Then
MsgBox "There was an error reading the FTP directory."
Exit Sub
End If
DoEvents
SiteName = cboAccount.Text
hSession = InternetOpen(SiteName, INTERNET_OPEN_TYPE_DIRECT, "", "", INTERNET_FLAG_NO_CACHE_WRITE)
DoEvents
If hSession <> 0 Then
hConnect = InternetConnect(hSession, URL, Port, User, Pass, INTERNET_SERVICE_FTP, INTERNET_FLAG_PASSIVE, &H0)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -