EXE文件捆绑工具源码。。。

873219502

.版本 2
.支持库 internet
.支持库 eAPI
.支持库 EThread

.程序集 窗口程序集1
.程序集变量 当前版本, 文本型
.程序集变量 下载地址, 文本型

.子程序 __启动窗口_创建完毕

当前版本 ＝ “4.28”
标签1.标题 ＝ “当前版本：” ＋ 当前版本

.子程序 取指定内容, 文本型
.参数 完整内容, 文本型
.参数 左边文本, 文本型
.参数 右边文本, 文本型
.局部变量 临时位置, 整数型
.局部变量 总长度, 整数型
.局部变量 临时文本, 文本型

总长度 ＝ 取文本长度 (完整内容)
临时位置 ＝ 寻找文本 (完整内容, 左边文本, , 假) ＋ 取文本长度 (左边文本)
临时文本 ＝ 取文本中间 (完整内容, 临时位置, 总长度)
总长度 ＝ 取文本长度 (临时文本)
临时位置 ＝ 寻找文本 (临时文本, 右边文本, , 假) － 1
临时文本 ＝ 取文本中间 (临时文本, 1, 临时位置)
返回 (临时文本)

.子程序 检查新版
.局部变量 返回文本, 文本型
.局部变量 最新版, 文本型
.局部变量 更新说明, 文本型
.局部变量 下载方式, 文本型

处理事件 ()
返回文本 ＝ 到文本 (HTTP读文件 (“http://hi.baidu.com/kolmh/blog/item/dfb3f8552f9b0c15377abe59.html”))
返回文本 ＝ 取指定内容 (返回文本, “////开始”, “////结束”)
最新版 ＝ 取指定内容 (返回文本, “最新版=”, “</p>”)
.如果真 (到数值 (最新版) ＞ 到数值 (当前版本))
    下载地址 ＝ 取指定内容 (返回文本, “下载地址=”, “</p>”)
    下载方式 ＝ 取指定内容 (返回文本, “下载方式=”, “</p>”)
    更新说明 ＝ 取指定内容 (返回文本, “更新说明=”, “更新说明结束</p>”)
    更新说明 ＝ 子文本替换 (更新说明, “<p>”, “”, , , 真)
    更新说明 ＝ 子文本替换 (更新说明, “</p>”, “”, , , 真)
    .如果真 (信息框 (“当前版本：” ＋ 当前版本 ＋ #换行符 ＋ “最新版本：” ＋ 最新版 ＋ #换行符 ＋ “更新内容：” ＋ #换行符 ＋ 更新说明, #是否钮, “是否下载最新版？”) ＝ #是钮)
        .如果真 (下载方式 ＝ “打开网页”)
            打开指定网址 (下载地址)  ' 这个是直接打开下载页面,适合用网盘的朋友
        .如果真结束
        .如果真 (下载方式 ＝ “下载文件”)
            启动线程 (&下载更新, , )  ' 这个是直接下载文件,适合能外链下载的朋友   上传的地方可以用google的项目托管,速度快且稳定
        .如果真结束

    .如果真结束

.如果真结束


.子程序 _按钮1_被单击

检查新版 ()

.子程序 下载更新
.局部变量 临时, 文本型, , "0"
.局部变量 文件名, 文本型

临时 ＝ 分割文本 (下载地址, “/”, )
文件名 ＝ 临时 [取数组成员数 (临时)]
.如果 (写到文件 (取运行目录 () ＋ “\” ＋ 文件名, HTTP读文件 (下载地址)) ＝ 真)
    信息框 (“新版本已下载到：” ＋ #换行符 ＋ 取运行目录 () ＋ “\” ＋ 文件名, 0, “tips”)
.否则
    信息框 (“下载失败”, #错误图标, “tips”)
.如果结束

忘却er

我要下载啊

吻痕レ

阿斯顿阿萨德爱上

习惯黑夜

好啊好看看{:soso_e102:}

ZhuJian

学习{:3_245:}

亚希

看一看了。
，

soulan

{:3_244:} 先回复个

8110072

我要了啊~！！

8110072

哈哈 我喜欢！

想学易

学习