精易论坛

标题: 求助啊，关于线程，很急啊 [打印本页]

作者: 天天天 时间: 2013-5-22 21:32
标题: 求助啊，关于线程，很急啊
在一个线程里面暂停这个线程，为什么行不通？
--------------------------------------------------------------------

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

.如果真 (控制变量＞ 1)
对象文本＝到文本 (控制变量 ÷ 到整数 (编辑框8.内容))
.如果 (寻找文本 (对象文本, “.”, , 假) ≠ -1 且选择框2.选中＝真)
按钮1.标题＝ “继续加友”
启动线程 (&暂停加好友, , )

启动线程 (&拨号, , )

.否则

.如果结束

.如果 (寻找文本 (对象文本, “.”, , 假) ≠ -1)

.否则
按钮1.标题＝ “继续加友”
状态条1.置文本 (0, “请切换ip后继续添加”)
启动线程 (&暂停加好友, , )

.如果结束

[/e]
---------------------------------------------------------[e]
.版本 2
.支持库 EThread
.支持库 iext
.支持库 spec

.子程序 _按钮1_被单击
.局部变量 p, 整数型
.如果 (按钮1.标题＝ “继续加友”)
按钮1.标题＝ “开始加友”
API_ResumeThread (线程iD)

.否则
线程许可＝创建进入许可证 ()
QQ数＝ 0
对象计数＝ 0
.计次循环首 (超级列表框2.取表项数 (), p)
启动线程 (&加好友, , 线程iD)
延迟 (1000)
.计次循环尾 ()
信息框 (“加好友完毕”, #信息图标, )

.如果结束

[/e]

欢迎光临精易论坛 (https://125.confly.eu.org/)