麻烦看看这个多线程哪里写错了

ldj777

内网的地址


.版本 2
.支持库 EThread
.支持库 spec
.支持库 iext
.支持库 internet
.程序集 窗口程序集2
.程序集变量 线程句柄, 整数型
.程序集变量 许可证, 线程许可证
.子程序 _按钮1_多线程_被单击
.局部变量 i, 整数型

许可证 ＝ 线程_创建许可证 ()
.计次循环首 (取数组成员数 (a) ＋ 1, i)
    启动线程 (&子程序1, i, 线程句柄)
    处理事件 ()
    延迟 (20)
    调试输出 (i)
.计次循环尾 ()

.子程序 子程序1
.参数 参数, 整数型
.局部变量 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)
        .如果真结束

    .计次循环尾 ()
.变量循环尾 ()
线程_退出许可区 (许可证)
关闭线程句柄 (线程句柄)

放纵的小东

计次循环首是多线程?

新纪元

这样清楚点儿：

  

窗口程序集名	保 留	保 留	备 注
窗口程序集2
变量名	类 型	数组	备 注
线程句柄	整数型
许可证	线程许可证

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

变量名	类 型	静态	数组	备 注
i	整数型

许可证 ＝ 线程_创建许可证 ()
计次循环首 (取数组成员数 (a) ＋ 1, i)
启动线程 (&子程序1, i, 线程句柄)
处理事件 ()
延迟 (20)
调试输出 (i)
计次循环尾 ()

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

变量名	类 型	静态	数组	备 注
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)

计次循环尾 ()
变量循环尾 ()
线程_退出许可区 (许可证)
关闭线程句柄 (线程句柄)

i支持库列表	支持库注释
EThread	多线程支持库
spec	特殊功能支持库
iext	扩展界面支持库一
internet	互联网支持库

.版本 2<br /> .支持库 EThread<br /> .支持库 spec<br /> .支持库 iext<br /> .支持库 internet<br /> .程序集 窗口程序集2<br /> .程序集变量 线程句柄, 整数型<br /> .程序集变量 许可证, 线程许可证<br /> .子程序 _按钮1_多线程_被单击<br /> .局部变量 i, 整数型<br /> <br /> 许可证 ＝ 线程_创建许可证 ()<br /> .计次循环首 (取数组成员数 (a) ＋ 1, i)<br />     启动线程 (&子程序1, i, 线程句柄)<br />     处理事件 ()<br />     延迟 (20)<br />     调试输出 (i)<br /> .计次循环尾 ()<br /> <br /> .子程序 子程序1<br /> .参数 参数, 整数型<br /> .局部变量 m2, 字节集<br /> .局部变量 m1, 字节集<br /> .局部变量 i, 整数型<br /> <br /> 创建目录 (“d:\网银IP批量”)<br /> 创建目录 (“d:\网银IP批量\测试”)<br /> 进度条1.最大位置 ＝ 超级列表框1.取表项数 ()<br /> 线程_进入许可区 (许可证)<br /> .变量循环首 ((参数 － 1) × 1000 ＋ 1, (参数 － 1) × 1000 ＋ 10, 1, i)<br />     .计次循环首 (超级列表框1.取表项数 (), i)<br />         m1 ＝ HTTP读文件 (“<a href="http://21.123.21.100/Management/TransIpLogDownload.do?loginName=" rel="nofollow" rel="nofollow" target="_blank">http://21.123.21.100/Management/TransIpLogDownload.do?loginName=</a>” ＋ 编码_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”)<br />         m2 ＝ m2 ＋ m1 ＋ 到字节集 (#换行符)<br />         处理事件 ()<br />         延迟 (20)<br />         .如果真 (i ÷ 1000 ＝ i ＼ 1000)<br />             写到文件 (“d:\网银IP批量” ＋ “\测试7” ＋ 到文本 (i － 1000 ＋ 1) ＋ “-” ＋ 到文本 (i) ＋ “ip.CSV”, m2)<br />             m2 ＝ 到字节集 (“”)<br />         .如果真结束<br />         .如果真 (超级列表框1.取表项数 () － i ＜ 1000)<br />             写到文件 (“d:\网银IP批量” ＋ “\测试7” ＋ “余ip.CSV”, m2 ＋ 到字节集 (#换行符))<br />         .如果真结束<br />         进度条1.位置 ＝ 进度条1.位置 ＋ 1<br />         .如果真 (参数 ＝ 1)<br />             标签10.标题 ＝ 到文本 (i)<br />         .如果真结束<br />         .如果真 (参数 ＝ 2)<br />             标签11.标题 ＝ 到文本 (i)<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .变量循环尾 ()<br /> 线程_退出许可区 (许可证)<br /> 关闭线程句柄 (线程句柄)

batcd

这样的话只貌似是单线的啊 一下启动了一堆

ldj777

batcd 发表于 2014-11-28 10:58
这样的话只貌似是单线的啊 一下启动了一堆

恩，就是单线的效果，想问一下如何改成多线

剩下我de孩子气

自己去看看鱼刺的多线程列子吧