IT天空

 找回密码
 加入我们

手机号码,快捷登录

搜索

[原创] 带进度条的软件下载器源码

  [复制链接]
zjyy007 发表于 2016-8-26 14:08:48 | 显示全部楼层 |阅读模式

本帖最后由 zjyy007 于 2016-8-27 08:24 编辑

经坛友flyself告知,他也有个类似的软件,大家也可以看看,喜欢哪个用哪个吧!!以下是他帖子的链接:
https://www.itiankong.net/thread-367024-1-3.html

软件运行如图:
示例.png



  1. #NoTrayIcon
  2. #include <ButtonConstants.au3>
  3. #include <ComboConstants.au3>
  4. #include <EditConstants.au3>
  5. #include <GUIConstantsEx.au3>
  6. #include <ProgressConstants.au3>
  7. #include <StaticConstants.au3>
  8. #include <WindowsConstants.au3>
  9. #include "lib.au3"

  10. Opt("MustDeclareVars", 1) ;变量必须先定义,再使用

  11.         Global $Download_Form1 = GUICreate("软件下载器", 339, 144, -1, -1)
  12.         Global $Download_Group1 = GUICtrlCreateGroup("", 16, 8, 305, 45)
  13.         Global $Download_Label1 = GUICtrlCreateLabel("软件名称:", 32, 28, 55, 17)
  14.         Global $Download_Combo1 = GUICtrlCreateCombo("", 96, 24, 209, 25)
  15.         GUICtrlSetData($Download_Combo1, "请选择要下载的软件|QQ8.5电脑版|ADSafe5.0电脑版", "请选择要下载的软件")
  16.         GUICtrlCreateGroup("", -99, -99, 1, 1)
  17.         Global $Download_Group2 = GUICtrlCreateGroup(" 下载进度 ", 16, 64, 305, 41)
  18.         Global $Download_Progress1 = GUICtrlCreateProgress(24, 80, 289, 17)
  19.         GUICtrlCreateGroup("", -99, -99, 1, 1)
  20.         Global $Download_Button1 = GUICtrlCreateButton("下  载", 128, 114, 65, 25)

  21. _main()
  22. Exit

  23. Func _main()
  24.         GUISetState(@SW_SHOW, $Download_Form1)
  25.         Local $Download_Url
  26.         Local $Download_Path
  27.         Local $nMsg

  28.         While 1
  29.                 $nMsg = GUIGetMsg()
  30.                         Switch $nMsg

  31.                                 Case $Download_Combo1

  32.                                         If GUICtrlRead($Download_Combo1) = "QQ8.5电脑版" Then
  33.                                                 $Download_Url = "https://proxy.now.qq.com/tx_tls_gate=dldir1.qq.com/qqfile/qq/QQ8.5/18600/QQ8.5.exe" ;这里填QQ下载地址
  34.                                                 $Download_Path = "QQ8.5.exe"
  35.                                         ElseIf GUICtrlRead($Download_Combo1) = "ADSafe5.0电脑版" Then
  36.                                                 $Download_Url = "http://dl.ad-safe.com/adsafe_v4/download/adsafe.v5.0.729.1800.exe" ;这里填ADSafe下载地址
  37.                                                 $Download_Path = "adsafe.v5.0.729.1800.exe"
  38.                                         EndIf

  39.                                 Case $Download_Button1

  40.                                         DownLoadFile($Download_Url, $Download_Path, -1, -1, $Download_Progress1)

  41.                                 Case $GUI_EVENT_CLOSE
  42.                                         Exit

  43.                 EndSwitch
  44.         WEnd
  45. EndFunc ;===>_main()
复制代码


下面是需要的了Lib.au3,需要你小小的回复一下
游客,如果您要查看本帖隐藏内容请回复

评分

参与人数 1技术 +3 收起 理由
Skyfree + 3

查看全部评分

Skyfree 发表于 2016-8-26 14:42:07 | 显示全部楼层

活跃 255776| 技术 1354| 互助 1728| 钻石 30764

看起来不错,学习一下。

点评

谢谢S大捧场  详情 回复 发表于 2016-8-26 14:59
 楼主| zjyy007 发表于 2016-8-26 14:59:09 | 显示全部楼层

活跃 7816| 技术 3| 互助 -3| 钻石 0

Skyfree 发表于 2016-8-26 14:42
看起来不错,学习一下。

谢谢S大捧场

点评

不谢~  详情 回复 发表于 2016-8-26 15:41
Skyfree 发表于 2016-8-26 15:41:02 | 显示全部楼层

活跃 255776| 技术 1354| 互助 1728| 钻石 30764


不谢~
long19434733 发表于 2016-8-26 15:46:45 | 显示全部楼层

活跃 61| 技术 0| 互助 0| 钻石 0

试试看,试试看
jsgh1983 发表于 2016-8-26 18:43:47 | 显示全部楼层

活跃 6974| 技术 34| 互助 43| 钻石 0

我也学习一下,感觉用处很广的样子。
flyself 发表于 2016-8-26 18:59:52 | 显示全部楼层

活跃 11504| 技术 16| 互助 21| 钻石 10

本帖最后由 flyself 于 2016-8-26 19:05 编辑

发现跟这个是一样的

https://www.itiankong.net/thread-367024-1-3.html


点评

失敬失敬,原来那帖子是你的, 我是看见了你那帖子,觉得可扩展性有点低,所以自己重新写了个, 如果你觉得侵犯了你的xx,请告知一下,我可以删除!!! 不过话说回来,大家一起学习进步才是最重要的,你说呢  详情 回复 发表于 2016-8-27 08:20
用的Lib.au3是一样的,主程序是不一样的  详情 回复 发表于 2016-8-27 08:17
liyunyang 发表于 2016-8-26 20:30:22 | 显示全部楼层

活跃 2035| 技术 0| 互助 0| 钻石 10

下载学习一下。。
 楼主| zjyy007 发表于 2016-8-27 08:17:41 | 显示全部楼层

活跃 7816| 技术 3| 互助 -3| 钻石 0

flyself 发表于 2016-8-26 18:59
发现跟这个是一样的

https://www.itiankong.net/thread-367024-1-3.html

用的Lib.au3是一样的,主程序是不一样的,不信你可以比较下看看
 楼主| zjyy007 发表于 2016-8-27 08:20:51 | 显示全部楼层

活跃 7816| 技术 3| 互助 -3| 钻石 0

flyself 发表于 2016-8-26 18:59
发现跟这个是一样的

https://www.itiankong.net/thread-367024-1-3.html

失敬失敬,原来那帖子是你的,
我是看见了你那帖子,觉得可扩展性有点低,所以自己重新写了个,
如果你觉得侵犯了你的xx,请告知一下,我可以删除!!!

不过话说回来,大家一起学习进步才是最重要的,你说呢?

点评

不是为了什么xx,我发出来的目的就是给大家分享使用,只是觉得楼主在引用时最好能加上原文链接  详情 回复 发表于 2016-8-27 10:44
fan6287400 发表于 2016-8-27 09:29:59 | 显示全部楼层

活跃 15102| 技术 0| 互助 0| 钻石 20

谢谢分享源码,收藏学习。
flyself 发表于 2016-8-27 10:44:28 | 显示全部楼层

活跃 11504| 技术 16| 互助 21| 钻石 10

zjyy007 发表于 2016-8-27 08:20
失敬失敬,原来那帖子是你的,
我是看见了你那帖子,觉得可扩展性有点低,所以自己重新写了个 ...

不是为了什么xx,我发出来的目的就是给大家分享使用,只是觉得楼主在引用时最好能加上原文链接

点评

已经在开头加上你的连接了  详情 回复 发表于 2016-8-27 13:51
 楼主| zjyy007 发表于 2016-8-27 13:51:48 | 显示全部楼层

活跃 7816| 技术 3| 互助 -3| 钻石 0

flyself 发表于 2016-8-27 10:44
不是为了什么xx,我发出来的目的就是给大家分享使用,只是觉得楼主在引用时最好能加上原文链接

已经在开头加上你的连接了
mashamli 发表于 2016-8-28 21:58:54 | 显示全部楼层

活跃 13167| 技术 0| 互助 0| 钻石 0

谢谢分享源码,收藏学习。
baosheng00 发表于 2016-8-29 00:50:56 | 显示全部楼层

活跃 7484| 技术 4| 互助 3| 钻石 10

来看看,支持楼主
lhc329898543 发表于 2016-8-29 12:57:38 | 显示全部楼层

活跃 11765| 技术 4| 互助 14| 钻石 40

谢谢分享!学习一下
梦倾天下 发表于 2016-8-29 16:23:05 | 显示全部楼层

活跃 193| 技术 0| 互助 0| 钻石 0

有些场合还是挺需要的,谢谢
anputcl 发表于 2016-8-29 22:25:25 | 显示全部楼层

活跃 74| 技术 0| 互助 0| 钻石 0

学习一下,可能需要用到
tf68083704 发表于 2016-8-29 22:42:35 | 显示全部楼层

活跃 787| 技术 0| 互助 0| 钻石 10

不错不错,学习一下
9462368 发表于 2016-8-30 14:28:39 | 显示全部楼层

活跃 170| 技术 0| 互助 0| 钻石 0

学习学习
您需要登录后才可以回帖 登录 | 加入我们

本版积分规则

zjyy007

7816

活跃

3

技术

-3

互助
签到任务
最火的业界新闻
  • 小米众筹上架三合一智能羽绒服:插充电宝1
  • 雷军微博抽奖送蔚来ES6:中奖者顺利提车
  • 曝微信上线银行储蓄服务:与工商银行合作
  • 手机用久了哪里最容易损坏 这些技巧为手机
  • 苹果公布iOS 13安装率:50%的设备已更新
  • 提升PC性能从哪方面入手?英特尔官方答案来
  • 美方威胁德国禁止华为参与5G建设 后果自负
  • 5G发展速度惊人 史上首次一年内基本要素全
  • [评论]国内不宜盲目引进落后液晶产能
  • 坚果手机新品发布会将于 10 月 31 日举行,
炫酷的硬件Show
  • 振华SUPER FLOWER 铜皇450W 铜牌电源
  • 比小更小,Mini-STX装机
  • 华擎X99E-ITX + 银欣ML06 装机记
  • 最强双路泰坦硬管水冷 制作流程
  • 银欣FT02,双路E5工作站
  • 迟到的定制机箱小钢炮清理灰尘
  • 乔思伯UMX1 Plus,小巧的家用综合主机
  • 分体水冷第二弹-Inwin 805 infinity
  • 第一次DIY硬管水冷~~
  • 樱桃MX6.0 青轴 机械键盘 开箱
有趣的美图分享
  • 当代年轻人的减肥餐
  • 这是用身体的哪个部位打字啊
  • 热狗
  • 程序员专用发型。
  • 防猫键盘罩…
  • 成功通过测试
  • 弱小,无奈。。
  • 还能给隔壁冲的。
  • 矮人王?
  • 已经算很不错的,起码有的吃了。。
关注官方微信
快速回复 返回顶部 返回列表