|
|
发表于 2012-10-28 19:00:00
|
显示全部楼层
LZ会写程序的话就很简单了。。。按字符打乱就可以了
子程序 子程序2
.局部变量 文本1, 文本型
.局部变量 n1, 整数型
.局部变量 代码1, 整数型
.局部变量 临时1, 文本型
.局部变量 分割后文本1, 文本型, , "0"
.局部变量 i1, 整数型
n1 ＝ 1
文本1 ＝ 列表框1.取项目文本 (0) ＋ 列表框1.取项目文本 (1)
.判断循环首 (n1 ≤ 取文本长度 (文本1))
临时1 ＝ 取文本中间 (文本1, n1, 1)
.如果真 (取代码 (临时1, ) ＜ 0)
临时1 ＝ 取文本中间 (文本1, n1, 2)
n1 ＝ n1 ＋ 1
.如果真结束
加入成员 (分割后文本1, 临时1)
n1 ＝ n1 ＋ 1
.判断循环尾 ()
编辑框5.内容 ＝ “”
.计次循环首 (取数组下标 (分割后文本1, ), i1)
超级延时 (1000)
编辑框5.内容 ＝ 编辑框5.内容 ＋ 分割后文本1 [i1]
.计次循环尾 ()
.子程序 子程序1
.局部变量 文本, 文本型
.局部变量 n, 整数型
.局部变量 代码, 整数型
.局部变量 临时, 文本型
.局部变量 分割后文本, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 b, 整数型
随机数 ＝ 取随机数 (4, 5)
随机加入的文字 ＝ 多项选择 (随机数, “你”, “比”, “游”, “戏”, “啊”)
n ＝ 1
文本 ＝ 列表框1.取项目文本 (0) ＋ 随机加入的文字
.判断循环首 (n ≤ 取文本长度 (文本))
临时 ＝ 取文本中间 (文本, n, 1)
.如果真 (取代码 (临时, ) ＜ 0)
临时 ＝ 取文本中间 (文本, n, 2)
n ＝ n ＋ 1
.如果真结束
加入成员 (分割后文本, 临时)
n ＝ n ＋ 1
.判断循环尾 ()
编辑框5.内容 ＝ “”
.计次循环首 (取数组下标 (分割后文本, ), i)
超级延时 (1000)
编辑框5.内容 ＝ 编辑框5.内容 ＋ 分割后文本
.计次循环尾 ()
超级延迟 (3000)
子程序2 ()
|
|
有没有人知道呀。大神说要把不同系列马甲打乱。这样刷签到刷赞成功率更高。可是我不会。有人知道吗
