Question

用vb怎样提取自己加入的所有QQ群的号码？

我的一个QQ号加入了许多个qq群。我想把这些群号码都提取出来，保存成一个文本文件，一行一个号码。怎样用vb实现呢？

Answer 1

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim s As String
s = WebBrowser1.Document.body.innerhtml

If InStr(s, "我加入的群") = 0 Then Exit Sub

Dim FilePath As String, fnum As Integer
FilePath="D:\QQqun.txt"
fnum=FreeFile
Open FilePath for Output As #fnum

Dim p As Long, q As Long

q = 1
Do
q = InStr(q, s, "rel=jump jQuery")
If q = 0 Then Exit Do
p = InStrRev(s, "#", q) + 1
Print #fnum, Trim(Mid(s, p, q - p)) & "：";
p = InStr(q, s, ">") + 1
q = InStr(p, s, "<")
Print #fnum, Mid(s, p, q - p)
Loop
Close #fnum
s=""
End Sub

追问

保存到QQqun.txt，不要后面的名称，只要前面的号码，一行一个号码。可以吗？

追答

修改部分代码如下：
With List1
If .ListCount > 0 Then
Print #fnum, "我加入的群："
For i = 0 To .ListCount - 1
Print #fnum, Mid(.List(i), InStr(.List(i), "：") + 1, InStrRev(.List(i), "：") - InStr(.List(i), "：") - 1) ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Next i
End If
End With

追问

呵呵，弄不明白放什么地方，你最好，重新发整个代码

追答

Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim s As String
s = WebBrowser1.Document.body.innerhtml

If InStr(s, "我加入的群") = 0 Then Exit Sub

Dim FilePath As String, fnum As Integer
FilePath="D:\QQqun.txt"
fnum=FreeFile
Open FilePath for Output As #fnum

Dim p As Long, q As Long

q = 1
Do
q = InStr(q, s, "rel=jump jQuery")
If q = 0 Then Exit Do
p = InStrRev(s, "#", q) + 1
Print #fnum, Trim(Mid(s, p, q - p)) & "：";
''''''''''p = InStr(q, s, ">") + 1
''''''''''q = InStr(p, s, "<")
''''''''''Print #fnum, Mid(s, p, q - p)
Loop
Close #fnum
s=""
End Sub

追问

谢谢。如果想包括群名称、号码、现在成员数量三项都提取，并且保存成一个文件文件，怎样做？保存的文本文件格式如下（以竖线分割）：
群名称|号码|成员的数量
群名称|号码|成员的数量
群名称|号码|成员的数量

追答

参考“http://zhidao.baidu.com/question/380819561.html?oldq=1”获得群名称、号码、现在成员数量。

在“Close #fnum”语句前加入如下代码：
Print #fnum, Text1 & "|" & Text2 & "|" & Text3

追问

希望能自动提取，你说那一页的方法，它只能手动在http://qun.qq.com/一个群一个群地去获得群名称、号码、现在成员数量。如果加入了几十个群，怎样自动点击页面或“我的群”菜单，去获得群名称、号码、现在成员数量呢？

追答

只要进入自己的群空间，就能直接获取到所有的群名称、号码，但现在成员数量需要进入群里才能获取得到。
除非用其他方法，像QQ那样，直接发送请求获取信息。