.如果真 (被单击列索引 = 2)
.' 如果真 (超级列表框1.取表项数 () = 0)
' 返回 ()
.如果真结束
.计次循环首 (超级列表框1.取表项数 (), i)
文本 = 文本 + 超级列表框1.取标题 (i - 1, 2) + #换行符
.计次循环尾 ()
.如果 (置剪辑板文本 (文本))
信息框 (“OK”, 64, )
.否则
信息框 (“复制失败”, 16, )
.循环判断首 ()
result = 寻找字节集 (data, 到字节集 (key), result)
.如果真 (result = -1)
跳出循环 ()
.如果真结束
.如果 ((result - 1) % 8 = 0)
返回 (result)
.否则
result = result + 1
.如果结束
.循环判断尾 (真)
返回 (-1)
上一篇 贝塞尔曲线绘制方法附例程
下一篇 超强网络验证系统附远程服务支持库