P211实例-QTP测试发布日志及内容验证

这是《自动化测试技术领航》一书第211页的实例：下面是测试成功的代码已调试中遇到的问题总结：

-----1：最终代码-----

'step1
Browser("_枫林菊香的个人空间 - 51Testing软件测试网").Page("_枫林菊香的个人空间 - 51Testing软件测试网").Link("写日志 >>").Click
Browser("_枫林菊香的个人空间 - 51Testing软件测试网").Page("_枫林菊香的个人空间 - 51Testing软件测试网").Sync
'step2
dateArray = Date
msgbox dateArray
dateArray = split(dateArray,"/")

tYear=dateArray(0)
tMonth=dateArray(1)
tDay=dateArray(2)
'msgbox dateArray(2)
curYear = tYear
If tMonth < 10 Then
 curMonth = "0"& tMonth
else
 curMonth=tMonth
End If
If tDay < 10 Then
 curDay = "0"&tDay
else
 curDay=tDay
End If

'msgbox curYear
'msgbox  curMonth
'msgbox  tDay
expSubject = "日志 ["&curYear&"年"&curMonth&"月"&curDay&"日]"
msgbox expSubject

With Browser("个人空间管理").Page("个人空间管理")
   .Image("calendar").Click
   .WebList("选择系统分类").Select "软件测试技术"
   .WebList("选择个人分类").Select "test"
   .Frame("Frame").WebElement("内容").Object.innerText="QTP自动化测试技术试验"
   .WebEdit("访问密码").Set "123456"
   actSubject = .WebEdit("标题").GetRoProperty("value")
   actPwd = .WebEdit("访问密码").GetRoProperty("value")
   msgbox actSubject&expSubject
   If actSubject = expSubject And actPwd = "123456" Then
     Reporter.ReportEvent micPass,"step2","Passed"
   else
     Reporter.ReportEvent micFail ,"step2","Failed"
     ExitTest
   End If
   .WebButton("保存到私人箱").Click
End With

--------2 对象库展示---------

-------3 运行时遇到的问题总结---------

1：添加对象不一定要照着书上一模一样，要看实际情况，不确定的用SPY看一下；

2：分隔日期的时候要先看当前获取的系统时间是哪种格式的，分隔符是哪种，比如“/”或者“-”，确定之后，才能指定Split函数中的分隔字符；

3：可以多多的应用msgbox，想知道参数有没有获取到特定的属性，可以用msgbox输出查看；

4：一直在检查点的地方Fail，后来才发现，是系统自动生成的标题在“日志”和“[”之间有个空格的原因。

上述或许有描述不当的地方，大家可自行忽略。。。O(∩_∩)O~