网狐6603一建修改机器人名字，批量修改

网狐的机器人是肯定大家都不陌生，从刚开始的人工注册到一键批量注册，注册的昵称都叫机器人1，机器人2，（也太假了点）。
然后就有了各种批量修改机器人昵称的软件，脚本；今天跟大家分享个非常好用的 批量修改机器人昵称的脚本：
脚本功能通过随机读取一段文字，随机组合出新的昵称。非常方便好用。再用不用到处找昵称了。

脚本如下：

@s nvar512)   
@r nvar31)   
@pos int
@len int
set @s = '唐宾看到她一时候再好好办一次庆功自然就会顺听说预祝我们的努力开心终有回报开店旁边的宫装服务员倒是态度很不错的老板祖上是伺候过乾隆皇帝的御厨银行监控人脸识别系统可行性方案利提升你的价值和施展舞台脸严叶雁实在忍不住笑了出来肃过段时间就会公诸于世的神情当下也不敢但是仅仅通过那个标题也联想到应该与自己公司的监开心控项目有关系怠慢伸手拿起文件就要翻开阅读不开心岛过这时叶雁又说了一句在你阅读这份文件的时候公司保密原则即行生效所以关于这份文件的内容绝对不能泄露出去半分岛'   
set @len = len(@s);
--
@nickname nvar31)
@userid int
RowCursor cursor
                For UserID,NickName  from dbo.AccountsInfo where NickName like '机器人%'

        open RowCursor
        fetch next From RowCursor Into @userid,@nickname
   
本帖隐藏的内容

while(@@Fetch_Status = 0)
        begin
                
                
                set @r = ''   
                @RandomStr nvar31)
                @outlen int
                set @outlen = rand() 10  
                if @outlen <= 1 
                begin 
                        set @outlen = 3
                end
                while len(@r) < @outlen
                 begin   
                  set @pos = cast(rand()100 as int);
                  while @pos > @len or @pos <1
                  begin
                   if(@pos < 1)
                        set @pos = cast(rand()100 as int);
                   else
                        set @pos = cast(@pos /2 as int);
                  end
                  set @r = @r + substring(@s, @pos, 1)
                 end   
                 set @RandomStr = @r
                 @RandomStr
                dbo.AccountsInfo set NickName=@RandomStr where UserID=@userid
                
                fetch next From RowCursor Into @userid,@nickname
        end
   -- 这里要记得释放游标，www.webqp.net
    close RowCursor
    deallocate RowCursor