1。写配置项(取运行目录()+“Server.in”,"server","servername","serverip","sa","password")
2。组合框1。加入项目(“项目名”)
加入成员(数组变量,“成员数据”)
3。从网上下载文件:写到文件(取运行目录()+“*.*”,HTTP读文件(“www./*.*”))
4。判断文件是否更新:变量名1(文本型),变量名2(整数型)
变量名1=到文本(http读文件(www.***.com/*.txt))
变量名2=到整数(读配置项((取运行目录)+"*.ini",“bb","bbh"))
如果变量名2<到整数(变量名1)
写到文件(取运行目录()+*。*,HTTP读文件(“http://www.***.com/*.*”)) 写配置项
信息框(“没有更新”,#询问图标,)
5。进度条:定义时钟周期=1000,变量1(下载对象),变量2(双精度小数型)
进度条1。位置=四舍五入(下载任务。变量1()÷变量2×100,0)
|