论坛 › 已解决问题区 › autoit可以做随机取一段字么？

xpban2006 发表于 2009-6-28 09:29:57

autoit可以做随机取一段字么？

本帖最后由 xpban2006 于 2009-6-28 19:10 编辑

我想做个论坛注册工具，可以随机取一段字么？比如汉字全都放在一个文件里，随机取其中一段做为名字可以么？谢谢

jhun 发表于 2009-6-28 14:00:28

$AA="我想做个论坛注册工具，可以随机取一段字么？比如汉字全都放在一个文件里，随机取其中一段做为名字可以么？谢谢"
MsgBox(0,"","取出的帐号为：“"&StringMid($AA,Random(1,StringLen($AA)-8),Random (6,8))&"”")

mnm001 发表于 2009-6-28 17:14:11

Func randNameArray()
       

        $firstname = randName() & Chr(Random(Asc("a"), Asc("z"), 1))
        $lastname = randName() & Chr(Random(Asc("a"), Asc("z"), 1))
        $emailname = $firstname & $lastname
        ;MsgBox(64,"提示",$emailname,100)
        WhileStringLen($emailname) > Random(10,14,1)
                $pos = Random(1,StringLen($emailname)-1)
                $emailname = StringMid ($emailname,1,$pos-2) & StringMid ($emailname,$pos)
        WEnd
        ;MsgBox(64,"提示",$emailname,100)
        $password = "520" & randName() & Chr(Random(Asc("a"), Asc("z"), 1)) & Chr(Random(Asc("a"), Asc("z"), 1))
       
        $birthyear = "19"&Random(60,85, 1)
        Dim $result = [$firstname,$lastname,$emailname,$password,$birthyear]
       
        Return $result
       
EndFunc         ;==>randName
func randName()
        Dim $namearray1 =
endfunc
这是我自己写的一个完整的例子。想楼主要的就是这个吧。

   有前面定义几个变量 ， 后面就用定义几个数组， 我随便写了一个。

xpban2006 发表于 2009-6-28 17:45:02

谢谢啦~人真好！！研究下！！

kn007 发表于 2009-6-28 18:50:34

如果解决了，记得把1楼的贴子，编辑为已解决

121044246 发表于 2009-7-17 10:51:28

都是高手。。学了不少东西

查看完整版本: autoit可以做随机取一段字么？