|
3#
楼主 |
发表于 2007-9-10 16:05:51
|
只看该作者
Dim b
Dim e
Browser("工商通业务管理系统").Page("工商通业务管理系统").WebEdit("username").Set DataTable("uid", dtLocalSheet)
Browser("工商通业务管理系统").Page("工商通业务管理系统").WebEdit("password").Set DataTable("pwd", dtLocalSheet)
Browser("工商通业务管理系统").Page("工商通业务管理系统").WebButton("确定").Click
Services.StartTransaction "1"
Browser("工商通业务管理系统").Page("工商通业务管理系统_2").Frame("left").WebElement("pic_05").Click
b=Browser("工商通业务管理系统").Page("工商通业务管理系统_2").Frame("left").Link("信息采集").Check( CheckPoint("信息采集"))
Browser("工商通业务管理系统").Page("工商通业务管理系统_2").Frame("left").Link("信息采集").Click
Browser("工商通业务管理系统").Page("工商通业务管理系统_2").Frame("mainFrame").Image("xz").Click
'输入信息
Browser("工商通业务管理系统").Page("工商通业务管理系统_2").Frame("mainFrame_2").WebList("typeidi").Select DataTable("tpye1", dtLocalSheet)
Browser("工商通业务管理系统").Page("工商通业务管理系统_2").Frame("mainFrame_2").WebList("serviceidi").Select DataTable("program", dtLocalSheet)
Browser("工商通业务管理系统").Page("工商通业务管理系统_2").Frame("mainFrame_2").WebList("proviriceidi").Select DataTable("city", dtLocalSheet)
Browser("工商通业务管理系统").Page("工商通业务管理系统_2").Frame("mainFrame_2").WebList("cityidi").Select DataTable("part", dtLocalSheet)
Browser("工商通业务管理系统").Page("工商通业务管理系统_2").Frame("mainFrame_2").WebEdit("content").Set DataTable("cont", dtLocalSheet)
Browser("工商通业务管理系统").Page("工商通业务管理系统_2").Frame("mainFrame_2").Image("bc").Click
'查询信息
Browser("工商通业务管理系统").Page("工商通业务管理系统_2").Frame("mainFrame_3").WebList("typeid").Select DataTable("type2", dtLocalSheet)
Browser("工商通业务管理系统").Page("工商通业务管理系统_2").Frame("mainFrame_3").WebList("serviceid").Select DataTable("program2", dtLocalSheet)
Browser("工商通业务管理系统").Page("工商通业务管理系统_2").Frame("mainFrame_3").WebList("statusid").Select DataTable("stat", dtLocalSheet)
Browser("工商通业务管理系统").Page("工商通业务管理系统_2").Frame("mainFrame_3").WebList("proviriceid").Select DataTable("city2", dtLocalSheet)
Browser("工商通业务管理系统").Page("工商通业务管理系统_2").Frame("mainFrame_3").WebList("cityid").Select DataTable("park2", dtLocalSheet)
Browser("工商通业务管理系统").Page("工商通业务管理系统_2").Frame("mainFrame_3").Image("cx").Click
Services.EndTransaction "1"
Browser("工商通业务管理系统").Page("工商通业务管理系统_2").Sync
set e=选择.GetCellData(2, 2)
Browser("工商通业务管理系统").Page("工商通业务管理系统_2").Sync |
|