各位大大帮我看一下POST登陆拿出问题了

5712802

.版本 2

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

帐号 ＝ 编辑框1.内容
密码 ＝ 编辑框2.内容
POST地址 ＝ “http://bbs.tiansin.com/logging.p ... in=yes&inajax=1”
POST数据 ＝ “&username=” ＋ 帐号 ＋ “&password=” ＋ 密码
返回 ＝ 到文本 (网页_访问 (POST地址, “POST”, , , POST数据))
.判断开始 (寻找文本 (返回, “欢迎你回来”, , 假) ≠ -1)
    载入 (窗口1, , 真)

各位帮我看一下吧

fsjoe

楼主，因为我没账号，只能按我想法改了一下。看看行不行。

fsjoe

因为我没有账号，只是随便试了一下
你看看这个行不？

1. .版本 2
   
2. 
   
3. .子程序 _按钮1_被单击
   
4. .局部变量 帐号, 文本型
   
5. .局部变量 密码, 文本型
   
6. .局部变量 POST地址, 文本型
   
7. .局部变量 POST数据, 文本型
   
8. .局部变量 返回, 文本型
   
9. 
   
10. 帐号 ＝ 编辑框1.内容
    
11. 密码 ＝ 编辑框2.内容
    
12. POST地址 ＝ “http://bbs.tiansin.com/logging.php?action=login&loginsubmit=yes&floatlogin=yes&inajax=1”
    
13. “&username=” ＋ 帐号 ＋ “&password=” ＋ 密码
    
14. POST数据 ＝ “formhash=c55a52eb&referer=index.php&loginfield=username&username=” ＋ 帐号 ＋ “&password=” ＋ 密码 ＋ “&questionid=0&answer=&loginsubmit=%B5%C7%C2%BC&cookietime=2592000”
    
15. 返回 ＝ 到文本 (网页_访问 (POST地址, “POST”, , , POST数据))
    
16. 判断 (寻找文本 (返回, “欢迎你回来”, , 假) ≠ -1)
    
17. 载入 (窗口1, , 真)
    

复制代码