帮办忙呀，一定重谢！！！

Question

哪里有错
Private Sub Winsock1_ConnectionRequest(Index As Integer, ByVal requestID As Long)
      If Index = 0 Then
        CurrentUse = CurrentUser + 1
        
        StatusBar1.Panels(1).Text = "No.of Connection: " & CurrentUser
        
        Load Winsock1(CurrentUser)
        Load Winsock2(CurrentUser)
        
        Winsock2(CurrentUser).Close
        
        With Winsock1(CurrentUser)
        .LocalPort = 0
        .Accept requestID
        .SendData vbCrLf & "220 leohuang.com FTP Server(Version 1.0.0)" & Format(Data, "Ddd,mmm d yyyy") & "ready."
        .SendData vbCrLf & "220 Welcome to leo huang FTP Server" & vbCrLf & vbCrLf
        End With
        IstStatus.AddItem "[" & CurrentUser & "] Attempt to connect from " & Winsock1(Index).RemoteHostIP & ":" & Winsock1(Index).RemotePort
        IstStatus.Selected(IstStatus.Listcout - 1) = True
        End If
   End Sub

Answer 1

太乱,不知道报什么错
在一个socket控件数组里,每次初始化都是用 .LocalPort = 0 ?关闭socket的时候需要一定的延时

Answer 2

Me.Caption = "FTP Server Stop"
        StatusBar1.Panels(1).Text = "FTP Server Stop"
报错：要求对象

Answer 3

StatusBar1.Panels(1).Text = "FTP Server Stop"
StatusBar1.Panels(1).Text 这个对象是在哪里定义的

Answer 4

StatusBar1一定要包含Panels(1)
刚加入StatusBar只有Panels(0)
你要在StatusBar的属性中插入Panel，否则不存在Panels(1)          (  ">
           )(
          // )
shannon--//""--
       -/[email protected]

Answer 5

Private Sub cmdTest_Click()
            Shell "ftp" & Winsock1(0).LocalIP, vbNormalFocus
        End Sub
这里是做什么，他的功能，为什么老有错