网页填报问题！！急！！！！！网页填报问题！

jacksun001

用精易2.5模块，找不出问题，高手帮我看看 哪里错了

.版本 2
.支持库 WebBrowser2

.程序集 窗口程序集1
.程序集变量 网页填表, 普通填表
.程序集变量 程序集_就绪, 整数型

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

互联网浏览器1.浏览 (“http://reg.qq.com”, , , )

.子程序 _编辑框_验证码_获得焦点

图 片框_验证码.图 片 ＝ 网页_访问 (“http://ui.ptlogin2.qq.com/cgi-bin/getimage?aid=1000801&0.3885995389752727”)
编辑框_验证码.获取焦点 ()

.子程序 _按钮_开始_被单击

网页填表.初始化 (互联网浏览器1.取窗口句柄 ())
网页填表.文本框_写内容 (“1”, “果子”, 0, 真)
网页填表.文本框_写内容 (“2”, “123456789”, 0, 真)
网页填表.文本框_写内容 (“3”, “123456789”, 0, 真)
网页填表.文本框_写内容 (“4”, 编辑框_验证码.内容, 0, 真)
网页填表.组合框_按项目文本选择 (1, “1987”, 真)
网页填表.组合框_按项目文本选择 (2, “7”, 真)
网页填表.组合框_按项目文本选择 (3, “16”, 真)
网页填表.组合框_按项目文本选择 (4, “中国”, 真)
网页填表.组合框_按项目文本选择 (5, “广东”, 真)
网页填表.组合框_按项目文本选择 (6, “广州”, 真)
子程序_置焦点 ()




.子程序 子程序_置焦点

网页填表.初始化 (互联网浏览器1.取窗口句柄 ())
网页填表.控件_置焦点 (2, 1)
键盘_单击 (#Tab键)
键盘_单击 (#Tab键)
键盘_单击 (#Tab键)
键盘_单击 (#Tab键)
键盘_单击 (#Tab键)
键盘_单击 (#Tab键)
键盘_单击 (#Tab键)
键盘_单击 (#Tab键)
键盘_单击 (#Tab键)
键盘_单击 (#Tab键)
键盘_单击 (#Tab键)
键盘_单击 (#Tab键)
网页填表.链接_点击 (“确定并同意以下条款”, 1)

.子程序 子程序_取QQ号, 文本型
.参数 源文本, 文本型
.局部变量 找到的位置, 整数型
.局部变量 临时文本, 文本型

找到的位置 ＝ 寻找文本 (源文本, “您获得的号码为：”, , 真)
临时文本 ＝ 取文本右边 (源文本, 取文本长度 (源文本) － 找到的位置 － 取文本长度 (“您获得的号码为：”) ＋ 1)
找到的位置 ＝ 寻找文本 (临时文本, “此号处于未保护”, , 假)
临时文本 ＝ 取文本左边 (临时文本, 找到的位置)
返回 (临时文本)


.子程序 _互联网浏览器1_已就绪
.参数 地址, 文本型, 参考
.局部变量 临时文本, 文本型
.局部变量 QQ号, 文本型

程序集_就绪 ＝ 程序集_就绪 ＋ 1
.如果真 (程序集_就绪 ＝ 4)
    程序集_就绪 ＝ 0
    网页填表.初始化 (互联网浏览器1.取窗口句柄 ())
    临时文本 ＝ 网页填表.网页_取文本 ()
    .如果真 (寻找文本 (临时文本, “申请成功！您获得的号码为：”, , 假) ≠ -1)
        QQ号 ＝ 子程序_取QQ号 (临时文本)
        编辑框_QQ号列表.加入文本 (QQ号 ＋ #换行符)
    .如果真结束

.如果真结束


.子程序 _编辑框_验证码_按下某键, 逻辑型
.参数 键代码, 整数型
.参数 功能键状态, 整数型

.如果真 (键代码 ＝ #回车键)
    _按钮_开始_被单击 ()
.如果真结束
.如果真 (键代码 ＝ #空格键)
    _编辑框_验证码_获得焦点 ()
.如果真结束

无名

这个源码是精易VIP填表模块才可以用的，你把所有的“网页填表”改成“普通填表”试下，{:3_50:}

f4171494

才5金币 汗 不干

peter963520

楼上的还现实哦！{:3_44:}

果子

楼主,什么样的错误,你得说一下啊

PLLB

学习一下咯 谢谢拉！