[问题求助] （解决）怎样把随机读取一行的VBS代码，改成随机读3行的？

我来了

test.vbs

randomize
set fso = CreateObject("Scripting.Filesystemobject")
set a = CreateObject("Scripting.Dictionary")
set file = fso.OpenTextFile("H:\代码.txt")
do while file.AtendofStream<>true
        m = m + 1
        a.add m,file.readline
loop
file.close
h=int(rnd * m)
 
CreateObject("WScript.Shell").Run "G:\nircmd.exe clipboard set " & chr(34) & a(h) & chr(34)COPY

最后　还是先感谢下。
对了，是随机的，相邻３行的。

我来了

搞定了，可以锁了，版版。