|
10精币
想写一个顶贴机 本人小小菜鸟 遇到了问题卡主了
各位大侠帮帮忙吧
看了一些帖子去修改了可是还是不行 源码太大 没办法穿
.版本 2
.支持库 spec
.程序集 窗口程序集1
.子程序 _按钮2_被单击
.局部变量 地址, 文本型
.局部变量 提交的数据, 文本型
.局部变量 返回文本, 文本型
.局部变量 posttime, 文本型
.局部变量 临时文本, 文本型
.局部变量 formhash, 文本型
临时文本 = 到文本 (网页_访问 (“http://bbs.e23.cn/thread-169648137-1-1.html”))
formhash = 文本_取出中间文本 (临时文本, “formhash” + #引号 + “ value=” + #引号, #引号)
posttime = 文本_取出中间文本 (临时文本, “ts” + #引号 + “ value=” + #引号, #引号)
地址 = “http://bbs.e23.cn/forum.php?mod=post&action=reply&fid=296&tid=” + 编辑框1_帖子地址.内容 + “&extra=page%3D1&replysubmit=yes&infloat=yes&handlekey=fastpost&inajax=1”
提交的数据 = “message=” + 编辑框1_顶贴内容.内容 + “&posttime=” + posttime + “&formhash=” + formhash + “&subject=”
返回文本 = 彗星HTTP读文本 (地址, “post”, , , 提交的数据)
调试输出 (返回文本)
|
|