VB 局域网传输工具(接收端)

VERSION 5.00
Object = "{248DD890-BB45-11CF-9ABC-0080C7E7B78D}#1.0#0"; "MSWINSCK.OCX"
Begin VB.Form frmMain
   BorderStyle     =   1  'Fixed Single
   Caption         =   "程序之家文件局域网传输器接收端 V1.0"
   ClientHeight    =   3825
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   6870
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   ScaleHeight     =   3825
   ScaleWidth      =   6870
   StartUpPosition =   2  '屏幕中心
   Begin VB.Timer timerStatus
      Interval        =   3000
      Left            =   720
      Top             =   1920
   End
   Begin VB.CommandButton cmdExit
      Cancel          =   -1  'True
      Caption         =   "退出(&C)"
      Height          =   300
      Left            =   5910
      TabIndex        =   12
      Top             =   3360
      Width           =   840
   End
   Begin VB.TextBox textMu
      Alignment       =   2  'Center
      Height          =   270
      Left            =   5235
      TabIndex        =   9
      Text            =   "3"
      Top             =   720
      Width           =   345
   End
   Begin VB.CommandButton cmdSet
      Caption         =   "设置(&S)"
      Height          =   300
      Left            =   5910
      TabIndex        =   8
      Top             =   720
      Width           =   840
   End
   Begin VB.CheckBox checkConnect
      Caption         =   "等待连接(&W)"
      Height          =   225
      Left            =   4080
      TabIndex        =   4
      Top             =   360
      Value           =   1  'Checked
      Width           =   1290
   End
   Begin VB.TextBox textPath
      Height          =   1350
      Left            =   4080
      MultiLine       =   -1  'True
      TabIndex        =   3
      Top             =   1880
      Width           =   2670
   End
   Begin VB.CommandButton cmdBrowse
      Caption         =   "浏览(&B)"
      Height          =   300
      Left            =   5910
      TabIndex        =   2
      Top             =   1460
      Width           =   840
   End
   Begin VB.TextBox textPort
      Height          =   270
      Left            =   6120
      MaxLength       =   5
      TabIndex        =   1
      Text            =   "5300"
      Top             =   350
      Width           =   615
   End
   Begin VB.ListBox lstFiles
      Height          =   3300
      Left            =   120
      TabIndex        =   0
      Top             =   360
      Width           =   3855
   End
   Begin MSWinsockLib.Winsock wsk
      Index           =   0
      Left            =   4560
      Top             =   3600
      _ExtentX        =   741
      _ExtentY        =   741
      _Version        =   393216
   End
   Begin VB.Label lMinConnect
      AutoSize        =   -1  'True
      Caption         =   "活动连接: 0"
      Height          =   180
      Left            =   5715
      TabIndex        =   14
      Top             =   1150
      Width           =   990
   End
   Begin VB.Label lMaxConnect
      AutoSize        =   -1  'True
      Caption         =   "最大连接: 0"
      Height          =   180
      Left            =   4080
      TabIndex        =   13
      Top             =   1150
      Width           =   1335
   End
   Begin VB.Label lSet
      Caption         =   "连接超时设置:"
      Height          =   180
      Index           =   0
      Left            =   4080
      TabIndex        =   11
      Top             =   750
      Width           =   1170
   End
   Begin VB.Label lSet
      AutoSize        =   -1  'True
      Caption         =   "秒"
      Height          =   180
      Index           =   1
      Left            =   5685
      TabIndex        =   10
      Top             =   765
      Width           =   180
   End
   Begin VB.Label Label3
      Caption         =   "已收到的文件列表:"
      Height          =   180
      Index           =   2
      Left            =   120
      TabIndex        =   7
      Top             =   120
      Width           =   1530
   End
   Begin VB.Label lFolder
      Caption         =   "文件默认保存目录:"
      Height          =   180
      Left            =   4080
      TabIndex        &