电脑重装系统后 重新下载个易语言5.5还是之前的版本，在编译以前的源码出现模块错误

q67274303

然而全都可以无视掉

By：南哥

冯古屋 发表于 2017-4-5 08:54
你调用了这么多模块，可能存在冲突
另外，易语言是不是正版的也会有影响。

大神，可是没有重装系统前，是正常的啊

By：南哥

你好我的太阳 发表于 2017-4-5 07:38
下载精易的5.6。 解码那块删除一个参数。用的别人源码吧

重装系统前正常的

你好我的太阳

lihainan1994 发表于 2017-4-5 13:52
重装系统前正常的

http://bbs.125.la/forum.php?mod= ... &extra=page%3D1 用这个源码

By：南哥

冯古屋 发表于 2017-4-5 08:54
你调用了这么多模块，可能存在冲突
另外，易语言是不是正版的也会有影响。

.版本 2
.支持库 eAPI

.子程序 上传
.参数 空间地址, 文本型
.参数 管理密码, 文本型
.参数 目录名称, 文本型
.参数 文件名, 文本型
.参数 上传内容, 文本型
.局部变量 正则文件, 正则表达式类
.局部变量 数据返回, 文本型
.局部变量 目标地址, 文本型
.局部变量 上传服务器, 文本型
.局部变量 上传特征文本, 文本型
.局部变量 目录标识, 文本型
.局部变量 文件标识, 文本型
.局部变量 分割的文本, 文本型, , "0"
.局部变量 i, 整数型

数据返回 ＝ HTTP读网页s (“http://” ＋ 空间地址 ＋ “.ys168.com/”)
目标地址 ＝ 文本_取出中间文本 (数据返回, “src=” ＋ #引号, #引号, 寻找文本 (数据返回, “退出系统”, , 假))
数据返回 ＝ 到文本 (网页_访问 (目标地址, 1, “Yz0=gly_dl&Yz1=” ＋ 管理密码 ＋ “&Yz2=&Yz3=&Yz4=”))
.判断循环首 (寻找文本 (数据返回, “_CK.yzck”, , 假) ≠ -1)
    载入 (窗口验证码, , 真)
    .如果真 (验证码 ＝ “”)
        返回 ()
    .如果真结束
    数据返回 ＝ 到文本 (网页_访问 (目标地址, 1, “Yz0=gly_dl&Yz1=” ＋ 管理密码 ＋ “&Yz2=” ＋ 验证码 ＋ “&Yz3=&Yz4=”))
    验证码 ＝ “”
    .如果真 (寻找文本 (数据返回, “管理密码输入不正确”, , 假) ≠ -1)
        信息框_Ex (主句柄, “上传服务器不了，密码不对。”, , “Tips:”, #信息图标, , , , , { “告诉编程猿” }, 1, 真, , #青蓝, 200, , , , , , #特效_进入_扩展, #特效_退出_收缩, 真)
        打开指定网址 (“tencent://message/?uin=867739211&Site=小灰&Menu=yes”)
        返回 ()
    .如果真结束

.判断循环尾 ()
数据返回 ＝ 到文本 (网页_访问 (目标地址))
目录标识 ＝ 文本_取出中间文本 (数据返回, “id='ZMm_”, “'”, 寻找文本 (数据返回, 目录名称, , 假))
数据返回 ＝ 到文本 (网页_访问 (目标地址, 1, “Yz0=dq&Yz1=” ＋ 目录标识 ＋ “&Yz2=&Yz3=&Yz4=”))
上传服务器 ＝ “http://” ＋ 到小写 (文本_取出中间文本 (数据返回, “parent.Q.f_s='”, “'”))
上传特征文本 ＝ 文本_取出中间文本 (数据返回, “,0,'”, “'”) ＋ “0”
.如果真 (取文本右边 (文件名, 4) ≠ “.txt”)
    文件名 ＝ 文件名 ＋ “.txt”
.如果真结束
正则文件.创建 (#正则文件, 数据返回, 真)
.计次循环首 (正则文件.取匹配数量 (), i)
    .如果真 (正则文件.取子匹配文本 (i, 4) ＝ 文件名)
        文件标识 ＝ 正则文件.取子匹配文本 (i, 1)
    .如果真结束

.计次循环尾 ()
.如果真 (文件标识 ＝ “”)
    置随机数种子 ()
    文件标识 ＝ 到文本 (取随机数 (14500000, 14999999))
.如果真结束
网页_访问 (上传服务器 ＋ “/xt/upa.htm?1”)
网页_访问 (上传服务器 ＋ “/?p=01” ＋ 上传特征文本 ＋ “&ly=” ＋ 空间地址 ＋ “.ys168.com&m=15&f=” ＋ 编码_ (文件名, 2) ＋ “&l=&t=”, 1, #包头 ＋ 文件名 ＋ #包中 ＋ 上传内容 ＋ “..” ＋ #包尾, , , “Content-Type: multipart/form-data; boundary=---------------------------7df1770b003d4” ＋ #换行符 ＋ “Referer: http://” ＋ 空间地址 ＋ “.ys168.com/upfile/up.htm?01” ＋ 文件标识 ＋ “,” ＋ 目录标识)
.循环判断首 ()
    数据返回 ＝ 到文本 (网页_访问 (上传服务器 ＋ “/xt/upjd.aspx?p=01” ＋ 上传特征文本))
    分割的文本 ＝ 分割文本 (数据返回, “,”, )
    处理事件 ()
.循环判断尾 (分割的文本 [1] ≠ “100”)
.如果真 (取文本右边 (用户.帐号, 4) ＝ “.txt”)
    用户.帐号 ＝ 取文本左边 (用户.帐号, 取文本长度 (用户.帐号) － 4)
.如果真结束
网页_访问 (目标地址, 1, “Yz0=scjl&Yz1=W&Yz2=W_” ＋ 文件标识 ＋ “&Yz3=” ＋ 目录标识 ＋ “&Yz4=”)


补充内容 (2017-4-5 14:14):
文本颠倒解决了 可是 登陆成功后 弹出错误信息  数组成员超出定义  错误位置
循环判断尾 (分割的文本 [1] ≠ “100”)