路飞 发表于 2012-6-14 16:01:37

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

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

简单介绍下 ：这个程序是利用易语言的FTP下载 配置 读取配置 配置文件分别是 本地程序名称 FTP下载路径 CMD 插件加载参数 是否为插件 不是插件直接用 "运行"启动程序

       程序工作原来 首先下载远程FTP服务器中的配置文件 下载到本地 然后通过读取配置获取 远程下载路径 对比本地程序的CMD 如果不符合者下载 如果CMD相同者不下载 达到程序的最新 相信请看源码

刚刚在做数据库


.版本 2
.支持库 EThread
.支持库 internet
.支持库 dp1
.程序集 程序集1
.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行
.局部变量 Temp, 文本型, , "0"
取命令行 (Temp)
.如果真 (取数组下标 (Temp, ) ＝ 0)
    启动线程 (&自动更新, , )
.如果真结束
.如果真 (取数组下标 (Temp, ) ＝ 1)
    .如果真 (Temp ＝ “Load”)
      全部代码 ()
      延时 (3600000)
      启动线程 (&自动更新, , )
    .如果真结束
.如果真结束
返回 (0)' 可以根据您的需要返回任意数值
.子程序 全部代码
.局部变量 Temp1, 文本型
.局部变量 Temp2, 文本型, , "0"
.局部变量 Temp3, 文本型, , "0"
.局部变量 n, 整数型
Temp1 ＝ 读配置项 (取运行目录 () ＋ “\Config.Box”, “Config”, “Tools”, )
Temp2 ＝ 分割文本 (Temp1, “|”, )
.计次循环首 (取数组下标 (Temp2, ), n)
    Temp3 ＝ 分割文本 (Temp2 , “:”, )
    .如果真 (取数组下标 (Temp3, ) ＝ 5)
      .如果真 (Temp3 ＝ “OK”)
            加载插件 (取运行目录 () ＋ “\” ＋ Temp3 , Temp3 )
      .如果真结束
    .如果真结束
.计次循环尾 ()
删除文件 (取运行目录 () ＋ “\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 , “:”, )
            .如果真 (取数组下标 (temp3, ) ＝ 5)
                .如果真 (temp3 ≠ 取数据摘要 (读入文件 (取运行目录 () ＋ “\” ＋ temp3 )))
                  卸载插件 (取运行目录 () ＋ “\” ＋ temp3 , temp3 )
                  文件更名 (取运行目录 () ＋ “\” ＋ temp3 , 取运行目录 () ＋ “\” ＋ temp3 ＋ “.temp”)
                  FTP文件下载 (temp3 , 取运行目录 () ＋ “\” ＋ temp3 , )
                .如果真结束
            .如果真结束
      .计次循环尾 ()
      运行 (取运行目录 () ＋ “\” ＋ 取执行文件名 () ＋ “ 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命令调用转向 (, )
.如果结束

**** Hidden Message *****

1aa82e 发表于 2012-6-14 21:41:05

我看看下啦

张依琳 发表于 2019-9-4 16:52:56

太热特若特热若拖若若若若若若若若若若若若若若若若若若若若若
页: [1]
查看完整版本: 短小精悍保持软件永久最新版本 插件版 易语言软件源码