易语言类引用源码 可跨DLL

.版本 2
.支持库 spec
.支持库 EThread

.程序集 WinMain

.子程序 _WinMain_创建完毕


.子程序 Base
.参数 _this, 整数型
.局部变量 Copy, Copy
.局部变量 Base, Base
.局部变量 Msg, 文本型

Copy.Copy (Base, _this)
Base.Login (“username”, “www.hunankuai.com”, Msg)
调试输出 (Base.getToken ())

.子程序 demo
.局部变量 hendle, 整数型
.局部变量 i, 整数型
.局部变量 addr, 整数型
.局部变量 论坛, 易语言论坛, , "1"
.局部变量 快站, 湖南快站, , "1"
.局部变量 Copy, Copy

.计次循环首 (取数组成员数 (论坛), i)
    启动线程 (&Base, Copy.getFunc (论坛 [i]), hendle)
    等待线程 (hendle, 1000)
    ' 信息框 (“Token:” ＋ 论坛 [i].getToken (), 0, , WinMain)
.计次循环尾 ()
.计次循环首 (取数组成员数 (快站), i)
    启动线程 (&Base, Copy.getFunc (快站 [i]), hendle)
    等待线程 (hendle, 1000)
    ' 信息框 (“Token:” ＋ 论坛 [i].getToken (), 0, , WinMain)
.计次循环尾 ()

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

demo ()

@18574509150