欢迎光临:
非常感谢您光临枕善居。本站是一个免费的基于VB,VB.NET源代码交流的平台,为大家提供优质的专业的源代码,如果您有需要,本站可以帮助在业余时间里给您寻找代码。当然,如果您有好的代码也可以在本站发布,共享给大家。
专业VB和.NET源码、编程开发教程、图标资源、USB电脑遥控器、智能家电控制开关....更多东东请进入我的淘宝小店--->
VB及.NET新源码2011(3DVD,控件+资源)
智能多路控制(串口编程开关) 带源码!
08-11
21
LiveUpdate在线更新工具源代码
作者:枕善居主 / 查看次数: 15127 / 评论: 20

一个小巧好用的互联网在线更新工具,使用FTP下载,可以自行配置FTP服务器信息(当然为了安全起见可以直接写到程序中,以便分发).支持显示下载进度,下载后支持即时执行更新,也可以自定义启动程序。主要这个代码不复杂,比较方便易用,没有其他第三方控件和API函数,在线更新的功能都具有。
回复
]可以,改为二进制下载后,滚动条不能用了,那位大侠能完善一下
正是我想要的,不知好用不,试试,谢谢
做的太好了,支持
HOST=**.**.**.**:222 ==========》 配置文件中的这个参数可以加入端口号吗?程序运行到最后提示: 无法建立连接 盼楼主回复。。。
已经修复!
引用来自 easypc
引用来自 easypc不能下载了
不能下载了
把 BlnResult = GetFiles(strFiles, strPath, SizeFile, 1)
改为
BlnResult = FtpGetFile(hConnection, strFiles, strPath, 0, 0, 1, 0)
frmLiveUpdate.txtPercent.ForeColor = 16777215
frmLiveUpdate.Percent.Width = 41.5 * 100
frmLiveUpdate.Percent.Caption = 100 & " %"
frmLiveUpdate.Percent.Refresh
进度条完成后直接跳到100%
改为
BlnResult = FtpGetFile(hConnection, strFiles, strPath, 0, 0, 1, 0)
frmLiveUpdate.txtPercent.ForeColor = 16777215
frmLiveUpdate.Percent.Width = 41.5 * 100
frmLiveUpdate.Percent.Caption = 100 & " %"
frmLiveUpdate.Percent.Refresh
进度条完成后直接跳到100%
exe程序运行不了的问题,简单修改了下能用了,不过进度条没调,凑活用吧
搜索一下下面的代码,用下面那条代替上面这条就可以了
' BlnResult = GetFiles(strFiles, strPath, SizeFile, 1) '用FtpGetFile传输文件
''''''''''''''''''''''''''''''''''''''''''''''
BlnResult = FtpGetFile(hConnection, strFiles, strPath, 0, 0, 1, 0)
搜索一下下面的代码,用下面那条代替上面这条就可以了
' BlnResult = GetFiles(strFiles, strPath, SizeFile, 1) '用FtpGetFile传输文件
''''''''''''''''''''''''''''''''''''''''''''''
BlnResult = FtpGetFile(hConnection, strFiles, strPath, 0, 0, 1, 0)
发现一个问题,FTP服务器上的文本文件等都能正常下载并升级,但是exe文件下载下来后就不能运行了。为什么啊??
发表评论
您没有权限发表评论!
上一篇
下一篇
相关日志:
文章来自:
Tags:
评论: 20 | 

