按键精灵_随机输出文本内容

Function 输出文字(path)
//    Dim C,path,str,miao,Rndnum
    Randomize //随机种子
    Dim Rndntime= Int((6-2+1)*Rnd()+1) //最大6秒 最小2秒
//    path = "/sdcard/Pictures/"
    Dim linesnum = file.linesnumber(path)//文本总行
    TracePrint linesnum
    Dim Rndnum= Int((linesnum - 1 + 1) * Rnd() + 1)//在总行数里计算随机行
    TracePrint Rndnum
    Dim str=File.ReadLine(path,Rndnum)//输出随机行数的内容
    TracePrint str
    Delay  Rndntime*100
    InputText str
    Delay 50
End Function

Dim 路径 = "/sdcard/Pictures/comment.txt"
TracePrint zb.输出文字(路径)

主要用在随机评论