www.pudn.com > VBFTPServer.rar > frmFtp.frm

VERSION 5.00 
Object = "{6B7E6392-850A-101B-AFC0-4210102A8DA7}#1.3#0"; "COMCTL32.OCX" 
Begin VB.Form frmFTP  
   Appearance      =   0  'Flat 
   AutoRedraw      =   -1  'True 
   BackColor       =   &H00C0C0C0& 
   BorderStyle     =   1  'Fixed Single 
   Caption         =   "FTP服务器" 
   ClientHeight    =   4575 
   ClientLeft      =   1455 
   ClientTop       =   3105 
   ClientWidth     =   8355 
   BeginProperty Font  
      Name            =   "MS Sans Serif" 
      Size            =   8.25 
      Charset         =   0 
      Weight          =   700 
      Underline       =   0   'False 
      Italic          =   0   'False 
      Strikethrough   =   0   'False 
   EndProperty 
   ForeColor       =   &H80000008& 
   Icon            =   "frmFtp.frx":0000 
   LinkTopic       =   "FtpServ" 
   MaxButton       =   0   'False 
   MinButton       =   0   'False 
   PaletteMode     =   1  'UseZOrder 
   ScaleHeight     =   4575 
   ScaleWidth      =   8355 
   StartUpPosition =   2  '屏幕中心 
   Begin VB.TextBox UsrCnt  
      Appearance      =   0  'Flat 
      Height          =   285 
      Left            =   3240 
      TabIndex        =   5 
      Text            =   "0" 
      Top             =   3920 
      Width           =   855 
   End 
   Begin VB.CommandButton EndCmd  
      Caption         =   "关闭连接" 
      Height          =   375 
      Left            =   120 
      TabIndex        =   3 
      Top             =   3840 
      Width           =   1935 
   End 
   Begin VB.Frame StatFrame  
      BackColor       =   &H00C0C0C0& 
      Caption         =   "状态显示" 
      Height          =   3735 
      Left            =   120 
      TabIndex        =   1 
      Top             =   0 
      Width           =   8055 
      Begin VB.ListBox LogWnd  
         Appearance      =   0  'Flat 
         BackColor       =   &H00000000& 
         BeginProperty Font  
            Name            =   "MS Serif" 
            Size            =   6.75 
            Charset         =   0 
            Weight          =   400 
            Underline       =   0   'False 
            Italic          =   0   'False 
            Strikethrough   =   0   'False 
         EndProperty 
         ForeColor       =   &H0000FF00& 
         Height          =   3330 
         ItemData        =   "frmFtp.frx":030A 
         Left            =   120 
         List            =   "frmFtp.frx":030C 
         TabIndex        =   2 
         Top             =   300 
         Width           =   7815 
      End 
   End 
   Begin ComctlLib.StatusBar StatusBar  
      Align           =   2  'Align Bottom 
      Height          =   255 
      Left            =   0 
      TabIndex        =   0 
      Top             =   4320 
      Width           =   8355 
      _ExtentX        =   14737 
      _ExtentY        =   450 
      SimpleText      =   "" 
      _Version        =   327682 
      BeginProperty Panels {0713E89E-850A-101B-AFC0-4210102A8DA7}  
         NumPanels       =   3 
         BeginProperty Panel1 {0713E89F-850A-101B-AFC0-4210102A8DA7}  
            Object.Width           =   10654 
            MinWidth        =   10654 
            TextSave        =   "" 
            Key             =   "" 
            Object.Tag             =   "" 
         EndProperty 
         BeginProperty Panel2 {0713E89F-850A-101B-AFC0-4210102A8DA7}  
            Style           =   6 
            Object.Width           =   2187 
            MinWidth        =   2187 
            TextSave        =   "2008-6-23" 
            Key             =   "" 
            Object.Tag             =   "" 
         EndProperty 
         BeginProperty Panel3 {0713E89F-850A-101B-AFC0-4210102A8DA7}  
            Style           =   5 
            Object.Width           =   1764 
            MinWidth        =   1764 
            TextSave        =   "11:18" 
            Key             =   "" 
            Object.Tag             =   "" 
         EndProperty 
      EndProperty 
   End 
   Begin VB.Label Label1  
      BackStyle       =   0  'Transparent 
      Caption         =   "用户" 
      BeginProperty Font  
         Name            =   "MS Sans Serif" 
         Size            =   8.25 
         Charset         =   0 
         Weight          =   400 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      Height          =   255 
      Left            =   2760 
      TabIndex        =   4 
      Top             =   3960 
      Width           =   495 
   End 
   Begin VB.Menu mSetup  
      Caption         =   "安装" 
   End 
End 
Attribute VB_Name = "frmFTP" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
' Code for the form frmMTMain. 
Public MainApp As MainApp 
 
Private Sub Form_Unload(Cancel As Integer) 
  MainApp.Closing 
  Set MainApp = Nothing 
End Sub 
 
Private Sub EndCmd_Click() 
  Dim i As Integer 
  For i = 1 To MAX_N_USERS    'close all connection 
    If users(i).control_slot <> INVALID_SOCKET Then 
      retf = closesocket(users(i).control_slot) 'close control slot 
      Set users(i).Jenny = Nothing 
    End If 
    If users(i).data_slot <> INVALID_SOCKET Then 
      retf = closesocket(users(i).data_slot) 'close data slot 
    End If 
  Next 
  retf = closesocket(ServerSlot) 
  If SaveProfile(App.Path & "\Burro.ini", True) Then 
  End If 
  Unload Me 
End Sub 
 
 
Private Sub mSetup_Click() 
  UserOpts.Show 1 
End Sub