| .版本 2
 .支持库 iext
 .支持库 EThread
 
 .子程序 送花线程
 .局部变量 i, 整数型
 .局部变量 临时信息, 用户信息
 .局部变量 xc, 整数型
 
 置随机数种子 ()
 .判断循环首 (真)
 .计次循环首 (取数组成员数 (全局_用户组), i)
 ' 临时信息 = 全局_用户组 .返回信息 ()
 .如果真 (超级列表框1.取标题 (i - 1, 3) = “登陆成功”)  ' 且 取时间间隔 (取现行时间 (), 全局_用户组 .取刷花时间 (), #秒) > 200)
 
 全局_用户组 .刷花 (UID, 被刷花昵称)
 延时 (到整数 (编辑框喊话SD.内容))
 
 .如果真结束
 .如果真 (按钮_开始送花.标题 = “开始送花”)
 跳出循环 ()
 .如果真结束
 
 .计次循环尾 ()
 .如果真 (按钮_开始送花.标题 = “开始送花”)
 跳出循环 ()
 .如果真结束
 
 .判断循环尾 ()
 xc = 线程_取自线程句柄 ()
 
 .判断开始 (xc > 0)
 关闭线程句柄 (xc)
 |