原创:请注明出处: jason
以下是模块化工作中实例应用的一部分,目前还在对基础框架进行标准化定义和明确。例子中的代码还没有实现高度集成。因为业务的关系吧,正在想办法解决,这也是最头痛的部分:
(用到systemlistview32)系统--文件上传
Browser("Browser").Page("Page").Sync @@ hightlight id_;_Browser("Browser").Page("Page")_;_script infofile_;_ZIP::ssf1.xml_;_
Browser("Browser").CloseAllTabs
Browser("我的E关登录").Page("我的E关登录").WebEdit("txtUserName").Set "cuser" @@ hightlight id_;_Browser("我的E关登录").Page("我的E关登录").WebEdit("txtUserName")_;_script infofile_;_ZIP::ssf2.xml_;_
Browser("我的E关登录").Page("我的E关登录").WebEdit("txtPassword").SetSecure "513437abb193071f" @@ hightlight id_;_Browser("我的E关登录").Page("我的E关登录").WebEdit("txtPassword")_;_script infofile_;_ZIP::ssf3.xml_;_
Browser("我的E关登录").Page("我的E关登录").Image("登录").Click 34,55 @@ hightlight id_;_Browser("我的E关登录").Page("我的E关登录").Image("登录")_;_script infofile_;_ZIP::ssf4.xml_;_
Browser("我的E关登录").Page("xx公司 我的E关").Frame("Menu").WebElement("企业业务").Click @@ hightlight id_;_Browser("我的E关登录").Page("xx公司 我的E关").Frame("Menu").WebElement("企业业务")_;_script infofile_;_ZIP::ssf5.xml_;_
for i=0 to 15 step 1
'对左侧树状图调整位置用
Browser("我的E关登录").Page("xx公司 我的E关").Frame("Menu").Image("向下滚动").Click @@ hightlight id_;_Browser("我的E关登录").Page("xx公司 我的E关").Frame("Menu").Image("向下滚动")_;_script infofile_;_ZIP::ssf6.xml_;_
next
Browser("我的E关登录").Page("xx公司 我的E关").Frame("Menu").Link("单耗申报").Click @@ hightlight id_;_Browser("我的E关登录").Page("xx公司 我的E关").Frame("Menu").Link("单耗申报")_;_script infofile_;_ZIP::ssf31.xml_;_
Browser("我的E关登录").Page("xx公司 我的E关").Frame("Content").WebButton("新增").Click @@ hightlight id_;_Browser("我的E关登录").Page("xx公司 我的E关").Frame("Content").WebButton("新增")_;_script infofile_;_ZIP::ssf32.xml_;_
Browser("我的E关登录").Page("xx公司 我的E关").Frame("Content_2").Image("Search").Click @@ hightlight id_;_Browser("我的E关登录").Page("xx公司 我的E关").Frame("Content 2").Image("Search")_;_script infofile_;_ZIP::ssf33.xml_;_
Browser("我的E关登录").Page("xx公司 我的E关").Frame("Content_2").WebButton("查看").Click @@ hightlight id_;_Browser("我的E关登录").Page("xx公司 我的E关").Frame("Content 2").WebButton("查看")_;_script infofile_;_ZIP::ssf34.xml_;_
Browser("我的E关登录").Page("xx公司 我的E关").Frame("Content_2").Link("选择").Click @@ hightlight id_;_Browser("我的E关登录").Page("xx公司 我的E关").Frame("Content 2").Link("选择")_;_script infofile_;_ZIP::ssf35.xml_;_
Browser("我的E关登录").Page("xx公司 我的E关").Frame("Content_2").Image("Search_2").Click @@ hightlight id_;_Browser("我的E关登录").Page("xx公司 我的E关").Frame("Content 2").Image("Search 2")_;_script infofile_;_ZIP::ssf36.xml_;_
Browser("我的E关登录").Page("xx公司 我的E关").Frame("Content_2").WebButton("查看_2").Click @@ hightlight id_;_Browser("我的E关登录").Page("xx公司 我的E关").Frame("Content 2").WebButton("查看 2")_;_script infofile_;_ZIP::ssf37.xml_;_
Browser("我的E关登录").Page("xx公司 我的E关").Frame("Content_2").Link("选择_2").Click @@ hightlight id_;_Browser("我的E关登录").Page("xx公司 我的E关").Frame("Content 2").Link("选择 2")_;_script infofile_;_ZIP::ssf38.xml_;_
Browser("我的E关登录").Page("xx公司 我的E关").Frame("Content_2").WebEdit("ctl00$ContentPlaceHolderMain$t").Set "2013-03-31" @@ hightlight id_;_Browser("我的E关登录").Page("xx公司 我的E关").Frame("Content 2").WebEdit("ctl00$ContentPlaceHolderMain$t")_;_script infofile_;_ZIP::ssf39.xml_;_
Browser("我的E关登录").Page("xx公司 我的E关").Frame("Content_2").WebEdit("ctl00$ContentPlaceHolderMain$t_2").Set "1000" @@ hightlight id_;_Browser("我的E关登录").Page("xx公司 我的E关").Frame("Content 2").WebEdit("ctl00$ContentPlaceHolderMain$t 2")_;_script infofile_;_ZIP::ssf40.xml_;_
Browser("我的E关登录").Page("xx公司 我的E关").Frame("Content_2").WebEdit("ctl00$ContentPlaceHolderMain$t_3").Set "1000" @@ hightlight id_;_Browser("我的E关登录").Page("xx公司 我的E关").Frame("Content 2").WebEdit("ctl00$ContentPlaceHolderMain$t 3")_;_script infofile_;_ZIP::ssf41.xml_;_
Browser("我的E关登录").Page("xx公司 我的E关").Frame("Content_2").WebEdit("ctl00$ContentPlaceHolderMain$t_4").Set "1000" @@ hightlight id_;_Browser("我的E关登录").Page("xx公司 我的E关").Frame("Content 2").WebEdit("ctl00$ContentPlaceHolderMain$t 4")_;_script infofile_;_ZIP::ssf42.xml_;_
Browser("我的E关登录").Page("xx公司 我的E关").Frame("Content_2").WebEdit("ctl00$ContentPlaceHolderMain$t_5").Set "800" @@ hightlight id_;_Browser("我的E关登录").Page("xx公司 我的E关").Frame("Content 2").WebEdit("ctl00$ContentPlaceHolderMain$t 5")_;_script infofile_;_ZIP::ssf43.xml_;_
Browser("我的E关登录").Page("xx公司 我的E关").Frame("Content_2").WebRadioGroup("ctl00$ContentPlaceHolderMain$c").Select "3" @@ hightlight id_;_Browser("我的E关登录").Page("xx公司 我的E关").Frame("Content 2").WebRadioGroup("ctl00$ContentPlaceHolderMain$c")_;_script infofile_;_ZIP::ssf44.xml_;_
Browser("我的E关登录").Page("xx公司 我的E关").Frame("Content_2").WebRadioGroup("ctl00$ContentPlaceHolderMain$i").Select "radISCHANGE1" @@ hightlight id_;_Browser("我的E关登录").Page("xx公司 我的E关").Frame("Content 2").WebRadioGroup("ctl00$ContentPlaceHolderMain$i")_;_script infofile_;_ZIP::ssf45.xml_;_
Browser("我的E关登录").Page("xx公司 我的E关").Frame("Content_2").WebRadioGroup("ctl00$ContentPlaceHolderMain$I_2").Select "radISSTANDARD1" @@ hightlight id_;_Browser("我的E关登录").Page("xx公司 我的E关").Frame("Content 2").WebRadioGroup("ctl00$ContentPlaceHolderMain$I 2")_;_script infofile_;_ZIP::ssf46.xml_;_
Browser("我的E关登录").Page("xx公司 我的E关").Frame("Content_2").WebRadioGroup("ctl00$ContentPlaceHolderMain$I_3").Select "radISREUSE1" @@ hightlight id_;_Browser("我的E关登录").Page("xx公司 我的E关").Frame("Content 2").WebRadioGroup("ctl00$ContentPlaceHolderMain$I 3")_;_script infofile_;_ZIP::ssf47.xml_;_
Browser("我的E关登录").Page("xx公司 我的E关").Frame("Content_2").WebEdit("ctl00$ContentPlaceHolderMain$t_6").Set "test20130304" @@ hightlight id_;_Browser("我的E关登录").Page("xx公司 我的E关").Frame("Content 2").WebEdit("ctl00$ContentPlaceHolderMain$t 6")_;_script infofile_;_ZIP::ssf48.xml_;_
Browser("我的E关登录").Page("xx公司 我的E关").Frame("Content_2").WebButton("保存").Click @@ hightlight id_;_Browser("我的E关登录").Page("xx公司 我的E关").Frame("Content 2").WebButton("保存")_;_script infofile_;_ZIP::ssf49.xml_;_
Browser("我的E关登录").Dialog("来自网页的消息").WinButton("确定").Click @@ hightlight id_;_4982186_;_script infofile_;_ZIP::ssf50.xml_;_
'Browser("我的E关登录").Page("xx公司 我的E关").Frame("Menu").Link("单耗申报").Click @@ hightlight id_;_Browser("我的E关登录").Page("xx公司 我的E关").Frame("Menu").Link("单耗申报")_;_script infofile_;_ZIP::ssf51.xml_;_
'*********************************************************************************************************
'先创建好一个业务逻辑(单耗申报),还没有导入excel数据。
'现在开始导入excel明细的数据。
'在导入之前,先对excel中导入的数据进行设置一下:
'这里为了更好的说明问题,没有使用集成好的函数(DLL文件中),相当于多写了下面多的代码~~~
'以下函数的作用是 读值判断,改值 再保存退出excel进程。
Dim oExcelApp,oExcelBook,oExcelSheet,nNum1,nNum2,i
Set oExcelApp=createobject("Excel.Application")
set oExcelBook=oExcelApp.Workbooks.Open("C:\Documents and Settings\jason\桌面\单耗导入模板.xls")
set oExcelSheet=oExcelBook.Worksheets.Item(1)
nNum1=oExcelSheet.Cells(2,2)
nNum1=nNum1+2
nNum2=nNum1+1
For i = 2 To 7 Step 1
If i<=4 Then
oExcelSheet.Cells(i,2)=nNum1
else
oExcelSheet.Cells(i,2)=nNum2
End If
Next
set oExcelSheet = nothing
oExcelBook.Save
oExcelBook.Close
oExcelApp.Quit
Set oExcelBook = nothing
Set oExcelApp = nothing
Browser("我的E关登录").Page("xx公司 我的E关").Frame("Content_3").WebButton("导入").Click @@ hightlight id_;_Browser("我的E关登录").Page("xx公司 我的E关").Frame("Content 3").WebButton("导入")_;_script infofile_;_ZIP::ssf52.xml_;_
Browser("我的E关登录").Page("xx公司 我的E关").Frame("Content_4").WebFile("ctl00$ContentPlaceHolderMain$u").Set "C:\Documents and Settings\jason\桌面\单耗导入模板.xls" @@ hightlight id_;_Browser("我的E关登录").Page("xx公司 我的E关").Frame("Content 4").WebFile("ctl00$ContentPlaceHolderMain$u")_;_script infofile_;_ZIP::ssf53.xml_;_
Browser("我的E关登录").Page("xx公司 我的E关").Frame("Content_4").WebButton("上传数据并校验").Click @@ hightlight id_;_Browser("我的E关登录").Page("xx公司 我的E关").Frame("Content 4").WebButton("上传数据并校验")_;_script infofile_;_ZIP::ssf54.xml_;_
Browser("我的E关登录").Dialog("来自网页的消息").WinButton("确定").Click @@ hightlight id_;_3343870_;_script infofile_;_ZIP::ssf55.xml_;_
Browser("我的E关登录").Page("xx公司 我的E关").Frame("Content_4").WebButton("生成正式单据(覆盖)").Click @@ hightlight id_;_Browser("我的E关登录").Page("xx公司 我的E关").Frame("Content 4").WebButton("生成正式单据(覆盖)")_;_script infofile_;_ZIP::ssf56.xml_;_
Browser("我的E关登录").Dialog("来自网页的消息").WinButton("确定").Click @@ hightlight id_;_3147346_;_script infofile_;_ZIP::ssf57.xml_;_
Browser("我的E关登录").Page("xx公司 我的E关").Frame("Content_5").WebButton("附件(new)").Click @@ hightlight id_;_Browser("我的E关登录").Page("xx公司 我的E关").Frame("Content 5").WebButton("附件(new)")_;_script infofile_;_ZIP::ssf58.xml_;_
Browser("我的E关登录").Page("xx公司 我的E关").Frame("Content_6").WebButton("上传").Click @@ hightlight id_;_Browser("我的E关登录").Page("xx公司 我的E关").Frame("Content 6").WebButton("上传")_;_script infofile_;_ZIP::ssf59.xml_;_
Browser("我的E关登录").Page("xx公司 我的E关").Frame("Frame").WinObject("MacromediaFlashPlayerActiveX").Click 21,11 @@ hightlight id_;_3737080_;_script infofile_;_ZIP::ssf60.xml_;_
Browser("我的E关登录").Dialog("选择要上载的文件,通过: 10.35.2.222").WinListView("SysListView32").Select "GUITest1 [TempResults].pdf" @@ hightlight id_;_3671870_;_script infofile_;_ZIP::ssf61.xml_;_
Browser("我的E关登录").Dialog("选择要上载的文件,通过: 10.35.2.222").WinButton("打开(O)").Click @@ hightlight id_;_3212890_;_script infofile_;_ZIP::ssf62.xml_;_
Browser("我的E关登录").Page("xx公司 我的E关").Frame("Frame").WebButton("上传").Click @@ hightlight id_;_Browser("我的E关登录").Page("xx公司 我的E关").Frame("Frame").WebButton("上传")_;_script infofile_;_ZIP::ssf63.xml_;_
Browser("我的E关登录").Page("xx公司 我的E关").Frame("Frame").WebButton("完成").Click @@ hightlight id_;_Browser("我的E关登录").Page("xx公司 我的E关").Frame("Frame").WebButton("完成")_;_script infofile_;_ZIP::ssf64.xml_;_
Browser("我的E关登录").Dialog("来自网页的消息").WinButton("确定").Click @@ hightlight id_;_4720062_;_script infofile_;_ZIP::ssf65.xml_;_
Browser("我的E关登录").Page("xx公司 我的E关").Frame("Content_6").WebButton("Button").Click @@ hightlight id_;_Browser("我的E关登录").Page("xx公司 我的E关").Frame("Content 6").WebButton("Button")_;_script infofile_;_ZIP::ssf66.xml_;_