post登录，自动发帖

.版本 2

.程序集 窗口程序集1

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

图片框1.图片 ＝ 彗星HTTP读文件 (“http://bbss.shangdu.com/Login/randomcode.jsp?fdfgjk=” ＋ 到文本 (取现行时间 ()))

.子程序 _图片框1_鼠标左键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型

图片框1.图片 ＝ 彗星HTTP读文件 (“http://bbss.shangdu.com/Login/randomcode.jsp?fdfgjk=” ＋ 到文本 (取现行时间 ()))

.子程序 _按钮1_被单击
.局部变量 post地址, 文本型
.局部变量 post数据, 文本型
.局部变量 返回文本, 文本型

post地址 ＝ “http://bbss.shangdu.com/Login/login.jsp”
post数据 ＝ “txtNAME=” ＋ 删首尾空 (编辑框1.内容) ＋ “&txtPassword=” ＋ 删首尾空 (编辑框2.内容) ＋ “&randomcode=” ＋ 删首尾空 (编辑框3.内容) ＋ “&ddlCity=01&action=loginName&x=17&y=13”
返回文本 ＝ 彗星HTTP读文本 (post地址, “post”, , , post数据, )
输出调试文本 (返回文本)
.' 如果 (倒找文本 (返回文本, “登录失败”, , 假) ≠ -1)
    ' 信息框 (“登录成功”, 0, )
.否则
    ' 信息框 (“登录失败”, 0, )
.如果结束

---------------------------------------------------------------------------------------------------------------------

POST /Login/login.jsp HTTP/1.1
Accept: application/x-shockwave-flash, */*
Referer: http://bbs.shangdu.com/
Content-Type: application/x-www-form-urlencoded
Accept-Encoding: gzip, deflate
User-Agent: Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)
Host: bbss.shangdu.com
Content-Length: 90
Connection: Keep-Alive
Cache-Control: no-cache
Cookie: Hm_lvt_e33428a22cdc4a26ef34d4cd0e17d287=1306504155886; PERCODE=7111; MESSAGE=0; __utma=26976639.1384373332.1306547488.1306547488.1306547488.1; __utmb=26976639.1.10.1306547488; __utmc=26976639; __utmz=26976639.1306547488.1.1.utmcsr=bbs.shangdu.com|utmccn=(referral)|utmcmd=referral|utmcct=/p/01.htm

txtNAME=wanghjdz&txtPassword=abc.123&randomcode=7111&ddlCity=01&action=loginName&x=17&y=13

抓包内容

---------------------------------------------------------------------------------------------------------------------------------------------

自动发帖

测试标题|测试内容

aaa|bbb

易语言|精易论坛                                    //帖子内容.txt

-----------------------------------------------------------

所有内容 ＝ 到文本 (读入文件 (删首尾空（编辑框4.内容)))

分割结果=分割文本（所有内容，#换行符）

计次循环首（取数组成员数（分割结果），i）

帖子分割=分割文本（分割结果[i]，“|”）

帖子标题=帖子分割[1]

帖子内容=帖子分割[2]

发帖（帖子标题，帖子内容）

计次循环尾

---------------------------------------------------

延迟（10*1000）比较耗cpu资源

最好使用高精度等待模块

高精度等待（10*1000*1000）

处理事件（）

---------------------------------------------------