Использование фоновой интеллектуальной передачи (BITS) с VB.Net - PullRequest
Новая
       20

Использование фоновой интеллектуальной передачи (BITS) с VB.Net

0 голосов
/ 11 февраля 2012

Я пытаюсь использовать 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, и я не смог найти полный пример, демонстрирующий, каким будет управление, поэтому, пожалуйста, мне нужна помощь по этому поводу.

1 Ответ

0 голосов
/ 19 февраля 2012

Наконец я нашел ответ, Просто, Сначала добавьте 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
...