vb.net - 在 VB.Net 中使用后台智能传输 (BITS)

Question

我正在尝试使用 MS BITS（后台智能传输服务）将文件从多台计算机上传到服务器，但我读到的唯一有用的示例是 StackOverFlow，这里是：

Imports SharpBits.Base         
Using b As New BitsManager()
     mynewjob = b.CreateJob("jobname", JobType.Upload)
     mynewjob.AddFile("\\ServerName\BitsUploads\File.txt", "C:\File.exe")
     mynewjob.Resume()
End Using

但坦率地说，我不知道如何处理关于 BITS 工作管理的整个事情，而且我找不到一个完整的例子来说明管理将如何，请我需要帮助。

Answer 1

最后我找到了答案，简单地说，首先，将 JobProgressTimeout 添加到某个值。其次，将您的代码放入一个循环中，以继续检查 BITS 作业执行的状态，就像这样：

    Dim oJobStatus As System.Net.BITS.JobState = 0
    oJobStatus = sJobStatus

    Try
        If oJobStatus = System.Net.BITS.JobState.Transferred Then
            MsgBox("Job transfered")
            Return True
        End If

        If oJobStatus = System.Net.BITS.JobState.Acknowledged Then
            MsgBox("Job transfered")
            Return True
        End If

        If oJobStatus = System.Net.BITS.JobState.Error Then

            MsgBox("Job cancelled")
            Return True
        End If

        If oJobStatus = System.Net.BITS.JobState.Cancelled Then
            MsgBox("Job cancelled")
            Return True
        End If

        Return True
    Catch ex As Exception
        msgbox(ex.Message)
        Return True
    End Try