|
Dim fso,filePath,i
Dim ExcelBook, ExcelSheet, myExcelBook, myExcelSheet
'保存Excel表格所放的路径
filePath="d:\login\default.xls"
'创建Excel应用程序的对象
Set fso=CreateObject("Scripting.FileSystemobject")
Set ExcelBook=Createobject("Excel.Application")
Set ExcelSheet=Createobject("Excel.Sheet")
'把Excel表中的Sheet1给一个变量
Set myExcelBook=ExcelBook.WorkBooks.open(filePath)
Set myExcelSheet=myExcelBook.worksheets("Global")
'创建一个描述性编程中的description对象,用来复习一下description的创建方法
Set myDesc = Description.Create()
If DataTable("result", dtGlobalSheet)="√" Then
Browser("管理系统").Page("管理系统").WebEdit("textfield").Set DataTable("name", dtGlobalSheet)
Browser("管理系统").Page("管理系统").WebEdit("textfield2").SetSecure DataTable("passwd", dtGlobalSheet)
Browser("管理系统").Page("管理系统").WebButton("登陆").Click
Browser("管理系统").Page("管理系统_2").Sync
Dim aa,b
For i=2 to 10
b=Browser("管理系统").Page("管理系统_4").Check (CheckPoint("管理系统_3"))
aa= Browser("管理系统").Page("管理系统_3").WebElement("用户名或密码错误,请重新输入!").Check ( CheckPoint("用户名或密码错误,请重新输入!") )
If DataTable("name", dtGlobalSheet)="admin" Then b else aa end if
If aa or b Then myExcelSheet.Cells(i,4).Value = "成功" else myExcelSheet.Cells(i,4).Value = "失败" end if
Next
Browser("管理系统").Close
End If
myExcelBook.Save
ExcelBook.Quit
Set ExcelBook = Nothing |
|