| 窗口程序集名 | 保 留 | 保 留 | 备 注 |
| 窗口程序集2 | | | |
| 变量名 | 类 型 | 数组 | 备 注 |
| 线程句柄 | 整数型 | |
| 许可证 | 线程许可证 | |
许可证 ＝
线程_创建许可证 ()
计次循环首 (取数组成员数 (a
) ＋ 1, i
)
启动线程 (&子程序1, i, 线程句柄
)处理事件 ()延迟 (20
)调试输出 (i
)
计次循环尾 ()| 变量名 | 类 型 | 静态 | 数组 | 备 注 |
| m2 | 字节集 | | |
| m1 | 字节集 | | |
| i | 整数型 | | |
创建目录 (“d:\网银IP批量”)创建目录 (“d:\网银IP批量\测试”)进度条1.最大位置 ＝ 超级列表框1.
取表项数 ()线程_进入许可区 (许可证
)变量循环首 ( (参数 － 1
) × 1000 ＋
1, (参数 － 1
) × 1000 ＋ 10, 1, i
)计次循环首 (超级列表框1.
取表项数 (), i
)m1 ＝
HTTP读文件 (“http://21.123.21.100/Management/TransIpLogDownload.do?loginName=” ＋
编码_URL编码 (删首尾空 (超级列表框1.
取标题 (i － 1, 0
)), 真,
真) ＋
“&beginDate=” ＋ 编辑框1_开始日期1.内容 ＋
“&beginTime=0000&endDate=” ＋ 编辑框2_结束日期1.内容 ＋
“&endTime=2359&mark=0&custType=” ＋
删首尾空 (编辑框1_网银类型.内容
) ＋
“&chnl=1&mobile=&downLoadList=1%E7%AC%94%7E1000%E7%AC%94&_T=Enter”)m2 ＝ m2 ＋ m1 ＋
到字节集 ( #换行符 )处理事件 ()延迟 (20
)
如果真 (i ÷ 1000 ＝ i ＼ 1000
)写到文件 (“d:\网银IP批量” ＋
“\测试7” ＋
到文本 (i － 1000 ＋ 1
) ＋
“-” ＋
到文本 (i
) ＋
“ip.CSV”, m2
)m2 ＝
到字节集 (“”)
如果真 (超级列表框1.
取表项数 () － i ＜ 1000
)写到文件 (“d:\网银IP批量” ＋
“\测试7” ＋
“余ip.CSV”, m2 ＋
到字节集 ( #换行符 ))
进度条1.位置 ＝ 进度条1.位置 ＋ 1如果真 (参数 ＝ 1
)标签10.标题 ＝
到文本 (i
)如果真 (参数 ＝ 2
)标签11.标题 ＝
到文本 (i
)
计次循环尾 ()变量循环尾 ()线程_退出许可区 (许可证
)关闭线程句柄 (线程句柄
)