post发布的问题 .求解答

安好勿念

[e].版本 2          提交数据 ＝ “AppId=” ＋ 地址 [n] ＋ “&ReviewsTitle=” ＋ 编码_URL编码UTF8 (编辑框标题.内容) ＋ “&ReviewsContent=” ＋ 编码_URL编码UTF8 (编辑框内容.内容) ＋ “&ReviewsScore=5&ReviewsUserName=” ＋ 编码_URL编码UTF8 (用户名)         提交数据 ＝ 文本_替换 (提交数据, , , , “%D%A”, “”) [/e]



http://www.starandroid.com/app/0d48a8fd-a6aa-4eee-927a-4cf0843ef472



请问应该怎样写 ..求教育

新人.金币较少.往见谅

蟋蟀

发表评论.rar (90.22 KB, 下载次数: 20)

2012-3-8 13:18 上传

点击文件名下载附件

看看吧。。。

蟋蟀

发表评论？

补充内容 (2012-3-8 12:53):
还是注册或登录？ 。。。

冰点

最好附上源码，不太看得懂你的文字表达。，，

安好勿念

不用注册 .就是发表评论

安好勿念

.版本 2
.支持库 spec

.程序集 窗口程序集1

.子程序 _按钮发帖_被单击

发帖 ()

.子程序 发帖
.局部变量 地址, 文本型, , "0"
.局部变量 网址, 文本型
.局部变量 n, 整数型
.局部变量 提交数据, 文本型
.局部变量 a, 文本型
.局部变量 正则, 正则表达式类
.局部变量 n1, 整数型
.局部变量 用户名, 文本型
.局部变量 计数, 整数型
.局部变量 局_排序, 整数型


用户名 ＝ 编辑框2.内容


.计次循环首 (到数值 (编辑框1.内容), )
    n1 ＝ n1 ＋ 1
    .判断开始 (单选框1.选中 ＝ 真)
        局_排序 ＝ 1
    .判断 (单选框2.选中 ＝ 真)
        局_排序 ＝ 2
    .判断 (单选框3.选中 ＝ 真)
        局_排序 ＝ 3
    .默认

    .判断结束



    网址 ＝ “http://www.starandroid.com/apps/101-” ＋ 到文本 (n1) ＋ “-” ＋ 到文本 (局_排序) ＋ “-1-1.shtml”

    正则采集地址 (#常量1, 网址, 地址)
    调试输出 (地址 [1])
    .计次循环首 (取数组成员数 (地址), n)



        提交数据 ＝ “id=” ＋ 地址 [n] ＋&contentType=” ＋ (编辑框标题.内容) ＋“&content=” ＋ 编码_URL编码UTF8 (编辑框内容.内容) ＋ “
        提交数据 ＝ 文本_替换 (提交数据, , , , “%D%A”, “”)

        a ＝ 编码_utf8到gb2312 (到文本 (网页_访问 (“http://www.starandroid.com/handle/addreview.ashx”, 1, , , 到字节集 (提交数据))))

        计数 ＝ 计数 ＋ 1
        标签5.标题 ＝ 到文本 (计数)
        .如果 (寻找文本 (a, “true”, , 假) ≠ -1)
            标签6.标题 ＝ “成功”
        .否则
            标签6.标题 ＝ “失败”
        .如果结束
        处理事件 ()
        延迟 (1000)
    .计次循环尾 ()

.计次循环尾 ()
调试输出 (局_排序)

.子程序 正则采集地址, , 公开, 正则采集地址
.参数 正则表达式, 文本型, 可空
.参数 网址, 文本型, 可空
.参数 采集到的地址, 文本型, 可空 数组, 存放采集到的地址
.局部变量 临时文本, 文本型
.局部变量 正则, 正则表达式类
.局部变量 n, 整数型

重定义数组 (采集到的地址, 假, 0)
临时文本 ＝ 编码_utf8到gb2312 (网页_取网页源码 (网址))
正则.创建 (正则表达式, 临时文本)
.计次循环首 (正则.取匹配数量 (), n)
    加入成员 (采集到的地址, 正则.取子匹配文本 (n, 1))
.计次循环尾 ()


.子程序 __启动窗口_将被销毁

结束 ()

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

单选框1.选中 ＝ 真

蟋蟀

安好勿念 发表于 2012-3-8 13:00
不用注册 .就是发表评论

。。。 早说清楚啥  早说明白了  说不定都已经弄好了。。。

安好勿念

谢谢╔⑩冄⒇╗

蟋蟀

安好勿念 发表于 2012-3-8 14:00
谢谢╔⑩冄⒇╗

如果帮到你了  麻烦请给下最佳。。。谢谢。。。

安好勿念

哥们 .没给写全..能给补全吗 ..在给你加分