(已解决）30元求VBS多个帐号自动登录、退出网站。

zhiminhua

下面的程序有问题，通不过，望高手指点。30元支付宝以示感谢。
可以发短消息联系。

set objExcel = CreateObject("Excel.Application")
objExcel.Visible = true
Set objWorkbooks = objExcel.Workbooks.open ("D:\aa.xls",3,false)
for i=2 to 3 
x=objExcel.Cells(i,1).value
y=objExcel.Cells(i,2).value
set ie2=WScript.CreateObject("InternetExplorer.Application") 
ie2.visible=true 
ie2.navigate "http://www.zxxcxk.com/" 

Do
Wscript.Sleep 400
Loop Until ie2.ReadyState=4

ie2.document.getElementById("UserName").value=x
ie2.document.getElementById("UserPassword").value=y
ie2.document.getElementsByTagName("input")(8).click()

Wscript.Sleep 5000

CreateObject("WScript.Shell").Run "taskkill /f /im iexplore.exe", 0
复制代码