（已解决）一个网站的登录VBS问题

zhiminhua

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

复制代码

Batcher

问题在哪里？

zhiminhua

你好，有高手给我解决了，谢谢你。