根据老师的多线程自己改编的

小可爱宝贝

如果有不对的地方  老师指点出来
一起给大家分享一下

.版本 2

.程序集 窗口程序集1
.程序集变量 线程句柄, 整数型

.子程序 __启动窗口_创建完毕

' 魔鬼作坊首页 http://www.moguizuofang.com/
' 魔鬼作坊论坛 http://www.moguizuofang.com/bbs/
' 智辅制作，驱动过保护，二叉树，自动化脚本功能， 易语言按键，易语言封包技术。
' 唯一一家最专业，人气最旺，学员最多的游戏智辅教学站。


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


.判断开始 (按钮1.标题 ＝ “启动”)
    线程句柄 ＝ 线程_创建线程 (&主程序, 1)  ' 创建一条线程，并传递一个参数，数值为1.
    输出调试文本 (“启动一个句柄”)  ' 输出线程句柄。
    按钮1.标题 ＝ “等待启动”
    超级延时 (1000)

    按钮1.标题 ＝ “停止”
.默认
    线程_强制结束线程 (线程句柄)
    按钮1.标题 ＝ “等待停止”
    超级延时 (1000)

    按钮1.标题 ＝ “启动”
    按钮2.标题 ＝ “暂停脚本”
    输出调试文本 (“停止一个句柄”)

.判断结束


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

.判断开始 (按钮2.标题 ＝ “暂停脚本”)
    线程_挂起线程 (线程句柄)  ' 通过线程句柄挂起线程。
    输出调试文本 (“暂停脚本”)  ' 输出线程句柄。
    按钮2.标题 ＝ “等待暂停”
    超级延时 (1000)

    按钮2.标题 ＝ “恢复脚本”
.默认
    线程_恢复线程 (线程句柄)  ' 通过线程句柄恢复线程。
    按钮2.标题 ＝ “等待恢复”
    超级延时 (1000)

    按钮2.标题 ＝ “暂停脚本”
    输出调试文本 (“停止一个句柄”)
.判断结束


.子程序 主程序
.参数 x, 整数型, , 这个参数就是创建线程传递进来的，是参数，请注意，不是变量。
.局部变量 n, 整数型

.判断循环首 (x ＝ 1)  ' x=1 就一直循环，直到x不等于1时，线程就会退出。
    n ＝ n ＋ 1
    编辑框1.加入文本 (到文本 (n) ＋ #换行符)
    超级延时 (1000)
.判断循环尾 ()