怎么在编辑框显示我想要的内容

单身戒指

也就是帐号密码登录成功时


在编辑框里面显示出“登录成功”
找了好久都没找到  不要提示框

E族x鬼才

“流星” 发表于 2012-9-14 18:09

.版本 2
.判断开始 (寻找文本 (fromweb, “登录成功”, , 假) ≠ -1)
    编辑框1.内容 ＝ “登录成功”
.默认
.判断结束








复制上去就OK

E族x鬼才

上源码
我帮你搞

单身戒指

“流星” 发表于 2012-9-14 18:03
上源码
我帮你搞

.版本 2
.支持库 spec

帐号 ＝ 编辑框1.内容
密码 ＝ 编辑框2.内容
网页访问 (“http://www.baidu.com/”)  ' 必须！设置cookies到本地。
token ＝ 网页访问s (“https://passport.baidu.com/v2/api/?loginliteinfo&username=” ＋ url特殊编码 (帐号, 真) ＋ “&isPhone=false&tpl=tb&immediatelySubmit=false&index=242&t=” ＋ getTime (), , , , , , , , )
token ＝ 文本_取出中间文本 (token, “token:'”, “'”)
调试输出 (token)
fromweb ＝ 网页访问s (“https://passport.baidu.com/v2/api/?login”, “POST”, “username=” ＋ url特殊编码 (帐号, 假) ＋ “&password=” ＋ url特殊编码 (密码, 假) ＋ “&verifycode=&mem_pass=on&charset=gb2312&isPhone=false&index=242&safeflg=0&staticpage=http%3A%2F%2Ftieba.baidu.com%2Ftb%2Fv2Jump.html&loginType=1&tpl=tb&codestring=&token=” ＋ token ＋ “&callback=parent.bdPass.api.loginLite._submitCallBack”, )
fromweb ＝ 文本_取出中间文本 (fromweb, “error=”, “&callback”)
调试输出 (fromweb)
.如果 (fromweb ＝ “0”)
    信息框 (“登录成功”, 0, )
.否则
    .如果 (fromweb ＝ “119998”)
        信息框 (“网络错误，请重试”, 16, )
    .否则
        信息框 (“密码错误，请重试”, 16, )

E族x鬼才

“流星” 发表于 2012-9-14 18:03
上源码
我帮你搞

E族x鬼才

错了   ，，，         你那里直接把  信息框 (“登录成功”, 0, )  删掉  换成           编辑框1.内容 ＝ “登录成功”

单身戒指

“流星” 发表于 2012-9-14 18:14
错了   ，，，         你那里直接把  信息框 (“登录成功”, 0, )  删掉  换成           编辑框1.内容 ＝ ...

嗯  我去试试看

记忆是座荒岛

      判断命令

单身戒指

“流星” 发表于 2012-9-14 18:11
.版本 2
.判断开始 (寻找文本 (fromweb, “登录成功”, , 假) ≠ -1)
    编辑框1.内容 ＝ “登录成功” ...

求帮助

.版本 2
.支持库 spec

.局部变量 svxml, SvXml
.局部变量 retstream, 文本型
.局部变量 left, 整数型
.局部变量 right, 整数型
.局部变量 tid, 文本型
.局部变量 kw, 文本型
.局部变量 fid, 文本型
.局部变量 tbs, 文本型
.局部变量 内容, 文本型
.局部变量 tmp, 文本型

svxml.置Cookie (Cookie)
.判断循环首 (真)
    retstream ＝ svxml.访问网页 (, “http://tieba.baidu.com/f?kw=” ＋ 贴吧)
    left ＝ 寻找文本 (retstream, “div title=” ＋ #引号 ＋ “0个回复”, , 假)
    .如果真 (left ＝ -1)
        到循环尾 ()
    .如果真结束
    信息输出 (#黄色, “发现目标...”)
    left ＝ 寻找文本 (retstream, “/p/”, left, 假) ＋ 3
    right ＝ 寻找文本 (retstream, #引号, left, 假)
    tid ＝ 取文本中间 (retstream, left, right － left)
    retstream ＝ svxml.访问网页 (, “http://tieba.baidu.com/p/” ＋ tid)
    left ＝ 寻找文本 (retstream, “value=” ＋ #引号, , 假) ＋ 7
    right ＝ 寻找文本 (retstream, #引号, left, 假)
    kw ＝ 取文本中间 (retstream, left, right － left)
    kw ＝ URL编码UTF8 (kw)
    left ＝ 寻找文本 (retstream, “,fid:'”, , 假) ＋ 6
    right ＝ 寻找文本 (retstream, “'”, left, 假)
    fid ＝ 取文本中间 (retstream, left, right － left)
    retstream ＝ svxml.访问网页 (, “http://tieba.baidu.com/f/user/js ... &rs10=0&lm=” ＋ fid ＋ “&word=” ＋ kw ＋ “&tid=” ＋ tid, , , 8000)
    .如果真 (寻找文本 (retstream, “need” ＋ #引号 ＋ “:0”, , 假) ＝ -1)
        ' 需要验证码
        信息输出 (#红色, “需要验证码，已停止。”)
        开始按钮.禁止 ＝ 假
        停止按钮.禁止 ＝ 真
        返回 ()
    .如果真结束
    ' 无需验证码
    内容 ＝ URL编码UTF8 (干扰码 (原始内容))
    retstream ＝ svxml.访问网页 (, “http://tieba.baidu.com/dc/common/tbs”, , , 8000)
    left ＝ 寻找文本 (retstream, “:” ＋ #引号, , 假) ＋ 2
    right ＝ 寻找文本 (retstream, #引号, left, 假)
    tbs ＝ 取文本中间 (retstream, left, right － left)
    retstream ＝ svxml.访问网页 (“POST”, “http://tieba.baidu.com/f/commit/post/add”, “tbs=” ＋ tbs ＋ “&tid=” ＋ tid ＋ “&fid=” ＋ fid ＋ “&floor_num=1&vcode_md5=&vcode=&rich_text=1&add_post_submit=%20%E5%8F%91%20%E8%A1%A8%20&content=” ＋ 内容 ＋ “&ie=1&kw=” ＋ kw ＋ “&useSignName=off”, , 8000)
    left ＝ 寻找文本 (retstream, “:”, , 假) ＋ 1
    right ＝ 寻找文本 (retstream, “,”, left, 假)
    tmp ＝ 取文本中间 (retstream, left, right － left)
    调试输出 (retstream)
    .如果 (tmp ＝ “0”)  ' 12:被封 2101:掉线 13:代理无效 空:匿名无效
        信息输出 (#绿色, “抢二楼成功！帖子号：” ＋ tid)
    .否则
        信息输出 (#红色, “抢二楼失败！帖子号：” ＋ tid ＋ “ 错误信息：” ＋ tmp)
        鸣叫 ()
        .如果真 (退出 ＝ 真)
            开始按钮.禁止 ＝ 假
            停止按钮.禁止 ＝ 真
            信息输出 (#红色, “已停止！”)
            返回 ()
        .如果真结束

    .如果结束
    延迟 (间隔)
.判断循环尾 ()

为什么就找不到0回复

单身戒指

记忆是座荒岛 发表于 2012-9-14 19:17
判断命令

求帮助

.版本 2
.支持库 spec

.局部变量 svxml, SvXml
.局部变量 retstream, 文本型
.局部变量 left, 整数型
.局部变量 right, 整数型
.局部变量 tid, 文本型
.局部变量 kw, 文本型
.局部变量 fid, 文本型
.局部变量 tbs, 文本型
.局部变量 内容, 文本型
.局部变量 tmp, 文本型

svxml.置Cookie (Cookie)
.判断循环首 (真)
    retstream ＝ svxml.访问网页 (, “http://tieba.baidu.com/f?kw=” ＋ 贴吧)
    left ＝ 寻找文本 (retstream, “div title=” ＋ #引号 ＋ “0个回复”, , 假)
    .如果真 (left ＝ -1)
        到循环尾 ()
    .如果真结束
    信息输出 (#黄色, “发现目标...”)
    left ＝ 寻找文本 (retstream, “/p/”, left, 假) ＋ 3
    right ＝ 寻找文本 (retstream, #引号, left, 假)
    tid ＝ 取文本中间 (retstream, left, right － left)
    retstream ＝ svxml.访问网页 (, “http://tieba.baidu.com/p/” ＋ tid)
    left ＝ 寻找文本 (retstream, “value=” ＋ #引号, , 假) ＋ 7
    right ＝ 寻找文本 (retstream, #引号, left, 假)
    kw ＝ 取文本中间 (retstream, left, right － left)
    kw ＝ URL编码UTF8 (kw)
    left ＝ 寻找文本 (retstream, “,fid:'”, , 假) ＋ 6
    right ＝ 寻找文本 (retstream, “'”, left, 假)
    fid ＝ 取文本中间 (retstream, left, right － left)
    retstream ＝ svxml.访问网页 (, “http://tieba.baidu.com/f/user/js ... &rs10=0&lm=” ＋ fid ＋ “&word=” ＋ kw ＋ “&tid=” ＋ tid, , , 8000)
    .如果真 (寻找文本 (retstream, “need” ＋ #引号 ＋ “:0”, , 假) ＝ -1)
        ' 需要验证码
        信息输出 (#红色, “需要验证码，已停止。”)
        开始按钮.禁止 ＝ 假
        停止按钮.禁止 ＝ 真
        返回 ()
    .如果真结束
    ' 无需验证码
    内容 ＝ URL编码UTF8 (干扰码 (原始内容))
    retstream ＝ svxml.访问网页 (, “http://tieba.baidu.com/dc/common/tbs”, , , 8000)
    left ＝ 寻找文本 (retstream, “:” ＋ #引号, , 假) ＋ 2
    right ＝ 寻找文本 (retstream, #引号, left, 假)
    tbs ＝ 取文本中间 (retstream, left, right － left)
    retstream ＝ svxml.访问网页 (“POST”, “http://tieba.baidu.com/f/commit/post/add”, “tbs=” ＋ tbs ＋ “&tid=” ＋ tid ＋ “&fid=” ＋ fid ＋ “&floor_num=1&vcode_md5=&vcode=&rich_text=1&add_post_submit=%20%E5%8F%91%20%E8%A1%A8%20&content=” ＋ 内容 ＋ “&ie=1&kw=” ＋ kw ＋ “&useSignName=off”, , 8000)
    left ＝ 寻找文本 (retstream, “:”, , 假) ＋ 1
    right ＝ 寻找文本 (retstream, “,”, left, 假)
    tmp ＝ 取文本中间 (retstream, left, right － left)
    调试输出 (retstream)
    .如果 (tmp ＝ “0”)  ' 12:被封 2101:掉线 13:代理无效 空:匿名无效
        信息输出 (#绿色, “抢二楼成功！帖子号：” ＋ tid)
    .否则
        信息输出 (#红色, “抢二楼失败！帖子号：” ＋ tid ＋ “ 错误信息：” ＋ tmp)
        鸣叫 ()
        .如果真 (退出 ＝ 真)
            开始按钮.禁止 ＝ 假
            停止按钮.禁止 ＝ 真
            信息输出 (#红色, “已停止！”)
            返回 ()
        .如果真结束

    .如果结束
    延迟 (间隔)
.判断循环尾 ()

为什么就找不到0回复