VBS下边界怎么解决！！！

zxz1992 · 发表于 2019-6-30 17:09:59

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批量登陆的一个代码，运行到红色位置提示下边界错误
而且登陆的账号都是第二个开始，第一个不输入，什么原因，那个高手告知一下。

DvD难受不 · 发表于 2019-7-1 15:52:25

都看不懂这是什么

VBS下边界怎么解决！！！

相关帖子

浏览过的版块

VBS下边界 怎么解决！！！

相关帖子

浏览过的版块

VBS下边界怎么解决！！！