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

黑羽祭

回复 1# zhangchaoy


    没测试，你试试看吧

1. dim A
   
2. set A = Browser("发表页").Page("管理页-草稿").WebElement("草稿列表箱")
   
3. 
   
4. if myFun(A) Then .......
   
5. 
   
6. 
   
7. Function myFun(oPage)
   
8. 
   
9.         Set oLink = Description.Create()
   
10.         oLink("micClass").value = "Link"
    
11. 
    
12.         Set oLinks =oPage.ChildObjects(oLink)
    
13. 
    
14.         NumofLink = oLinks.Count
    
15.         print NumofLink
    
16. 
    
17.         For i = 0 to NumofLink -1
    
18.                 linkName = oLinks(i).GetRoProperty("innertext")
    
19.                 print linkName
    
20.                 flag = 0
    
21.                 If  linkName = blogName Then
    
22.                         flag = flag +1
    
23.                         '如果博文在草稿箱中存在，就点击“编辑”按钮
    
24.                         oLinks(i+1).Click
    
25.                         Exit for               
    
26.                 End If  
    
27.         Next
    
28.         Set oLinks = Nothing
    
29.         Set oLink = Nothing
    
30.         
    
31.         myFun = flag
    
32. End Function
    

复制代码

黑羽祭

回复 7# zhangchaoy


    你的函数要的不就是flag的判断嘛
那就把flag作为返回值返回回去就行了。
你可以查看一下Function和Sub的区别就知道了