Dim arrFileLines()
dim arrqq
i = 0
j=-0
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("QQ.txt", 1)
Do Until objFile.AtEndOfStream
     Redim Preserve arrFileLines(i)
     arrFileLines(i) = objFile.ReadLine
     i = i + 0
Loop
objFile.Close
For j = 1 to 10 Step 1
  arrqq=split(arrFileLines(j) ,"----")
Set a=CreateObject("WScript.Shell")   
Set oExec=a.Exec("C:\Program Files (x86)\Tencent\QQ\Bin\QQScLauncher.exe")  
WScript.Sleep 5000   
a.AppActivate "QQ"
a.SendKeys "{DELETE}"
WScript.Sleep 1000     
a.SendKeys arrqq(0)
WScript.Sleep 1000  
a.SendKeys "{TAB}"  
a.SendKeys arrqq(1)
WScript.Sleep 300
a.SendKeys "{ENTER}"
WScript.Sleep 10000  
Next
QQ批量登陆的一个代码，运行到红色位置提示下边界错误
而且登陆的账号都是第二个开始，第一个不输入，什么原因，那个高手告知一下。