VB.NET编程调用讯雷下载文件
本例所有代码
1
Imports System
2Imports System.Text
3
Public Class frmThunderClass frmThunder
4
Private _iStartMode As Integer '讯雷任务下载开始模式
5 Private ThunderEng As New THUNDERAGENTLib.Agent '创建讯雷调用对象
6
Private Sub frmThunder_Load()Sub frmThunder_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
7
End Sub
8 Private Sub btnCancel_Click()Sub btnCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCancel.Click
9 Close()
10 End Sub
11 '开始下载任务
12 Private Sub btnStartDown_Click()Sub btnStartDown_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStartDown.Click
13 Dim iOnlyFromOrigin, iOriginThreadCount As Integer
14 iOnlyFromOrigin = IIf(chkOnlyFromOrigin.Checked = True, 1, 0)
15 iOriginThreadCount = CInt(txtOriginThreadCounts.Text)
16 If chkDefault.Checked Then
17 iOriginThreadCount = -1
18 End If
19 ThunderEng.AddTask(txtURL.Text, txtSaveAsFileName.Text, txtSaveDir.Text, txtComment.Text, _
20 txtReferencePage.Text, _iStartMode, iOnlyFromOrigin, iOriginThreadCount)
21 ThunderEng.CommitTasks()
22 Timer1.Enabled = True
23 End Sub
24
25
26 Private Sub radMaual_Click()Sub radMaual_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles radMaual.Click, radImmediate.Click, radDefault.Click
27 Dim rad As RadioButton = CType(sender, RadioButton)
28 _iStartMode = CInt(rad.Tag)
29 End Sub
30 '当任务开始时定时查询任务下载信息
31 Private Sub Timer1_Tick()Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
32 Dim sFileSize, sDownedSize, sStatus, sFileName, sPercent As String
33 Try
34 sStatus = ThunderEng.GetTaskInfo(txtURL.Text, "Status")
35 sFileSize = ThunderEng.GetTaskInfo(txtURL.Text, "FileSize")
36 sDownedSize = ThunderEng.GetTaskInfo(txtURL.Text, "CompletedSize")
37 sFileName = ThunderEng.GetTaskInfo(txtURL.Text, "FileName")
38 lblDownedSize.Text = String.Format(lblDownedSize.Tag, sDownedSize)
39 lblFileSize.Text = String.Format(lblFileSize.Tag, sFileSize)
40 lblTaskStatus.Text = String.Format(lblTaskStatus.Tag, sStatus)
41 lblFilename.Text = String.Format(lblFilename.Tag, sFileName)
42 sPercent = ThunderEng.GetTaskInfo(txtURL.Text, "Percent") '获取下载百分比
43 lblProgress.Text = String.Format(lblProgress.Tag, sPercent.Remove(3, Len(sPercent) - 3))
44 Catch ex As Exception
45 End Try
46 End Sub
47 Private Sub chkOnlyFromOrigin_CheckedChanged_1()Sub chkOnlyFromOrigin_CheckedChanged_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles chkOnlyFromOrigin.CheckedChanged
48 Panel1.Enabled = chkOnlyFromOrigin.Checked
49 End Sub
50 Private Sub GroupBox1_Enter()Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter
51 End Sub
52
End Class
当前平均分: 0.0(0 次打分)
-5-4-3-2-1012345