AutoIT: 下载文件函数

Func down()
    $Size=InetGetSize($a[$j][1]);获得FTP上的文件的大小
    InetGet($a[$j][1],$a[$j][2],1,1);下载
    ProgressOn("下载进度表", "正在下载 ..."& StringRight($a[$j][1],20),"0 %")
    While @InetGetActive
        $i=round(@InetGetBytesRead / $Size * 100)
        ProgressSet( $i, $i & " %")
        ;TrayTip("下载中", "已下载 = " & @InetGetBytesRead, 10, 16)
        Sleep(250)
    Wend
    ProgressSet(100 , "完成", "结束")
    sleep(500)
    ProgressOff()
EndFunc
;MsgBox(0, "下载完成，该文件大小为：", @InetGetBytesRead)

 

转载于:https://www.cnblogs.com/autotest/p/3262343.html