?? ftp.frm
字號:
VERSION 5.00
Object = "{6580F760-7819-11CF-B86C-444553540000}#1.0#0"; "EZFTP.OCX"
Begin VB.Form Main
Caption = "巴可網絡文件傳送管理器"
ClientHeight = 8580
ClientLeft = 2265
ClientTop = 1665
ClientWidth = 8175
Icon = "FTP.frx":0000
LinkTopic = "Form1"
MaxButton = 0 'False
PaletteMode = 1 'UseZOrder
ScaleHeight = 8580
ScaleWidth = 8175
StartUpPosition = 1 '所有者中心
Begin VB.Timer XsZt
Interval = 1000
Left = 120
Top = 90000
End
Begin VB.Frame Frame1
Caption = "選擇連接主機及用戶名"
Height = 1575
Left = 120
TabIndex = 12
Top = 120
Width = 7815
Begin VB.CommandButton ZzCommand
Caption = "中 止"
Enabled = 0 'False
Height = 440
Left = 5520
MouseIcon = "FTP.frx":0442
MousePointer = 99 'Custom
TabIndex = 18
Top = 880
Width = 1035
End
Begin VB.CommandButton Exit
Caption = "退 出"
Height = 440
Left = 6600
TabIndex = 17
Top = 880
Width = 1035
End
Begin VB.CommandButton GyCommand
Caption = "關 于"
Height = 440
Left = 6600
TabIndex = 16
Top = 360
Width = 1035
End
Begin VB.ComboBox Host
Height = 300
Left = 1080
TabIndex = 1
Text = "www.bacocis.com"
Top = 360
Width = 3975
End
Begin VB.ComboBox UserName
Height = 300
Left = 1080
TabIndex = 2
Text = "mqkng"
Top = 720
Width = 3975
End
Begin VB.TextBox Password
Height = 285
IMEMode = 3 'DISABLE
Left = 1080
PasswordChar = "*"
TabIndex = 3
Text = "720917"
Top = 1080
Width = 3975
End
Begin VB.CommandButton OK
Caption = "連 接"
Height = 440
Left = 5520
MouseIcon = "FTP.frx":0594
MousePointer = 99 'Custom
TabIndex = 0
Top = 380
Width = 1035
End
Begin VB.Label Label2
AutoSize = -1 'True
Caption = "服務器:"
Height = 180
Left = 240
TabIndex = 15
Top = 420
Width = 720
End
Begin VB.Label Label3
AutoSize = -1 'True
Caption = "用戶名:"
Height = 180
Left = 240
TabIndex = 14
Top = 780
Width = 720
End
Begin VB.Label Label4
AutoSize = -1 'True
Caption = "密 碼:"
Height = 180
Left = 240
TabIndex = 13
Top = 1140
Width = 720
End
End
Begin EZFTPLib.EZFTP FTP
Left = 120
Top = 90000
_Version = 65536
_ExtentX = 800
_ExtentY = 800
_StockProps = 0
LocalFile = ""
RemoteFile = ""
RemoteAddres = ""
UserName = ""
Password = ""
Binary = 0 'False
End
Begin VB.Frame Remote
Caption = "服務器文件夾"
Height = 4935
Left = 4380
TabIndex = 5
Top = 1920
Width = 3555
Begin VB.ListBox RemoteFiles
Height = 2400
Left = 120
TabIndex = 26
Top = 2400
Width = 3315
End
Begin VB.ListBox RemoteDirectories
Height = 1500
Left = 120
TabIndex = 25
Top = 720
Width = 2235
End
Begin VB.CommandButton ToLocal
Caption = "開始下載"
Enabled = 0 'False
Height = 400
Left = 2460
MouseIcon = "FTP.frx":06E6
MousePointer = 99 'Custom
TabIndex = 20
Top = 1800
Width = 975
End
Begin VB.CommandButton RemoteDEL
Caption = "刪除文件"
Enabled = 0 'False
Height = 315
Left = 2460
TabIndex = 11
Top = 1080
Width = 975
End
Begin VB.CommandButton RemoteMD
Caption = "新建目錄"
Enabled = 0 'False
Height = 315
Left = 2460
TabIndex = 9
Top = 360
Width = 975
End
Begin VB.CommandButton RemoteRD
Caption = "目錄刪除"
Enabled = 0 'False
Height = 315
Left = 2460
TabIndex = 8
Top = 720
Width = 975
End
Begin VB.Label RWJN
Caption = "服務器目錄列表:"
Height = 255
Left = 120
TabIndex = 28
Top = 360
Width = 2175
End
End
Begin VB.Frame Local
Caption = "本機文件夾"
Height = 4935
Left = 120
TabIndex = 4
Top = 1920
Width = 4155
Begin VB.DriveListBox DriveXz
Height = 300
Left = 120
TabIndex = 24
Top = 360
Width = 2775
End
Begin VB.DirListBox LocalDirectories
Height = 1560
Left = 120
TabIndex = 23
Top = 720
Width = 2775
End
Begin VB.FileListBox LocalFiles
Height = 2430
Left = 120
MultiSelect = 2 'Extended
TabIndex = 22
Top = 2400
Width = 3975
End
Begin VB.CommandButton ToRemote
Caption = "開始上傳"
Enabled = 0 'False
Height = 400
Left = 3060
MouseIcon = "FTP.frx":0838
MousePointer = 99 'Custom
TabIndex = 21
Top = 1800
Width = 975
End
Begin VB.CommandButton LocalDEL
Caption = "刪除文件"
Height = 315
Left = 3060
TabIndex = 10
Top = 1080
Width = 975
End
Begin VB.CommandButton LocalMD
Caption = "新建目錄"
Height = 315
Left = 3060
TabIndex = 7
Top = 360
Width = 975
End
Begin VB.CommandButton LocalRD
Caption = "目錄刪除"
Height = 315
Left = 3060
TabIndex = 6
Top = 720
Width = 975
End
End
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -