关于post循环提交数据后自动切换账号的问题，

moranyi0

' 超级列表框1的是数据，列表框2的是用户名跟密码，如何用列表框2的第一个用户名。提交前2个列表1的数据，然后切换至第二个账号。
' 超级列表框1的表项数也不是固定的，

求大佬指导， 1.rar (1.53 KB, 下载次数: 8)

2017-3-5 11:48 上传

点击文件名下载附件




补充内容 (2017-3-7 19:34):
5-6楼已自行提供解决方法了。

顺间镁

仅供参考.........

qunsen

试试这个看可以不


.版本 2
.支持库 iext
.子程序 程序
.局部变量 i, 整数型
.局部变量 y, 整数型
.局部变量 提交数据, 文本型
.局部变量 用户名, 文本型
.局部变量 用户密码, 文本型
.局部变量 billsn, 文本型
.局部变量 taskid, 文本型

.计次循环首 (超级列表框2.取表项数 (), i)
    用户名 ＝ 超级列表框2.取标题 (i － 1, 1)
    用户密码 ＝ 超级列表框2.取标题 (i － 1, 2)
    .计次循环首 (超级列表框1.取表项数 (), y)
        billsn ＝ 超级列表框1.取标题 (i － 1, 1)
        taskid ＝ 超级列表框1.取标题 (i － 1, 2)
    .计次循环尾 ()
    提交数据 ＝ “billsn=” ＋ billsn ＋ “&taskid=” ＋ taskid
    ' 网页_访问 (提交地址 ＋ 用户密码 ＋ “&c=0 ”+用户名, 1, 提交数据, , , )
.计次循环尾 ()

.' 计次循环首 (超级列表框1.取表项数 (), i)
    ' 提交数据 ＝ “billsn=” ＋ 超级列表框1.取标题 (i － 1, 1) ＋ “&taskid=” ＋ 超级列表框1.取标题 (i － 1, 2)
    ' ' 网页_访问 (提交地址 ＋ 超级列表框2.取标题 (0, 2) ＋ “&c=0 ”+超级列表框2.取标题（0,1), 1, 提交数据, , , )
.' 计次循环尾 ()
' 超级列表框1的是数据，列表框2的是用户名跟密码，如何用列表框2的第一个用户名。提交前2个列表1的数据，然后切换至第二个账号。
' 超级列表框1的表项数也不是固定的，

qunsen

1. .版本 2
   
2. .支持库 iext
   
3. 
   
4. .子程序 程序
   
5. .局部变量 i, 整数型
   
6. .局部变量 y, 整数型
   
7. .局部变量 提交数据, 文本型
   
8. .局部变量 用户名, 文本型
   
9. .局部变量 用户密码, 文本型
   
10. .局部变量 billsn, 文本型
    
11. .局部变量 taskid, 文本型
    
12. 
    
13. 
    
14. .计次循环首 (超级列表框2.取表项数 (), i)
    
15.     用户名 ＝ 超级列表框2.取标题 (i － 1, 1)
    
16.     用户密码 ＝ 超级列表框2.取标题 (i － 1, 2)
    
17. 
    
18.     .计次循环首 (超级列表框1.取表项数 (), y)
    
19.         billsn ＝ 超级列表框1.取标题 (i － 1, 1)
    
20.         taskid ＝ 超级列表框1.取标题 (i － 1, 2)
    
21. 
    
22.     .计次循环尾 ()
    
23.     提交数据 ＝ “billsn=” ＋ billsn ＋ “&taskid=” ＋ taskid
    
24.     ' 网页_访问 (提交地址 ＋ 用户密码 ＋ “&c=0 ”+用户名, 1, 提交数据, , , )
    
25. .计次循环尾 ()
    
26. 
    
27. 
    
28. 
    
29. .' 计次循环首 (超级列表框1.取表项数 (), i)
    
30. 
    
31.     ' 提交数据 ＝ “billsn=” ＋ 超级列表框1.取标题 (i － 1, 1) ＋ “&taskid=” ＋ 超级列表框1.取标题 (i － 1, 2)
    
32.     ' ' 网页_访问 (提交地址 ＋ 超级列表框2.取标题 (0, 2) ＋ “&c=0 ”+超级列表框2.取标题（0,1), 1, 提交数据, , , )
    
33. 
    
34. .' 计次循环尾 ()
    
35. 
    
36. ' 超级列表框1的是数据，列表框2的是用户名跟密码，如何用列表框2的第一个用户名。提交前2个列表1的数据，然后切换至第二个账号。
    
37. ' 超级列表框1的表项数也不是固定的，
    

复制代码

moranyi0

qunsen 发表于 2017-3-5 16:13

抱歉，没看太懂，我的想法是，第一个列表框的前2个数据，用列表框2的第一个账号提交，第三个数据用第二个账号密码提交。。

moranyi0

nilansh03 发表于 2017-3-5 12:18
仅供参考.........

有点思路了，我再想想。。。

moranyi0

自己已经解决了。 例子.rar (1.67 KB, 下载次数: 7)

2017-3-7 19:28 上传

点击文件名下载附件

moranyi0

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
_按钮1_被单击

子程序名	返回值类型	公开	备 注
启动

变量名	类 型	静态	数组	备 注
k	整数型
计次	整数型
死循环	逻辑型
userid1	文本型
cook1	文本型

死循环 ＝ 真
判断循环首 (死循环)
如果 (k ＞ 2)
userid1 ＝ 超级列表框2.取标题 (1, 2)
cook1 ＝ 超级列表框2.取标题 (1, 1)
userid1 ＝ 超级列表框2.取标题 (0, 2)
cook1 ＝ 超级列表框2.取标题 (0, 1)

如果真 (超级列表框1.取表项数 () ＞ 0)
k ＝ k ＋ 程序 (userid1, cook1)

延时 (1000 × 5)
判断循环尾 ()

子程序名	返回值类型	公开	备 注
程序	整数型
参数名	类 型	参考	可空	数组	备 注
userid1	文本型
cook1	文本型

变量名	类 型	静态	数组	备 注
i	整数型
提交数据	文本型

计次循环首 (超级列表框1.取表项数 (), i)
提交数据 ＝ “billsn=” ＋ userid1 ＋ “&taskid=” ＋ cook1
' 网页_访问 (提交地址 ＋ 超级列表框2.取标题 (0, 2) ＋ “&c=0 ”+超级列表框2.取标题（0,1), 1, 提交数据, , , )
计次循环尾 ()
返回 (i)

i支持库列表	支持库注释
iext	扩展界面支持库一

.版本 2<br /> .支持库 iext<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> <br /> <br /> .子程序 启动<br /> .局部变量 k, 整数型, 静态<br /> .局部变量 计次, 整数型, 静态<br /> .局部变量 死循环, 逻辑型<br /> .局部变量 userid1, 文本型<br /> .局部变量 cook1, 文本型<br /> <br /> <br /> 死循环 ＝ 真<br /> .判断循环首 (死循环)<br />     .如果 (k ＞ 2)<br />         userid1 ＝ 超级列表框2.取标题 (1, 2)<br />         cook1 ＝ 超级列表框2.取标题 (1, 1)<br />     .否则<br />         userid1 ＝ 超级列表框2.取标题 (0, 2)<br />         cook1 ＝ 超级列表框2.取标题 (0, 1)<br />     .如果结束<br /> <br />     .如果真 (超级列表框1.取表项数 () ＞ 0)<br /> <br />         k ＝ k ＋ 程序 (userid1, cook1)<br />     .如果真结束<br /> <br />     延时 (1000 × 5)<br /> .判断循环尾 ()<br /> <br /> <br /> .子程序 程序, 整数型<br /> .参数 userid1, 文本型<br /> .参数 cook1, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 提交数据, 文本型<br /> <br /> <br /> <br /> <br /> .计次循环首 (超级列表框1.取表项数 (), i)<br /> <br />     提交数据 ＝ “billsn=” ＋ userid1 ＋ “&taskid=” ＋ cook1<br />     ' 网页_访问 (提交地址 ＋ 超级列表框2.取标题 (0, 2) ＋ “&c=0 ”+超级列表框2.取标题（0,1), 1, 提交数据, , , )<br /> <br /> .计次循环尾 ()<br /> 返回 (i)