基于Winsock的VB文件传输程序源码分享

Dim FileSize(999) As Double

Dim FileInput(999) As Double

Private Sub Command1_Click()

    On Error Resume Next

    Select Case UCase(Command1.Caption)

        Case "清除"

            lvFiles.SelectedItem.Text = ""

            lvFiles.SelectedItem.SubItems(1) = ""

            lvFiles.SelectedItem.SubItems(2) = ""

            lvFiles.SelectedItem.SubItems(3) = ""

        Case "中止"

            lvFiles.SelectedItem.Text = "中止"

            wsInfo(lvFiles.SelectedItem.Index - 1).SendData "ABORT|ABORT" & vbCrLf

            wsInfo(lvFiles.SelectedItem.Index - 1).Close

            wsTransfer(lvFiles.SelectedItem.Index - 1).Close

    End Select

End Sub

Private Sub Form_Load()

    '关于

    'frmAbout.Show vbModal, Me

    strStatus = " --待机"

    UpdateCaptions '窗口和托盘标题

    wsListenInfo.Listen

    wsListenRecieve.Listen

    lngInputSize = GetSetting(App.Title, "Settings", "UploadSpeed", "10240")

    UpdateInputSize

End Sub

Private Sub lvFiles_ItemClick(ByVal item As MSComctlLib.ListItem)

    On Error Resume Next

    Select Case item.Text

        Case "中止", "完成"

            Command1.Caption = "清除"

        Case "下载中"

            Command1.Caption = "中止"

    End Select