主题：获取QQ群的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

 去参考例子去扩充啊。例子已经和简单明了了啊。

可以加个获取QQ昵称的功能吗

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:获取qq群成员.table

感谢

这个可以获得QQ窗口中的聊天记录么？

 肯定不可以。