迅雷api接口(4)

Len(sPercent) - 3)) Catch ex As Exception End Try End Sub Private

Sub

chkOnlyFromOrigin_CheckedChanged_1()Sub

chkOnlyFromOrigin_CheckedChanged_1(ByVal

sender As System.Object, ByVal e As System.EventArgs) Handles

chkOnlyFromOrigin.CheckedChanged Panel1.Enabled = chkOnlyFromOrigin.Checked End Sub

Private Sub GroupBox1_Enter()Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As

System.EventArgs) Handles GroupBox1.Enter End Sub End Class

进入工具--配置--高级，把 通过IE右键菜单 “使用迅雷下载”添加任务 这个选项前面的勾去掉。

保持迅雷开启状态，这时候执行上面的脚本，就不会出现那个确认添

加任务的对话框了