老是分配内存失败，请大家帮忙看看怎么回事

免费网管

版本 2
.支持库 mysql
.支持库 EThread
.支持库 iext
.程序集 窗口程序集1
.程序集变量 添加或修改, 逻辑型
.程序集变量 信息, 信息, , "0"
.程序集变量 xk, 整数型
.子程序 __启动窗口_创建完毕
.如果真 (打开事件同步对象 (2031619, 假, “mysoft”) ≠ 0)  ' "myappname"可以是任何文本，但是最好要长一点以保证和系统中已有其他事件对象的名称不相冲突。
    信息框 (“不能重复运行本程序”, #错误图标, “错误”)
    销毁 ()
    返回 ()
.如果真结束
创建事件同步对象 (0, 假, 假, “mysoft”)
主句柄 ＝ 连接MySql (“localhost”, “mysoft”, “mysoft”, “111111”, )
xk ＝ 创建进入许可证 ()
.如果真 (主句柄 ≠ 0)
    读加盟商列表 ()
    读取用户列表 ()
    启动线程 (&接收子程序, , )
    服务初始化 (&发送数据程序, &断点续传程序, &接收数据程序, &连接管理, &TCP事件, 0, 真)
    服务启动 (, 到整数 (读配置项 (取运行目录 () ＋ “\mysoft.ini”, “mysoft”, “myport”, )), 200)
.如果真结束

.子程序 连接管理, , , 连接管理事件内禁止调用 断开连接 命令
.参数 连接句柄, 整数型, , 连接标记句柄
.参数 连接状态, 整数型, , 0.上线 1.下线
.参数 连接信息, 文本型, , 用户浏览器的IP和端口
.参数 连接地址, 文本型, , 用户的连接IP地址
.参数 连接编号, 整数型, , 连接编号
.局部变量 i, 整数型
进入许可区 (xk)
.如果 (连接状态 ＝ 0)
    重定义数组 (信息, 真, 取数组成员数 (信息) ＋ 1)
    信息 [取数组成员数 (信息)].ip ＝ 连接信息
.否则
    .计次循环首 (取数组成员数 (信息), i)
        .如果真 (信息 .ip ＝ 连接信息)
            删除成员 (信息, i, 1)
            跳出循环 ()
        .如果真结束
    .计次循环尾 ()
.如果结束
退出许可区 (xk)
.子程序 发送数据程序, , , 处理GET请求
.参数 事件句柄, 整数型, , 事件句柄
.参数 连接句柄, 整数型, , 连接句柄
.参数 连接编号, 整数型, , 连接编号

.子程序 断点续传程序, , , 处理断点续传请求
.参数 事件句柄, 整数型, , 事件句柄
.参数 连接句柄, 整数型, , 连接句柄
.参数 连接编号, 整数型, , 连接编号
返回 ()
.子程序 接收数据程序, 整数型, , 处理POST数据。0.正常接收 1.停止接收并发送响应 2.立刻断开连接 一般返回0就可以
.参数 事件句柄, 整数型, , 事件句柄
.参数 连接句柄, 整数型, , 连接句柄
.参数 消息类型, 整数型, , 0开始1接收2完成
.参数 连接编号, 整数型, , 连接编号
返回 (0)
.子程序 TCP事件, , , 处理TCP相关事件
.参数 事件句柄, 整数型, , 事件句柄
.参数 连接句柄, 整数型, , 连接句柄
.参数 连接编号, 整数型, , 连接编号
.局部变量 数据, 字节集
.局部变量 句柄, 整数型
.局部变量 TCP, TCP服务
.局部变量 i, 整数型
.局部变量 dk_ip, 文本型
执行SQL语句 (句柄, “select * from IPBlackList where IP地址='” ＋ 文本_取左边 (TCP.客户信息 (连接句柄), “:”) ＋ “'”)
.如果真 (取记录集 (句柄) ＝ 0)
    TCP.接收数据 (事件句柄, 数据)
    进入许可区 (xk)
    dk_ip ＝ TCP.客户信息 (连接句柄)
    i ＝ 0
    .计次循环首 (取数组成员数 (信息), )
        i ＝ i ＋ 1
        .如果 (取数组成员数 (信息) ≥ i)
            .如果真 (信息 .ip ＝ dk_ip)
                信息 .用户信息.用户IP ＝ 文本_取左边 (dk_ip, “:”)
                信息 .用户信息.用户端口 ＝ 到数值 (文本_取右边 (dk_ip, “:”))
                信息 .用户信息.用户句柄 ＝ 连接句柄
                收到客户端数据 (信息 .用户信息, 数据, TCP)
                退出许可区 (xk)
                跳出循环 ()
            .如果真结束
        .否则
            跳出循环 ()
        .如果结束
    .计次循环尾 ()

.如果真结束

.子程序 __启动窗口_托盘事件
.参数 操作类型, 整数型
.如果真 (操作类型 ＝ 2)
    _启动窗口.可视 ＝ 真
    _启动窗口.位置 ＝ 0
    置托盘图标 (, )
.如果真结束

.子程序 __启动窗口_位置被改变
.如果真 (_启动窗口.位置 ＝ 2)
    _启动窗口.可视 ＝ 假
    置托盘图标 (_启动窗口.图标, “用户验证器”)
.如果真结束

.子程序 读加盟商列表
.局部变量 记录集句柄, 整数型
.局部变量 行, 整数型
.局部变量 句柄, 整数型
.局部变量 文本变量, 文本型
.局部变量 L, 整数型
加盟商列表框.全部删除 ()
句柄 ＝ 主句柄
执行SQL语句 (句柄, “select * from agents”)
记录集句柄 ＝ 取记录集 (句柄)
状态条1.置文本 (1, “加盟商数量：” ＋ 到文本 (取记录集行数 (记录集句柄)))
到首行 (记录集句柄)
.计次循环首 (取记录集行数 (记录集句柄), 行)
    L ＝ 0
    加盟商列表框.插入表项 (行 － 1, , , , , )
    读字段值 (记录集句柄, “ID”, 文本变量)
    加盟商列表框.置标题 (行 － 1, L, 文本变量)
    L ＝ L ＋ 1
    读字段值 (记录集句柄, “agent”, 文本变量)
    加盟商列表框.置标题 (行 － 1, L, 文本变量)
    L ＝ L ＋ 1
    读字段值 (记录集句柄, “agentPwd”, 文本变量)
    加盟商列表框.置标题 (行 － 1, L, 文本变量)
    L ＝ L ＋ 1
    读字段值 (记录集句柄, “netbarCount”, 文本变量)
    加盟商列表框.置标题 (行 － 1, L, 文本变量)
    L ＝ L ＋ 1
    读字段值 (记录集句柄, “endTime”, 文本变量)
    加盟商列表框.置标题 (行 － 1, L, 文本变量)
    L ＝ L ＋ 1
    读字段值 (记录集句柄, “company”, 文本变量)
    加盟商列表框.置标题 (行 － 1, L, 文本变量)
    L ＝ L ＋ 1
    读字段值 (记录集句柄, “linkman”, 文本变量)
    加盟商列表框.置标题 (行 － 1, L, 文本变量)
    L ＝ L ＋ 1
    读字段值 (记录集句柄, “address”, 文本变量)
    加盟商列表框.置标题 (行 － 1, L, 文本变量)
    L ＝ L ＋ 1
    读字段值 (记录集句柄, “postcode”, 文本变量)
    加盟商列表框.置标题 (行 － 1, L, 文本变量)
    L ＝ L ＋ 1
    读字段值 (记录集句柄, “mobile”, 文本变量)
    加盟商列表框.置标题 (行 － 1, L, 文本变量)
    L ＝ L ＋ 1
    读字段值 (记录集句柄, “tel”, 文本变量)
    加盟商列表框.置标题 (行 － 1, L, 文本变量)
    L ＝ L ＋ 1
    读字段值 (记录集句柄, “qq”, 文本变量)
    加盟商列表框.置标题 (行 － 1, L, 文本变量)
    L ＝ L ＋ 1
    读字段值 (记录集句柄, “email”, 文本变量)
    加盟商列表框.置标题 (行 － 1, L, 文本变量)
    L ＝ L ＋ 1
    读字段值 (记录集句柄, “info”, 文本变量)
    加盟商列表框.置标题 (行 － 1, L, 文本变量)
    L ＝ L ＋ 1
    读字段值 (记录集句柄, “CITYID”, 文本变量)
    加盟商列表框.置标题 (行 － 1, L, 文本变量)
    L ＝ L ＋ 1
    读字段值 (记录集句柄, “regTime”, 文本变量)
    加盟商列表框.置标题 (行 － 1, L, 文本变量)
    到下一行 (记录集句柄)
.计次循环尾 ()
释放记录集 (记录集句柄)
s
.子程序 读取用户列表
.局部变量 记录集句柄, 整数型
.局部变量 行, 整数型
.局部变量 句柄, 整数型
.局部变量 文本变量, 文本型
.局部变量 L, 整数型
用户列表框.全部删除 ()
句柄 ＝ 主句柄
执行SQL语句 (句柄, “select * from users”)
记录集句柄 ＝ 取记录集 (句柄)
状态条1.置文本 (0, “用户数量：” ＋ 到文本 (取记录集行数 (记录集句柄)))
到首行 (记录集句柄)
.计次循环首 (取记录集行数 (记录集句柄), 行)
    L ＝ 0
    用户列表框.插入表项 (行 － 1, , , , , )
    读字段值 (记录集句柄, “ID”, 文本变量)
    用户列表框.置标题 (行 － 1, L, 文本变量)
    L ＝ L ＋ 1
    读字段值 (记录集句柄, “passwd”, 文本变量)
    用户列表框.置标题 (行 － 1, L, 文本变量)
    L ＝ L ＋ 1
    读字段值 (记录集句柄, “clientVer”, 文本变量)
    用户列表框.置标题 (行 － 1, L, 文本变量)
    L ＝ L ＋ 1
    读字段值 (记录集句柄, “GID”, 文本变量)
    用户列表框.置标题 (行 － 1, L, 文本变量)
    L ＝ L ＋ 1
    读字段值 (记录集句柄, “unknown”, 文本变量)
    用户列表框.置标题 (行 － 1, L, 文本变量)
    L ＝ L ＋ 1
    读字段值 (记录集句柄, “CITYID”, 文本变量)
    用户列表框.置标题 (行 － 1, L, 文本变量)
    L ＝ L ＋ 1
    读字段值 (记录集句柄, “regTime”, 文本变量)
    用户列表框.置标题 (行 － 1, L, 文本变量)
    L ＝ L ＋ 1
    读字段值 (记录集句柄, “endDate”, 文本变量)
    用户列表框.置标题 (行 － 1, L, 文本变量)
    L ＝ L ＋ 1
    读字段值 (记录集句柄, “joinDate”, 文本变量)
    用户列表框.置标题 (行 － 1, L, 文本变量)
    L ＝ L ＋ 1
    读字段值 (记录集句柄, “wksCount”, 文本变量)
    用户列表框.置标题 (行 － 1, L, 文本变量)
    L ＝ L ＋ 1
    读字段值 (记录集句柄, “netbar”, 文本变量)
    用户列表框.置标题 (行 － 1, L, 文本变量)
    L ＝ L ＋ 1
    读字段值 (记录集句柄, “linkman”, 文本变量)
    用户列表框.置标题 (行 － 1, L, 文本变量)
    L ＝ L ＋ 1
    读字段值 (记录集句柄, “address”, 文本变量)
    用户列表框.置标题 (行 － 1, L, 文本变量)
    L ＝ L ＋ 1
    读字段值 (记录集句柄, “email”, 文本变量)
    用户列表框.置标题 (行 － 1, L, 文本变量)
    L ＝ L ＋ 1
    读字段值 (记录集句柄, “tel”, 文本变量)
    用户列表框.置标题 (行 － 1, L, 文本变量)
    L ＝ L ＋ 1
    读字段值 (记录集句柄, “IEpage”, 文本变量)
    用户列表框.置标题 (行 － 1, L, 文本变量)
    L ＝ L ＋ 1
    读字段值 (记录集句柄, “IELinks”, 文本变量)
    用户列表框.置标题 (行 － 1, L, 文本变量)
    L ＝ L ＋ 1
    读字段值 (记录集句柄, “IELinksSwitchSwitch”, 文本变量)
    用户列表框.置标题 (行 － 1, L, 文本变量)
    L ＝ L ＋ 1
    读字段值 (记录集句柄, “BarNotice”, 文本变量)
    用户列表框.置标题 (行 － 1, L, 文本变量)
    L ＝ L ＋ 1
    读字段值 (记录集句柄, “Interface”, 文本变量)
    用户列表框.置标题 (行 － 1, L, 文本变量)
    L ＝ L ＋ 1
    读字段值 (记录集句柄, “HomePage”, 文本变量)
    用户列表框.置标题 (行 － 1, L, 文本变量)
    L ＝ L ＋ 1
    读字段值 (记录集句柄, “FRCAccount”, 文本变量)
    用户列表框.置标题 (行 － 1, L, 文本变量)
    L ＝ L ＋ 1
    读字段值 (记录集句柄, “PowerBulletin”, 文本变量)
    用户列表框.置标题 (行 － 1, L, 文本变量)
    L ＝ L ＋ 1
    读字段值 (记录集句柄, “GameServer”, 文本变量)
    用户列表框.置标题 (行 － 1, L, 文本变量)
    L ＝ L ＋ 1
    读字段值 (记录集句柄, “Hardware”, 文本变量)
    用户列表框.置标题 (行 － 1, L, 文本变量)
    L ＝ L ＋ 1
    读字段值 (记录集句柄, “Franchisee”, 文本变量)
    用户列表框.置标题 (行 － 1, L, 文本变量)
    到下一行 (记录集句柄)
.计次循环尾 ()
' 写到文件 (取运行目录 () ＋ “\读取用户列表” ＋ “.txt”, 到字节集 (到文本 (取现行时间 ())))
释放记录集 (记录集句柄)

.子程序 __启动窗口_尺寸被改变
选择夹.宽度 ＝ _启动窗口.宽度
选择夹.高度 ＝ _启动窗口.高度 － 72
用户列表框.高度 ＝ 选择夹.高度 － 42
用户列表框.宽度 ＝ _启动窗口.宽度 － 25
加盟商列表框.高度 ＝ 用户列表框.高度
加盟商列表框.宽度 ＝ 用户列表框.宽度
连接消息列表框.高度 ＝ 用户列表框.高度
连接消息列表框.宽度 ＝ 用户列表框.宽度
.子程序 _P2P服务器设置_被选择
载入 (P2P服务器设置窗口, , 真)

.子程序 连接消息显示子程序
.参数 连接消息, 文本型
.如果真 (连接消息列表框.取表项数 () ＞ 100)
    连接消息列表框.全部删除 ()
.如果真结束
连接消息列表框.插入表项 (0, , , , , )
连接消息列表框.置标题 (0, 0, 时间到文本 (取现行时间 (), 1))
连接消息列表框.置标题 (0, 1, 连接消息)

.子程序 _IP黑名单设置_被选择
载入 (IP黑名单窗口, , 真)

.子程序 _防火墙设置_被选择
载入 (防火墙设置窗口, , 真)

.子程序 _IE地址栏目设置_被选择
载入 (IE地址栏设置窗口, , 真)
.子程序 _编辑框2_内容被改变
.局部变量 项目X, 整数型
项目X ＝ 加盟商列表框.查找表项 (编辑框1.内容, 0, 假, 0)
加盟商列表框.选择表项 (项目X)
加盟商列表框.保证显示 (项目X)

.子程序 _刷新用户_被选择
读取用户列表 ()
.子程序 _刷新加盟商_被选择
读加盟商列表 ()
.子程序 __启动窗口_空闲, 逻辑型
.参数 已空闲时间, 整数型
内存_优化 (取窗口句柄 ())
.子程序 _编辑框1_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型
.局部变量 项目X, 整数型
.如果真 (键代码 ＝ #回车键)
    项目X ＝ 用户列表框.查找表项 (编辑框1.内容, 0, 假, 0)
    用户列表框.选择表项 (项目X)
    用户列表框.保证显示 (项目X)
.如果真结束

易团俊

这么长的源码。。你不说哪儿出错了。。。他应该会跳转到出错的地方的吧。。

小明无敌

看你的源码我头晕 你就不能上传个附件？

免费网管

问题是有时用几小时出错，有时用10小时出错

F9b5u5f

长啊...  这是什么？

yaojinbao

你重新打开一下点击下静态编译就会跳到错的地方了……

咸鱼猫

你还能运行一段时候，我就是试着读个内存就出这个错啊。这是为什么？