写了个网页填表程序，生成后老是内存错误

黑夜的力量

[e][e][e].版本 2 .支持库 HtmlView .支持库 iext  .程序集 窗口程序集1 .程序集变量 分割, 文本型, , "0" .程序集变量 区划, 文本型 .程序集变量 网页填表, 普通填表  .子程序 计算校验位, 文本型, , 应该提供17位参数 .参数 原号码, 文本型 .局部变量 位, 文本型 .局部变量 i, 整数型 .局部变量 累加, 整数型 .局部变量 校验码串, 文本型, , "17" .局部变量 加权因子, 整数型, , "17"  加权因子 ＝ { 7, 9, 10, 5, 8, 4, 2, 1, 6, 3, 7, 9, 10, 5, 8, 4, 2 } 校验码串 ＝ { “1”, “0”, “X”, “9”, “8”, “7”, “6”, “5”, “4”, “3”, “2” } .计次循环首 (17, i)     位 ＝ 取文本中间 (原号码, i, 1)     累加 ＝ 累加 ＋ 到整数 (位) × 加权因子 .计次循环尾 () 返回 (校验码串 [累加 ％ 11 ＋ 1])  .子程序 __启动窗口_创建完毕 .局部变量 i, 整数型  区划 ＝ #aa ＋ #bb ＋ #cc 分割 ＝ 分割文本 (区划, #换行符, ) .计次循环首 (取数组成员数 (分割), i)     .如果真 (寻找文本 (分割 , “0000　”, , 假) ＞ 0)         组合框1.加入项目 (取文本中间 (分割 , 9, 取文本长度 (分割 ) － 8), 到整数 (取文本左边 (分割 , 6)))     .如果真结束  .计次循环尾 () 超文本浏览框1.地址 ＝ “http://nycs.syyx.com/” 超级列表框1.允许编辑 ＝ 真 _图片框1_鼠标左键被按下 (0, 0, 1) _启动窗口.标题 ＝ “诺亚帐号注册机V1.00”  .子程序 _按钮1_被单击  _按钮2_被单击 () 网页填表.初始化 (超文本浏览框1.取窗口句柄 ()) 网页填表.文本框_写内容 (“txtUserAccount”, 编辑框1.内容) 网页填表.文本框_写内容 (“txtPasswords”, 编辑框2.内容) 网页填表.文本框_写内容 (“txtConfirm”, 编辑框2.内容) 网页填表.文本框_写内容 (“txtTrueName”, 编辑框3.内容) 网页填表.文本框_写内容 (“txtCardID”, 编辑框4.内容) 网页填表.文本框_写内容 (“txtValidate”, 编辑框5.内容) 延时 (500) 网页填表.链接_点击 (“12”)   .子程序 _图片框1_鼠标左键被按下, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型  图片框1.图片 ＝ 网页_验证码读取 (“http://nycs.syyx.com/validate/va ... =0.5696755686499054”)    .子程序 _按钮2_被单击  编辑框1.内容 ＝ 文本_取随机字符 (6) 编辑框3.内容 ＝ 文本_取随机汉字 (3, 0) 调用 ()    .子程序 _组合框1_列表项被选择 .局部变量 i, 整数型 .局部变量 a, 文本型  组合框2.清空 () a ＝ 取文本左边 (到文本 (组合框1.取项目数值 (组合框1.现行选中项)), 2) .计次循环首 (取数组成员数 (分割), i)     .如果真 (取文本左边 (删首空 (分割 ), 2) ＝ a 且 取文本中间 (删首空 (分割 ), 3, 4) ≠ “0000”)         组合框2.加入项目 (取文本中间 (分割 , 9, 取文本长度 (分割 ) － 8), 到整数 (取文本左边 (删首空 (分割 ), 6)))     .如果真结束  .计次循环尾 ()  .子程序 _调节器1_调节钮被按下 .参数 按钮值, 整数型  调节日期 (按钮值, 编辑框6)  .子程序 调节日期 .参数 按钮值, 整数型 .参数 编辑框变量, 编辑框 .局部变量 年, 文本型 .局部变量 月, 文本型 .局部变量 日, 文本型  编辑框变量.获取焦点 () 年 ＝ 取文本左边 (编辑框变量.内容, 4) 月 ＝ 取文本中间 (编辑框变量.内容, 6, 2) 日 ＝ 取文本中间 (编辑框变量.内容, 9, 2) .判断开始 (编辑框变量.起始选择位置 ＝ 0 或 编辑框变量.起始选择位置 ＝ 1 或 编辑框变量.起始选择位置 ＝ 2 或 编辑框变量.起始选择位置 ＝ 3 或 编辑框变量.起始选择位置 ＝ 4)     .如果真 (年 ＝ “2098” 且 按钮值 ＝ 1)         年 ＝ “1899”     .如果真结束     .如果真 (年 ＝ “1900” 且 按钮值 ＝ -1)         年 ＝ “2099”     .如果真结束     年 ＝ 到文本 (到数值 (年) ＋ 按钮值)     编辑框变量.内容 ＝ 年 ＋ “/” ＋ 月 ＋ “/” ＋ 日     编辑框变量.起始选择位置 ＝ 0     编辑框变量.被选择字符数 ＝ 4 .判断 (编辑框变量.起始选择位置 ＝ 5 或 编辑框变量.起始选择位置 ＝ 6 或 编辑框变量.起始选择位置 ＝ 7)     .如果真 (月 ＝ “12” 且 按钮值 ＝ 1)         月 ＝ “0”     .如果真结束     .如果真 (月 ＝ “01” 且 按钮值 ＝ -1)         月 ＝ “13”     .如果真结束     月 ＝ 到文本 (到数值 (月) ＋ 按钮值)     月 ＝ 选择 (取文本长度 (月) ＝ 2, 月, “0” ＋ 月)     编辑框变量.内容 ＝ 年 ＋ “/” ＋ 月 ＋ “/” ＋ 日     编辑框变量.起始选择位置 ＝ 5     编辑框变量.被选择字符数 ＝ 2 .判断 (编辑框变量.起始选择位置 ＝ 8 或 编辑框变量.起始选择位置 ＝ 9 或 编辑框变量.起始选择位置 ＝ 10)     .如果真 (日 ＝ “31” 且 按钮值 ＝ 1)         日 ＝ “0”     .如果真结束     .如果真 (日 ＝ “01” 且 按钮值 ＝ -1)         日 ＝ “32”     .如果真结束     日 ＝ 到文本 (到数值 (日) ＋ 按钮值)     日 ＝ 选择 (取文本长度 (日) ＝ 2, 日, “0” ＋ 日)     编辑框变量.内容 ＝ 年 ＋ “/” ＋ 月 ＋ “/” ＋ 日     编辑框变量.起始选择位置 ＝ 8     编辑框变量.被选择字符数 ＝ 2 .默认  .判断结束   .子程序 调用 .局部变量 a, 文本型, , , 区号和生日 .局部变量 b, 文本型, , , 男女 .局部变量 i, 整数型 .局部变量 c, 文本型, , , 前17位 .局部变量 d, 文本型, , , 全部 .局部变量 f, 文本型, , "0"  a ＝ 到文本 (组合框2.取项目数值 (组合框2.现行选中项))  ' 区号 .如果真 (a ＝ “-1”)     _启动窗口.标题 ＝ “诺亚帐号注册机V1.00” ＋ “请选择地区”     返回 () .如果真结束 a ＝ a ＋ 子文本替换 (编辑框6.内容, “/”, , , , 真)  ' 生日 b ＝ 到文本 (组合框3.现行选中项) .计次循环首 (500, i)     .判断开始 (取文本长度 (b) ＝ 1)         b ＝ “00” ＋ b     .判断 (取文本长度 (b) ＝ 2)         b ＝ “0” ＋ b     .默认      .判断结束     c ＝ a ＋ 到文本 (b)     d ＝ d ＋ c ＋ 计算校验位 (c) ＋ #换行符     b ＝ 到文本 (到整数 (b) ＋ 2)  .计次循环尾 () _启动窗口.标题 ＝ “诺亚帐号注册机V1.00” ＋ “刷新完毕” _启动窗口.标记 ＝ d ＋ #换行符 f ＝ 分割文本 (_启动窗口.标记, #换行符, )  编辑框4.内容 ＝ f [到数值 (文本_取随机范围数字 (1, 500))]  .子程序 _编辑框3_鼠标左键被放开, 逻辑型 .参数 横向位置, 整数型 .参数 纵向位置, 整数型 .参数 功能键状态, 整数型  调节日期 (0, 编辑框3)  .子程序 _按钮2_按下某键, 逻辑型 .参数 键代码, 整数型 .参数 功能键状态, 整数型  键代码 ＝ 0  .子程序 _编辑框5_按下某键, 逻辑型 .参数 键代码, 整数型 .参数 功能键状态, 整数型  .如果 (键代码 ＝ 13)     _按钮1_被单击 () .否则     .如果 (键代码 ＝ #F1键)         _按钮4_被单击 ()     .否则      .如果结束  .如果结束 返回 ()   .子程序 输出文本  超级列表框1.置标题 (超级列表框1.插入表项 (, , , , , ), 到整数 (取现行时间 ()), 编辑框1.内容 ＋ “----” ＋ 编辑框3.内容 ＋ “----” ＋ 编辑框4.内容 ＋ #换行符)  .子程序 _按钮4_被单击  输出文本 () _启动窗口.标题 ＝ 到文本 (超级列表框1.取表项数 ()) 外部超级列表框_保存数据 (超级列表框1.取窗口句柄 (), “C:/001.ebb”, 0, 0)   .子程序 _时钟1_周期事件  图片框1.图片 ＝ 网页_验证码读取 (“http://nycs.syyx.com/validate/va ... =0.5696755686499054”) [/e][/e][/e]

-天-堂-

看帖回帖的人都是活雷锋

attracting

嗯嗯

gegvv

啥情况,同情

415597958

目测源码不是楼主的。如：校验码串

ㄣ负二代

我来看看 上面的大牛的！