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

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

ie2.document.getElementById("username").value=x
ie2.document.getElementById("password").value=y
document.getElementsByid("sumbit").click()

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