|
2#
楼主 |
发表于 2009-8-12 23:31:29
|
只看该作者
首先我们公司做的是金融软件,以下就是我录制的脚本(请大家多多帮忙啊!)
datapath="D:\ACCT_NO.xls"
Browser("Sm@rtTeller8.5").Page("Sm@rtTeller8.5").WebEdit("WebEdit").Set "RB3A"
Browser("Sm@rtTeller8.5").Page("Sm@rtTeller8.5").WebEdit("WebEdit").Click
set WshShell =CreateObject("WScript.Shell")
WshShell.SendKeys "{ENTER}"
wait 1
Dim Tran_type
Tran_type =GetCellValue("no",13,21,datapath)
Browser("Sm@rtTeller8.5").Page("Sm@rtTeller8.5").Frame("content").WebList("RB_019_TRAN_TYPE").Select Tran_type
wait 1
Browser("Sm@rtTeller8.5_2").Page("Sm@rtTeller8.5").Frame("content").WebList("CARD_PB_IND").Select "P 存折"
wait 1
Browser("Sm@rtTeller8.5").Dialog("Microsoft Internet Explorer").WinButton("取消").Click
Dim Acct_no
Acct_no=GetCellValue("no",3,2,datapath)
'msgbox Acct_no
Browser("Sm@rtTeller8.5").Page("Sm@rtTeller8.5").Frame("content").WebEdit("WebEdit").Set Acct_no
wait 1
Browser("Sm@rtTeller8.5").Page("Sm@rtTeller8.5").Frame("content").WebButton("查询").Click
wait 5
此时,在点击查询域后,想取下一对象“Dim Amount
Amount=GetCellValue("no",13,3,datapath)
Browser("Sm@rtTeller8.5").Page("Sm@rtTeller8.5").Frame("content").WebEdit("WebEdit_2").Set Amount
”但报错:“找不到 "WebEdit_2" 对象的父对象 "content" (类 Frame)。验证父对象的属性与当前显示在应用程序中的对象是否匹配。
第 (52) 行: "Browser("Sm@rtTeller8.5").Page("Sm@rtTeller8.5").Frame("content").WebEdit("WebEdit_2").Set Amount"。”
然后我再去抓对象,对象变成page:page(如图)
[ 本帖最后由 marsnow 于 2009-8-15 11:07 编辑 ] |
|