|
3#
楼主 |
发表于 2015-5-6 16:06:21
|
只看该作者
'连接到系统
systemUtil.Run "http://192.168.8.31:8888"
'登陆系统:输入用户名、密码、验证码,点击登陆按钮
DataStr = Enviroment("TestDir")&"\UserInf.xls"
DataTable.AddSheet("UserInf")
DataTable.ImportSheet DataStr,"sheet1","UserInf"
rowCount1 = DataTbale.GetSheet("UserInf").GetRowCount
For i = 1 To rowCount1
datatable.SetCurrentRow(i)
user = datatable.Value("user","UserInf")
'pwd = Datatable.Value("pwd","UserInf")
Browser("达尔文平台").Page("达尔文平台").WebEdit("username").Set user
Next
'加密的密码
Browser("达尔文平台").Page("达尔文平台").WebEdit("password").SetSecure "554195d03d682913f7f0fc79bc989a7bab47632a8b20"
Browser("达尔文平台").Page("达尔文平台").WebEdit("checkCode").Set "〡〢〣の"
Browser("达尔文平台").Page("达尔文平台").WebButton("登录").Click
'检查点:校验登陆是否成功,通过登陆后的页面元素对比
'Dim username
'set username = DataTable("用户名",dtGlobalSheet)
'Browser("达尔文平台").Page("达尔文平台_2").Link(username).Check CheckPoint(username)
'发表一个说说,输入文字
Dim tim
tim = Timer
Browser("达尔文平台").Page("达尔文平台_2").WebEdit("weibo").Set "我爱你达尔文" & tim
'Browser("达尔文平台").Page("达尔文平台_2").Link("表情").Click
'Browser("达尔文平台").Page("达尔文平台_2").Image("laugh").Click
'Browser("达尔文平台").Page("达尔文平台_2").WebButton("×").Click
Browser("达尔文平台").Page("达尔文平台_2").Link("发布").Click
'Browser("达尔文平台").Page("达尔文平台_2").Check CheckPoint("我爱达尔文" & tim)
'登出系统:点击退出按钮
Browser("达尔文平台").Page("达尔文平台_2").WebElement("WebElement").Click |
|