帮忙看看这个函数如何编写

zhangchaoy

我现在有一段代码要重复使用，请高手帮我看看该怎么写一个函数呀，可以重复调用。

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的值做判断。

谢谢指点呀

zhangchaoy

回复 2# xjwldlover


    谢谢大侠指点。能不能具体的写一下，我对函数没啥概念。十分感谢

zhangchaoy

谢谢各位高手赐教呀，问题解决了

我还有一个问题呀，

Function Publish(oPage)
        。。。        
        Publish = flag
End Function

为什么可以直接把要返回的值赋给函数呀，Publish = flag是啥意思呢