|
本帖最后由 yunpan25 于 2012-3-22 12:16 编辑
我是新手刚学易语言不久,看了紫川秀的视频后想模仿做一个登陆器,然后拿http://suzhou.55tuan.com/也想做个登陆器试试,不过poST后怎么也不行~不知道出错在哪~中间也换过几个BBS试了下·也不行!!不知道是不是自己哪里弄错了~~忘高手指教下~~另有没有QQ群收一下~大家讨论下啊·~qq:1822006075
下面是post资料和代码
POST /userLoginSubmit.do HTTP/1.1
Accept: image/gif, image/x-xbitmap, image/jpeg, image/pjpeg, application/msword, application/vnd.ms-excel, application/vnd.ms-powerpoint, */*
Referer: http://www.55tuan.com/user/userLogin.jsp
Accept-Language: zh-cn
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; .NET CLR 2.0.50727; 360SE)
Host: www.55tuan.com
Content-Length: 182
Connection: Keep-Alive
Cache-Control: no-cache
Cookie: __utmc=22985188; TUANJSESSIONID=337fa20c-696f-4d9f-9337-0587ebebef05; CITY_COOKIE_NAME=34; CITYNAME_COOKIE=%E8%8B%8F%E5%B7%9E; 55tuan_uuid=d7352821-82c6-487d-b20b-aef6c4d5a2fe; __utma=22985188.658224611.1332332458.1332343093.1332388626.4; __utmz=22985188.1332332458.1.1.utmcsr=(direct)|utmccn=(direct)|utmcmd=(none); EMAIL_VAL=73f8dc4d8e79d38bf0f861dd4b5c7d4a; __utmv=22985188.xiao_yao_shui%40yahoo.com.cn; __utmb=22985188.2.10.1332388626; JSESSIONID=aaar3E-v-G2wK7-3pJ4yt
method=loginSubmit&referer=http%3A%2F%2Fsuzhou.55tuan.com%2F&isCode=false&email=yunpan25&password=13069335&safecode_id=f7e6&act=act_login&back_act=http%3A%2F%2Fwww.55tuan.com%2Findex
下面是易语言的
.版本 2
.程序集 窗口程序集1
.子程序 _按钮1_被单击
.局部变量 post地址, 文本型
.局部变量 post数据, 文本型
.局部变量 返回文本, 文本型
post地址 = “http://www.55tuan.com/userLoginSubmit.do”
post数据 = “method=loginSubmit&referer=http%3A%2F%2Fsuzhou.55tuan.com%2F&isCode=false&email=” + 删首尾空 (编辑框1.内容) + “&password=” + 删首尾空 (编辑框2.内容) + “&safecode_id=” + 删首尾空 (编辑框3.内容) + “&act=act_login&back_act=http%3A%2F%2Fwww.55tuan.com%2Findex”
返回文本 = 到文本 (彗星HTTP读文件 (post地址, “post”, , , post数据))
.如果 (倒找文本 (返回文本, “登录失败”, , 假) ≠ -1)
信息框 (“登陆失败”, 0, )
.否则
信息框 (“登陆成功”, 0, )
.如果结束
输出调试文本 (返回文本)
.子程序 __启动窗口_创建完毕
图片框1.图片 = 彗星HTTP读文件 (“?wwwss=” + 到文本 (取现行时间 ()))
.子程序 _图片框1_鼠标左键被放开, 逻辑型
.参数 横向位置, 整数型
.参数 纵向位置, 整数型
.参数 功能键状态, 整数型
图片框1.图片 = 彗星HTTP读文件 (“?wwwss=” + 到文本 (取现行时间 ())) |
|