主题：获取QQ群的QQ号

http://www.jb51.net/article/42158.htm

 

各位专家，我想用FOXTABLE做一个自已的营销软件，想象上面给出的网址获取群QQ号并存入FOXTABLE的表中，看有没有大师指导一下！

Dim ls As Object = web.Document.GetElementById("content_main_container").GetElementsByTagName("span")
Dim str As String = ""
For Each l As object In ls
    If l.GetAttribute("className") = "member_id" Then
        str &= l.innerText.trim("(", ")") & "|"
    End If
Next
msgbox(str)

 

这个能解释一下吗？要把QQ号导到表中怎么办？

 

我试了，怎么获取不到啊？

http://tieba.baidu.com/p/2188006996

 

这只有VB的，而且没源码

有点甜老师：我用了后，怎么没提取成功呢？我的QQ是78511721，您的QQ是多少啊？

Dim k As Integer
Dim p As Integer
Dim pa As Integer
Dim h As Boolean
Private Sub Command1_Click()
Open App.Path & "\群信息.txt" For Append As #1
WebBrowser1.Navigate "http://qun.qq.com/#search/st/0/tx/" & Text1 & "/c1/0/c2/0/pg/1"
WebBrowser1.Refresh
h = True
End Sub
Private Sub Form_Load()
WebBrowser1.Navigate "http://qun.qq.com"
Timer1.Interval = 5000
p = 1
End Sub
Private Sub Timer1_Timer()
If h = True Then
    WebBrowser1.ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DODEFAULT
    WebBrowser1.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULT
    a = InStr(1, Clipboard.GetText, "下一页")
    If k = 0 Then
        pa = Mid(Clipboard.GetText, InStrRev(Clipboard.GetText, " ", a - 2) + 1, a - InStrRev(Clipboard.GetText, " ", a - 2) - 2)
        k = 1
    End If
    b = InStr(a + 1, Clipboard.GetText, "下一页")
    c = Mid(Clipboard.GetText, a, b - a)
    t = Split(c, vbCrLf)
    For i = 0 To UBound(t)
        If InStr(1, t(i), "申请加入") <> 0 Then temp = temp & vbCrLf & Split(t(i), "申请加入")(0)
    Next
    Print #1, temp
    temp = ""p = p + 1
    If p > pa Then
        MsgBox "完毕"
        Close
    Else
        WebBrowser1.Navigate ""
        WebBrowser1.Navigate "http://qun.qq.com/#search/st/0/tx/" & Text1 & "/c1/0/c2/0/pg/" & p
        WebBrowser1.Refresh
    End If
    Timer1.Enabled = False
End If
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
If WebBrowser1.Busy = False Then Timer1.Enabled = True
End Sub