求助啊，关于线程，很急啊

天天天

在一个线程里面暂停这个线程，为什么行不通？
--------------------------------------------------------------------

[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]