天鼎进销存管理系统

For  i =1 to  datatable.LocalSheet.GetRowCount

 

 

Browser("Internet Explorer 无法显示该网页").Page("天鼎进销存管理系统 - 系统登陆").WebEdit("username").Set  datatable("name","Action1")

Browser("Internet Explorer 无法显示该网页").Page("天鼎进销存管理系统 - 系统登陆").WebEdit("pwd").SetSecure datatable("password","Action1")

Browser("Internet Explorer 无法显示该网页").Page("天鼎进销存管理系统 - 系统登陆").Image("enter").FireEvent "onmouseover"

Browser("Internet Explorer 无法显示该网页").Page("天鼎进销存管理系统 - 系统登陆").Image("enter").Click 5,5

Browser("Internet Explorer 无法显示该网页").Page("天鼎进销存管理系统 - 后台管理系统").Sync

 

If Browser("Internet Explorer 无法显示该网页").Page("天鼎进销存管理系统 - 后台管理系统").Frame("topFrame").WebElement("Title").Exist  then

   Browser("Internet Explorer 无法显示该网页").Page("天鼎进销存管理系统 - 后台管理系统").Frame("topFrame").Link("安全退出").Click

Browser("Internet Explorer 无法显示该网页").Dialog("Windows Internet Explorer").WinButton("确定").Click

  

 

msgbox"pass"

 

elseif Browser("Internet Explorer 无法显示该网页").Dialog("Windows Internet Explorer").Exist  then

Browser("Internet Explorer 无法显示该网页").Dialog("Windows Internet Explorer").WinButton("确定").Click

 

 

 

msgbox"pass"

 

else

msgbox"fail"

 

end if

 

datatable.LocalSheet.SetNextRow

 

Next

********************************************************

For i = 1 to datatable.LocalSheet.GetRowCount

Browser("天鼎进销存管理系统 - 系统登陆").Page("天鼎进销存管理系统 - 系统登陆").WebEdit("username").Set datatable("name","Action1")
Browser("天鼎进销存管理系统 - 系统登陆").Page("天鼎进销存管理系统 - 系统登陆").WebEdit("pwd").SetSecure datatable("passwd","Action1")
Browser("天鼎进销存管理系统 - 系统登陆").Page("天鼎进销存管理系统 - 系统登陆").Image("enter").FireEvent "onmouseover"
Browser("天鼎进销存管理系统 - 系统登陆").Page("天鼎进销存管理系统 - 系统登陆").Image("enter").Click 58,8


If  Browser("天鼎进销存管理系统 - 系统登陆").Page("天鼎进销存管理系统 - 后台管理系统").Frame("topFrame").Exist Then

Browser("天鼎进销存管理系统 - 系统登陆").Page("天鼎进销存管理系统 - 后台管理系统").Frame("topFrame").Link("安全退出").Click
Browser("天鼎进销存管理系统 - 系统登陆").Dialog("Windows Internet Explorer").WinButton("确定").Click


'wait(10)

'c=datatable("exp","Action1")
'
'c=int(c)
'
'If  c ="pass." Then
'
'   msgbox"pass"
'
'   else
'
'   msgbox"fail"
'
'End If


msgbox"pass"

elseif Browser("天鼎进销存管理系统 - 系统登陆").Dialog("Windows Internet Explorer").Exist  then

Browser("天鼎进销存管理系统 - 系统登陆").Dialog("Windows Internet Explorer").WinButton("确定").Click

msgbox"pass"

else

msgbox"fail"

end if

datatable.LocalSheet.SetNextRow

Next

Browser("天鼎进销存管理系统 - 系统登陆").Close