臉書自動戳戳樂源碼 - FBPoker_Source

反正也不是啥秘密，既然有人想要我就發拉

一開始我自己寫的版本...

1. If WB1.Busy Then Exit Sub
2. If Not WB1.LocationURL = "https://www.facebook.com/pokes" Then Exit Sub
3. 
   
4. Dim vDoc, vTag
5. Dim i As Integer
6. 
   
7. Set vDoc = WB1.Document
8. For i = 0 To vDoc.All.Length - 1  '檢測所有標籤
9. Onion = UCase(vDoc.All(i).tagName)
10. 
    
11. If UCase(vDoc.All(i).tagName) = "A" Then '找到標籤INPUT
12. Set vTag = vDoc.All(i)
13. If vTag.innerText = "戳回去" Or vTag.innerText = "戳一下！" Then vTag.Click '點擊
14. End If
15. Next

網路上有的VB.Net版本

專案下載：

[VB.NET] FB自動回戳.zip [Google 協作平台]

[C Sharp] FB自動回戳.zip [Google 協作平台]

1.         If WebBrowser1.Document.Url.AbsolutePath = "/pokes" Then
2.             Dim doc As HtmlDocument = WebBrowser1.Document
3.             Dim links As HtmlElementCollection
4.             Dim linkPoke As HtmlElement
5. 
   
6.             links = doc.GetElementsByTagName("A")
7.             For Each linkPoke In links
8.                 '判斷"戳回去"的連結
9.                 If linkPoke.GetAttribute("ajaxify").Contains("/ajax/pokes") Then
10.                     '戳回去
11.                     linkPoke.InvokeMember("click")
12.                 End If
13.             Next
14.         End If

我參考上面的VB6版本

1. If Right(WebBrowser1.LocationURL, 6) = "/pokes" Then
2.     Set vDoc = WebBrowser1.Document
3.     For i = 0 To vDoc.All.Length - 1  '檢測所有標籤
4.         Call UCase(vDoc.All(i).tagName)
5.         If UCase(vDoc.All(i).tagName) = "A" Then '找到標籤A，連結的意思
6.             Set vTag = vDoc.All(i)
7.             'If Left(vTag.GetAttribute("ajaxify"), 11) = "/ajax/pokes" Then vTag.Click '點擊
8.             If InStr(vTag.GetAttribute("ajaxify"), "/ajax/pokes") Then vTag.Click '點擊
9.         End If
10.     Next
11. End If