这是很久以前写的,因为有人需要,所以发出来.
.版本 2
.局部变量 内容, 文本型
.局部变量 提交数据, 文本型
.局部变量 提交数据长度, 文本型
提交数据 ＝ “content=12345&uin=116852739&replycampus=0&property=GoRE”
提交数据长度 ＝ 到文本 (取文本长度 (提交数据))
内容 ＝ “POST /cgi-bin/new/msgb_addanswer.cgi HTTP/1.1” ＋ #换行符
内容 ＝ 内容 ＋ “Accept: */*” ＋ #换行符
内容 ＝ 内容 ＋ “Referer: http://m.qzone.qq.com/” ＋ #换行符
内容 ＝ 内容 ＋ “Accept-Language: zh-cn” ＋ #换行符
内容 ＝ 内容 ＋ “Content-Type: application/x-www-form-urlencoded” ＋ #换行符
内容 ＝ 内容 ＋ “Accept-Encoding: gzip, deflate” ＋ #换行符
内容 ＝ 内容 ＋ “User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; 20080914)” ＋ #换行符
内容 ＝ 内容 ＋ “Host: m.qzone.qq.com” ＋ #换行符
内容 ＝ 内容 ＋ “Content-Length: ” ＋ 提交数据长度 ＋ #换行符
内容 ＝ 内容 ＋ “Cache-Control: no-cache” ＋ #换行符
内容 ＝ 内容 ＋ “Connection: Keep-Alive” ＋ #换行符
内容 ＝ 内容 ＋ “Cookie: pt2gguin=o0010347904; ptcz=3e2483bfdb847715055cad88514a64bfc366de723f25d8d852e0b2611bb934de; pvid=4385960000; uin=o0010347904; skey=@FHM0ith66; randomSeed=7667652” ＋ #换行符 ＋ #换行符
内容 ＝ 内容 ＋ 提交数据
客户.连接 (“m.qzone.qq.com”, 80)
客户.发送数据 (内容)