PersonalCorpus 版 (精华区)

发信人: antidote (antidote), 信区: test
标  题: 标题灌水vbs
发信站: 猪猪乐园 (2003年01月06日08:39:13 星期一), 站内信件

Const WaterFile = "g:\1.txt"

Main

Sub Main()

Dim arrFileLines()
i = 0
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile(WaterFile, 1)
Do Until objFile.AtEndOfStream
     Redim Preserve arrFileLines(i)
     arrFileLines(i) = objFile.ReadLine
     i = i + 1
     Loop
objFile.Close

For l = Lbound(arrFileLines) to UBound(arrFileLines)
        PostStr(arrFileLines(l))
Set objFile = objFSO.OpenTextFile(WaterFile, 1)
'       WScript.Echo arrFileLines(l)
    STermScript.Delay (Rnd*TimeDelayMax+TimeDelayMin)
Next
End Sub

Sub PostStr (str)
    STermScript.SendData (Chr(16))
    STermScript.SendData (str + Chr(13)+Chr(13))
    STermScript.SendData (Chr(24)+Chr(13) )
End Sub









;