|
8#
楼主 |
发表于 2009-4-1 16:42:15
|
只看该作者
最新代码,加了部分的检查点(当前用户),菜单的检查还不知道要怎么做
SystemUtil.CloseProcessByName("iexplore.exe")
Dim iStatus
Dim text
Dim i
i=0
While i<DataTable.GetSheet("login").GetRowCount
wait 3
If Browser("信息管理系统").Exist then
Browser("信息管理系统").Page("信息管理系统").WebEdit("username").Set DataTable("username", dtLocalSheet)
Browser("信息管理系统").Page("信息管理系统").WebEdit("password").SetSecure DataTable("password", dtLocalSheet)
Browser("信息管理系统").Page("信息管理系统").WebButton("登录").Click
else
SystemUtil.Run "iexplore.exe", "http://192.168.0.3:9080/Court/"
Browser("信息管理系统").Page("信息管理系统").WebEdit("username").Set DataTable("username", dtLocalSheet)
Browser("信息管理系统").Page("信息管理系统").WebEdit("password").SetSecure DataTable("password", dtLocalSheet)
Browser("信息管理系统").Page("信息管理系统").WebButton("登录").Click
End If
iStatus = DataTable("status", dtLocalSheet) '读取状态值
'成功登录
If iStatus="" then
Reporter.ReportEvent micPass, "成功","登录成功"
Browser("信息管理系统").Page("信息管理系统_2").Frame("mainFrame").Check CheckPoint("onUser")
Browser("信息管理系统").Page("信息管理系统_2").Frame("mainFrame").WebButton("退出").Click
else
'用户名或密码错误
iStatus = DataTable("status", dtLocalSheet)
If Browser("信息管理系统").Dialog("Microsoft Internet Explorer").Exist then
text=Browser("信息管理系统").Dialog("Microsoft Internet Explorer").Static("用户名或密码错误,请重试!").GetROProperty("Text")
If text=iStatus then
Reporter.ReportEvent micPass, "失败",text
else If text="您已连续输错三次密码,软件将自动退出" then
Reporter.ReportEvent micPass, "失败",text
else
Reporter.ReportEvent micFail,"异常","有错误"
End If
End If
Browser("信息管理系统").Dialog("Microsoft Internet Explorer").WinButton("确定").Click
'Browser("信息管理系统").Close
End If
End If
i=i+1
DataTable.GetSheet("login").SetNextRow()
wend |
|