|
本帖最后由 zhangchaoy 于 2012-11-5 15:10 编辑
我现在有一段代码要重复使用,请高手帮我看看该怎么写一个函数呀,可以重复调用。
With Browser("发表页")
Set oLink = Description.Create()
oLink("micClass").value = "Link"
Set oLinks =.Page("管理页-草稿").WebElement("草稿列表箱").ChildObjects(oLink)
NumofLink = oLinks.Count
msgbox NumofLink
For i = 0 to NumofLink -1
linkName = oLinks(i).GetRoProperty("innertext")
print linkName
flag = 0
If linkName = blogName Then
flag = flag +1
'如果博文在草稿箱中存在,就点击“编辑”按钮
oLinks(i+1).Click
Exit for
End If
Next
Set oLinks = Nothing
Set oLink = Nothing
End with
经常变化的是Set oLinks =.Page("管理页-草稿").WebElement("草稿列表箱").ChildObjects(oLink)中的Page("管理页-草稿").WebElement("草稿列表箱")会经常变化。
还有,就是我想要返回flag的值,因为要在函数体的外面对flag的值做判断。
谢谢指点呀 |
|