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
复制代码