1,502
社区成员
发帖
与我相关
我的任务
分享
Shell App.Path & "\aria2c.exe --enable-rpc=true --dir=""" & App.Path & "\download\" & """", IIf(blnVisible, vbMinimizedNoFocus, vbHide)
' Form1
Private Sub Form_Load()
objAria2.launchDaemon True, App.Path & "\download" ' 如果不想显示控制台窗口,可以设为False;
End Sub
' cAria2
Public Sub launchDaemon(ByVal blnVisible As Boolean, ByVal strDir As String)
Shell App.Path & "\aria2c.exe --enable-rpc=true --dir=""" & strDir & """", IIf(blnVisible, vbMinimizedNoFocus, vbHide)
End Sub
下载地址:
链接:https://pan.baidu.com/s/1935hiim91Ut1BZuAOe43Bw
提取码:yunc
运行示例: