shenrenba 发表于 2010-9-25 17:34:32

下载进度条(已解决)

本帖最后由 shenrenba 于 2010-9-25 17:49 编辑

下面的代码中 进度条只跑了1点 另外 显示也是错误的 请问如何修改?
-----------------------------
换成这 OK 了   $size = Int(InetGetSize($url) / 1024)#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <WindowsConstants.au3>
#include <IE.au3>
#Region ### START Koda GUI section ### Form=
$Form1 = GUICreate("测试", 623, 442, 192, 124)
$Progress1 = GUICtrlCreateProgress(72, 96, 393, 65)
$Button1 = GUICtrlCreateButton("", 104, 216, 305, 97)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

While 1
        $nMsg = GUIGetMsg()
        Switch $nMsg
                Case $GUI_EVENT_CLOSE
                        Exit

                Case $Button1
                        $url = "http://f512.net/gamefiles/20100900/0924/modern_room_escape.swf"
                        $get = InetGet($url, @ScriptDir & "\asdasd.swf", 1, 1)
                        $size = Int(InetGetSize($get) / 1024)
                        AdlibRegister("Down")
        EndSwitch
WEnd

Func Down()
        $newsize = InetGetInfo($get)
        $pro = Int($newsize / 1024) / $size
        GUICtrlSetData($Progress1, $pro * 100)
        GUICtrlSetData($Button1, "已下载 " & Int($pro * 100) & "%")
EndFunc   ;==>Down

颜勇 发表于 2010-11-13 12:32:12

在坛里搜下就有了

zjw201314 发表于 2011-8-11 11:03:59

学习了！不错！支持一下！

smking0204 发表于 2011-8-14 01:35:48

頂下~不同類型 不錯

gzguolei 发表于 2012-4-29 15:45:04

为何加了句
msbox(0,"","")
就不运行了呢

872777825 发表于 2012-5-11 19:25:21

还不错支持下

xz00311 发表于 2014-4-15 18:14:55

网络卡的情况下咋办

nqawen 发表于 2014-8-6 16:06:21

不错，学习了，

deaph 发表于 2014-10-22 13:39:19

学习了，感谢分享

wggaijcm 发表于 2014-11-5 13:05:41

下载进度条

wggaijcm 发表于 2014-11-5 13:06:05

下载进度条自动下载

wggaijcm 发表于 2014-11-5 21:37:36

网络故障或者资源不存在会出错
页: [1]
查看完整版本: 下载进度条(已解决)