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

zhiminhua

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

1. set objExcel = CreateObject("Excel.Application")
   
2. objExcel.Visible = true
   
3. Set objWorkbooks = objExcel.Workbooks.open ("D:\aa.xls",3,false)
   
4. for i=2 to 3
   
5. x=objExcel.Cells(i,1).value
   
6. y=objExcel.Cells(i,2).value
   
7. set ie2=WScript.CreateObject("InternetExplorer.Application")
   
8. ie2.visible=true
   
9. ie2.navigate "http://www.zxxcxk.com/"
   
10. 
    
11. Do
    
12. Wscript.Sleep 400
    
13. Loop Until ie2.ReadyState=4
    
14. 
    
15. ie2.document.getElementById("UserName").value=x
    
16. ie2.document.getElementById("UserPassword").value=y
    
17. ie2.document.getElementsByTagName("input")(8).click()
    
18. 
    
19. Wscript.Sleep 5000
    
20. 
    
21. CreateObject("WScript.Shell").Run "taskkill /f /im iexplore.exe", 0

复制代码