短小精悍保持软件永久最新版本 插件版 易语言软件源码

路飞

短小精悍保持软件永久最新版本 插件版 易语言软件源码

简单介绍下 ：这个程序是利用易语言的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命令调用转向 (, )
.如果结束

游客，如果您要查看本帖隐藏内容请回复

1aa82e

我看看下啦

张依琳

太热特若特热若拖若若若若若若若若若若若若若若若若若若若若若