求助！此代码如何修改成批量下载？

moyixiang901

#include <INet.au3>

Dim $rar, $path,$rul

$url = "http://www.123.com/1.rar"

$rar = "c:\1.rar"

$path = "c:\1"

$load = InetGet($url, $rar, 1, 1)

ProgressOn("正在下载", "正在为你下载,请稍后.....")

While 1

        If InetGetInfo($load, 2) = True Then ExitLoop

        InetGetInfo($load, 1)

        $rou = Round(InetGetInfo($load, 0) / InetGetInfo($load, 1), 2) * 100

        ProgressSet($rou, "已下载:" & $rou & "%")

        Sleep(100)

WEnd

ProgressSet(100, "下载完成")

ProgressOff()

$pid=Run(@ProgramFilesDir & "\winrar\rar.exe x -y c:\1.rar c:\1","",@SW_HIDE)

Do
        Sleep(100)

        Until ProcessExists($pid) = 0

FileDelete($path & "*.reg")

FileDelete($path & "*.txt")

FileDelete($path & "*.html")

$sousuo=FileFindFirstFile("c:\1\*.exe")

$file=FileFindNextFile($sousuo)

Run($path & $file)


Exit

以上代码 要如何修改成批量下载？
$url = "http://www.123.com/1.rar"
$url = "http://www.123.com/2.rar"
$url = "http://www.123.com/3.rar"

这样的然后解压到同个文件夹再运行1.exe

跪求高手的帮助！

easefull

把下载的操作部分写成一个函数. fn_DownloadCore($sURL, $sPath, $iMode = 1, $IsBackground = 1)
然后多次调用这个函数来下载就可以了.

moyixiang901

把下载的操作部分写成一个函数. fn_DownloadCore($sURL, $sPath, $iMode = 1, $IsBackground = 1)
然后多次 ...
easefull 发表于 2011-5-3 20:15

    可以说明修改哪个地方的代码吗？
本人菜鸟不是很清楚！谢谢！最好能直接修改上面的代码做个例子！

easefull

帮助文档 -> 语言相关 -> 用户函数

先试着学习一下怎么定义、使用自己的函数.
再用使用函数的思路修改这个代码.