如何循环？

4225143

.程序集 窗口程序集1
.程序集变量 图 片数据, 字节集
.程序集变量 图 片号, 整数型
.程序集变量 y, 验证码

.子程序 __启动窗口_创建完毕
.局部变量 返回文本, 文本型
.局部变量 post数据, 文本型
.局部变量 post地址, 文本型

y.载入验证库 (#yzm, , “10010110”)
编辑框3.内容 ＝ y.识别 (, “项目1”, , “http://www.longhu28.com/getcode.asp”, , 图 片数据)
图 片号 ＝ 载入图 片 (图 片数据)
post地址 ＝ “http://www.longhu28.com/login.asp”
post数据 ＝ “tfrom=&LoginName=” ＋ 编辑框1.内容 ＋ “&LoginPwd=” ＋ 编辑框2.内容 ＋ “&yzm=” ＋ 编辑框3.内容 ＋ “&imageField.x=64&imageField.y=13”
返回文本 ＝ 到文本 (彗星HTTP读文件 (“http://www.longhu28.com/login.asp”, “POST”, , , post数据))
.如果真 (寻找文本 (返回文本, “信息错误”, , 假) ≠ -1)
    返回 ()

.如果真 (寻找文本 (返回文本, “输入错误”, , 假) ≠ -1)
    编辑框3.被选择字符数 ＝ -1
    返回 ()

标签1.标题 ＝ “登录成功”
***************************************************
如果真 (寻找文本 (返回文本, “信息错误”, , 假) ≠ -1)
    返回 ()

.如果真 (寻找文本 (返回文本, “输入错误”, , 假) ≠ -1)
    编辑框3.被选择字符数 ＝ -1
    返回 ()


这里，如果真的话，自动从程序开始执行，如果假的话，提示：
标签1.标题 ＝ “登录成功”

要怎么写？？？

fsjoe

倒,刚刚发的代码又要等待审核了..
何解?
只有上附件了...
帮你改了一下.每隔一秒尝试登录一次,直到成功 中途可以按停止按钮结束尝试

太阳公公

干什么用的？

阿柳

最好是直接上源码 不想复制文字 嘿嘿  {:3_223:}

伤残

看着乱乱的，上源码吧！

60y

嗯 偶可是没看懂是神马、、、、、、

fsjoe

帮你改了一下.每隔一秒尝试登录一次,直到成功
中途可以按停止按钮结束尝试

1. .版本 2
   
2. 
   
3. .程序集 窗口程序集1
   
4. .程序集变量 是否继续登录, 逻辑型
   
5. 
   
6. .子程序 __启动窗口_创建完毕
   
7. 
   
8. y.载入验证库 (#yzm, , “10010110”)
   
9. 编辑框3.内容 ＝ y.识别 (, “项目1”, , “http://www.longhu28.com/getcode.asp”, , 图 片数据)
   
10. 图 片号 ＝ 载入图 片 (图 片数据)
    
11. _按钮1_被单击 ()
    
12. 
    
13. 
    
14. .子程序 _按钮1_被单击
    
15. 
    
16. 是否继续登录 ＝ 真
    
17. .判断循环首 (网页登录 () ＝ 假)
    
18.     延时 (1000)
    
19.     .如果真 (是否继续登录 ＝ 假)
    
20.         返回 ()
    
21.     .如果真结束
    
22. 
    
23. .判断循环尾 ()
    
24. 
    
25. 
    
26. .子程序 网页登录, 逻辑型
    
27. .局部变量 返回文本, 文本型
    
28. .局部变量 post数据, 文本型
    
29. .局部变量 post地址, 文本型
    
30. 
    
31. post地址 ＝ “http://www.longhu28.com/login.asp”
    
32. post数据 ＝ “tfrom=&LoginName=” ＋ 编辑框1.内容 ＋ “&LoginPwd=” ＋ 编辑框2.内容 ＋ “&yzm=” ＋ 编辑框3.内容 ＋ “&imageField.x=64&imageField.y=13”
    
33. 返回文本 ＝ 到文本 (彗星HTTP读文件 (“http://www.longhu28.com/login.asp”, “POST”, , , post数据))
    
34. .如果真 (寻找文本 (返回文本, “信息错误”, , 假) ≠ -1)
    
35.     返回 (假)
    
36. .如果真结束
    
37. .如果真 (寻找文本 (返回文本, “输入错误”, , 假) ≠ -1)
    
38.     编辑框3.被选择字符数 ＝ -1
    
39.     返回 (假)
    
40. .如果真结束
    
41. 标签1.标题 ＝ “登录成功”
    
42. 返回 (真)
    
43. 
    
44. .子程序 _按钮2_被单击
    
45. 
    
46. 是否继续登录 ＝ 假
    

复制代码

exit11

终于自以为看懂了什么意思，就是如果验证码识别失败的话，就重新登陆；
只处理验证码错误，账号密码错误就没必要了--你不输入正确的账号密码，程序也处理不了

.版本 2

.如果真 (寻找文本 (返回文本, “输入错误”, , 假) ≠ -1)
    编辑框3.内容 ＝ “”
    __启动窗口_创建完毕 ()‘验证码错误的话，就重新开始执行这个子程序

小東

看看怎么样啊