- 注册时间
- 2011-10-9
- 最后登录
- 1970-1-1
该用户从未签到
|
短小精悍保持软件永久最新版本 插件版 易语言软件源码
简单介绍下 :这个程序是利用易语言的FTP下载 配置 读取配置 配置文件分别是 本地程序名称 FTP下载路径 CMD 插件加载参数 是否为插件 不是插件直接用 "运行"启动程序
程序工作原来 首先下载远程FTP服务器中的配置文件 下载到本地 然后通过读取配置获取 远程下载路径 对比本地程序的CMD 如果不符合者下载 如果CMD相同者不下载 达到程序的最新 相信请看源码
刚刚在做数据库
.版本 2
.支持库 EThread
.支持库 internet
.支持库 dp1
.程序集 程序集1
.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行
.局部变量 Temp, 文本型, , "0"
取命令行 (Temp)
.如果真 (取数组下标 (Temp, ) = 0)
启动线程 (&自动更新, , )
.如果真结束
.如果真 (取数组下标 (Temp, ) = 1)
.如果真 (Temp [1] = “Load”)
全部代码 ()
延时 (3600000)
启动线程 (&自动更新, , )
.如果真结束
.如果真结束
返回 (0) ' 可以根据您的需要返回任意数值
.子程序 全部代码
.局部变量 Temp1, 文本型
.局部变量 Temp2, 文本型, , "0"
.局部变量 Temp3, 文本型, , "0"
.局部变量 n, 整数型
Temp1 = 读配置项 (取运行目录 () + “\Config.Box”, “Config”, “Tools”, )
Temp2 = 分割文本 (Temp1, “|”, )
.计次循环首 (取数组下标 (Temp2, ), n)
Temp3 = 分割文本 (Temp2 [n], “:”, )
.如果真 (取数组下标 (Temp3, ) = 5)
.如果真 (Temp3 [5] = “OK”)
加载插件 (取运行目录 () + “\” + Temp3 [1], Temp3 [4])
.如果真结束
.如果真结束
.计次循环尾 ()
删除文件 (取运行目录 () + “\Config.Box”)
.子程序 自动更新
.局部变量 temp1, 文本型
.局部变量 temp2, 文本型, , "0"
.局部变量 temp3, 文本型, , "0"
.局部变量 n, 整数型
.如果 (连接FTP服务器 (“”, “”, “”, 21, ))
.如果 (FTP文件下载 (“web\tools\tools.txt”, 取运行目录 () + “\” + “Config.Box”, ))
temp1 = 读配置项 (取运行目录 () + “\” + “Config.Box”, “Config”, “Tools”, )
temp2 = 分割文本 (temp1, “|”, )
.计次循环首 (取数组下标 (temp2, ), n)
temp3 = 分割文本 (temp2 [n], “:”, )
.如果真 (取数组下标 (temp3, ) = 5)
.如果真 (temp3 [3] ≠ 取数据摘要 (读入文件 (取运行目录 () + “\” + temp3 [1])))
卸载插件 (取运行目录 () + “\” + temp3 [1], temp3 [4])
文件更名 (取运行目录 () + “\” + temp3 [1], 取运行目录 () + “\” + temp3 [1] + “.temp”)
FTP文件下载 (temp3 [2], 取运行目录 () + “\” + temp3 [1], )
.如果真结束
.如果真结束
.计次循环尾 ()
运行 (取运行目录 () + “\” + 取执行文件名 () + “ Load”, 假, )
结束 ()
.否则
.如果结束
.否则
.如果结束
.子程序 加载插件, , 公开
.参数 NewName, 文本型
.参数 NewLoad, 文本型
.局部变量 temp1, 整数型
.局部变量 temp2, 整数型
temp1 = LoadLibrary (NewName)
.如果真 (temp1 = 0)
返回 ()
.如果真结束
temp2 = GetProc (temp1, “加载插件”)
.如果 (temp2 = 0)
FreeLibrary (temp2)
.否则
FreeLibrary (temp2)
DLL命令调用转向 (NewName, “加载插件”)
加载插件_ (NewLoad)
DLL命令调用转向 (, )
.如果结束
.子程序 卸载插件, , 公开
.参数 NewName, 文本型
.参数 NewLoad, 文本型
.局部变量 temp1, 整数型
.局部变量 temp2, 整数型
temp1 = LoadLibrary (NewName)
.如果真 (temp1 = 0)
返回 ()
.如果真结束
temp2 = GetProc (temp1, “卸载插件”)
.如果 (temp2 = 0)
FreeLibrary (temp2)
.否则
FreeLibrary (temp2)
DLL命令调用转向 (NewName, “卸载插件”)
加载插件_ (NewLoad)
DLL命令调用转向 (, )
.如果结束
|
|