大神帮看看我的列表框怎么不循环显示

milest · 发表于 2013-10-24 20:43:19

[e]
.版本 2
.支持库 iext
.支持库 EThread
.支持库 HtmlView

.程序集窗口程序集1

.子程序 _按钮1_被单击
.局部变量账号密码数组, 文本型, , "0"
.局部变量行数, 整数型
.局部变量账号密码数组2, 文本型, , "0"
.局部变量 I, 整数型

.如果真 (通用对话框1.打开 ())
编辑框1.内容＝取字节集数据 (读入文件 (通用对话框1.文件名), #文本型, ) ' 添加文本
账号密码数组＝分割文本 (编辑框1.内容, #换行符, ) ' 按行数分割
行数＝取数组成员数 (账号密码数组)
.计次循环首 (行数, I)
超级列表框1.插入表项 (, , , , , )
账号密码数组2 ＝分割文本 (账号密码数组 [I], “----”, )
.如果真 (取数组成员数 (账号密码数组2) ＝ 1)
超级列表框1.置标题 (I － 1, 0, 到文本 (I))
超级列表框1.置标题 (I － 1, 1, 账号密码数组2 [1])
' 超级列表框1.置标题 (I － 1, 2, 账号密码数组2 [2])
.如果真结束

.计次循环尾 ()

.如果真结束

.子程序 _按钮2_被单击

启动线程 (&处理事件子程序, , )

.子程序处理事件子程序
.局部变量行数, 整数型
.局部变量 I, 整数型
.局部变量普通填表, 普通填表

行数＝超级列表框1.取表项数 ()
.计次循环首 (行数, I)
超文本浏览框1.地址＝ “http://aq.qq.com/cn2/login_limit/login_limit_index”
普通填表.初始化 (超文本浏览框1.取窗口句柄 ())
普通填表.文本框_写内容 (“user_account”, 超级列表框1.取标题 (I － 1, 1))
普通填表.链接_点击 (“next_step”)
编辑框3.内容＝编辑框3.内容＋超级列表框1.取标题 (I － 1, 1) ＋ “----” ＋ #换行符
写到文件 (取运行目录 () ＋ “\执行过的号码.txt”, 到字节集 (编辑框3.内容))
处理事件 ()
标签2.标题＝超级列表框1.取标题 (I － 1, 0)
延时 (到数值 (编辑框2.内容) × 1000)

.计次循环尾 ()
[/e]

如图