qtq10回归测试 读取excel数据

登录：

      Executefile "D:\work\per_qtq\data\Function.vbs"
Call CloseIe()
wait(3)
 arrRange = ReadFile("D:\work\per_qtq\data\TEST.xls","Sheet1")
URL =arrRange(1,1)
openIe(URL)
Dim a,b
a=arrRange(1,2)
b=arrRange(1,3)
Browser("Browser").Page("Page").WebEdit("CifNo").Set a
Browser("Browser").Page("Page").WinEditor("Edit").Click
inputkeys b
Browser("Browser").Page("Page").WebButton("登录").Click
Browser("Browser").Page("Page_2").Sync
Browser("Browser").Page("Page_2").Frame("menuFrame").Image("menu_title01").Check CheckPoint("menu_title01")

行内汇款：

Executefile "D:\work\per_qtq\data\Function.vbs"
arrRange = ReadFile("D:\work\per_qtq\data\HDPF.xls","huik")
Browser("Browser").Page("Page").Frame("menuFrame").Link("汇到银行").Click
Browser("Browser").Page("Page").Frame("mainFrame").WebEdit("PayeeAcctNo").Set  arrRange(1,2)
Browser("Browser").Page("Page").Frame("mainFrame").WebEdit("PayeeName").Set arrRange(1,3)
Browser("Browser").Page("Page").Frame("mainFrame").WebEdit("Amount").Set arrRange(1,4)
Browser("Browser").Page("Page").Frame("mainFrame").WebButton("提交").Click

Browser("Browser").Page("Page").Frame("mainFrame_2").ActiveX("Safe Control").WinEditor("Edit").Click
Dim m
m=arrRange(1,5)
inputkeys m

Browser("Browser").Page("Page").Frame("mainFrame_2").WebButton("确定").Click
wait(2)
Browser("Browser").Page("Page").Frame("mainFrame_2").Check CheckPoint("mainFrame_2")
Browser("Browser").Page("Page").Frame("mainFrame_2").WebButton("返回").Click

 

动态密码登录：

Executefile "D:\work\per_qtq\data\Function.vbs"
Call CloseIe()
wait(3)
 arrRange = ReadFile("D:\work\per_qtq\data\TEST.xls","Sheet1")
URL =arrRange(2,1)
openIe(URL)
Dim a,b,fs,ts,contents,Va,Vb
a=arrRange(2,2)
b=arrRange(2,3)

Browser("Browser").Page("Page").WebEdit("CifNo").Set a
Browser("Browser").Page("Page").ActiveX("Safe Control").WinEditor("Edit").Click
inputkeys b

'************************取出校验码***********************

SystemUtil.Run "D:\work\per_qtq\jym.exe","","D:\work\per_qtq\","open"
wait(3)
set fs =createobject("scripting.filesystemobject")

if fs.FileExists("D:\work\per_qtq\getpwd.txt") then
 set ts=fs.opentextfile("D:\work\per_qtq\getpwd.txt",1,true)
 Va=ts.readline
 'msgbox Va
end if

Browser("Browser").Page("Page").WebEdit("Token").Set Va
Browser("Browser").Page("Page").WebButton("登录").Click

'********************取出手机动态密码***************************
SystemUtil.Run "D:\work\per_qtq\sjmm.exe","","D:\work\per_qtq\","open"
wait(3)
set fs =createobject("scripting.filesystemobject")
if fs.FileExists("D:\work\per_qtq\getpwdnew.txt") then
 set ts=fs.opentextfile("D:\work\per_qtq\getpwdnew.txt",1,true)
     Vb=ts.readline
end if
Browser("Browser").Page("Page_2").WebEdit("MobilePasswd").Set Vb
Browser("Browser").Page("Page_2").WebButton("登录").Click
Browser("Browser").Page("Page_2").Sync

 

 

动态密码汇款：

Executefile "D:\work\per_qtq\data\Function.vbs"
arrRange = ReadFile("D:\work\per_qtq\data\HDPF.xls","huik")
Browser("Browser").Page("Page").Frame("menuFrame").Link("汇到银行").Click
Browser("Browser").Page("Page").Frame("mainFrame").WebEdit("PayeeAcctNo").Set arrRange(1,2)
Browser("Browser").Page("Page").Frame("mainFrame").WebEdit("PayeeName").Set arrRange(1,3)
Browser("Browser").Page("Page").Frame("mainFrame").WebEdit("Amount").Set arrRange(1,4)
Browser("Browser").Page("Page").Frame("mainFrame").WebButton("提交").Click

Browser("Browser").Page("Page").Frame("mainFrame_2").ActiveX("Safe Control").WinEditor("Edit").Click
Dim m
m=arrRange(1,5)
inputkeys m

'********************取出手机动态密码***************************
Dim fs,ts,Vb
SystemUtil.Run "D:\work\per_qtq\sjmm.exe","","D:\work\per_qtq\","open"
wait(5)
set fs =createobject("scripting.filesystemobject")
if fs.FileExists("D:\work\per_qtq\getpwdnew.txt") then
 set ts=fs.opentextfile("D:\work\per_qtq\getpwdnew.txt",1,true)
     Vb=ts.readline
end if
Browser("Browser").Page("Page").Frame("mainFrame_2").WebEdit("MobilePasswd").Set Vb
Browser("Browser").Page("Page").Frame("mainFrame_2").WebButton("确定").Click
Browser("Browser").Page("Page").Frame("mainFrame_2").WebButton("返回").Click