|
马上加入TC
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
本帖最后由 fyc913088 于 2015-4-23 12:20 编辑
请问下我用post在落伍者发帖,发帖成功后查看帖子发现只发了开头几句话,就是文章post不完整了,我发文章之前有先用gbk编码,对方是gb2312论坛,会不会这个问题??还是TC http提交请求自身问题?
关键代码:
- 功能 落伍者发帖(标题加内容)//////落伍者发帖
- 标签设置文本("提示","落伍者发帖....")
- 变量 文章数组//分割标题内容
- 字符串分割(标题加内容,"|||||",文章数组)
- 变量 文章标题=文章数组[0]
- 变量 文章内容=文章数组[1]//分割标题内容
- //get formhash posttime ts=
- 变量 geturl = "post_url"//广告区
- 变量 head=数组(),resp**e
- head["cookie"]=落伍者cookie
- 变量 get_ret = http提交请求("get",geturl,"","",head,resp**e)
- 变量 formhash = 字符串截取(get_ret,字符串查找(get_ret,"formhash=")+9,字符串查找(get_ret,"formhash=")+17)
- 变量 posttime = 字符串截取(get_ret,字符串查找(get_ret,"rand=")+5,字符串查找(get_ret,"rand=")+15)
- //post 发帖
- 文章标题=gbk编码(文章标题)
- 文章内容=gbk编码(文章内容)
- 变量 post_url="post_url"
- 变量 post_resp**e
- 变量 senddata = "formhash="&formhash&"&posttime="&posttime&"&wysiwyg=1&subject="&文章标题&"&message="&文章内容&"&readperm=&rushreplyfrom=&rushreplyto=&rewardfloor=&stopfloor=&creditlimit=&save=&usesig=1&allownoticeauthor=1"
- 消息框(senddata)
- 变量 post_ret = http提交请求("post",post_url,senddata,"utf-8",head,post_resp**e)
- 标签设置文本("提示","落伍者发帖结束")
- 结束
复制代码- 功能 gbk编码(待编码内容)//url gbk编码
- 变量 编码结果=jv.getgbk(待编码内容)
- 变量 字节集=数组(),字数,总内容
- 字符串分割(编码结果," ",字节集)
- 字数=数组大小(字节集)
- 遍历(变量 i = 0; i < 字数-1; i++)
- 如果(字符串长度(字节集[i])==4)//4位数为汉字
- 变量 头两位=字符串截取左侧(字节集[i],2)
- 字节集[i]=字符串替换(字节集[i],头两位,"%"&头两位&"%")//加上百分号
- 否则如果(字符串长度(字节集[i])==2)//2位数为汉字
- 字节集[i]="%"&字节集[i]//加上百分号
- 结束
- 总内容=总内容&字节集[i]
- 结束
- 返回 总内容
- 结束
复制代码 |
|