用vb怎样提取QQ群社区中“通讯录”中的QQ号码？

我用vb设计了一个程序，瞬间获取网页数据，但由于qq网页特殊性，需要手动点击下一页

添加一个webbrowser控件，及一个按钮，web控件要画足够大以便 *** 作

运行程序后，在网页里登陆你的qq，进入群的通讯录里，然后以表格形式查看（成员秀旁边那个），当网页加载完毕后，点击按钮，按提示 *** 作，直到通讯录最后一页，关闭程序后，数据保存在运行目录hao.txt里

Private Sub Command1_Click()

Open App.Path &"\hao.txt" For Append As #1

For i = 1 To 20

n = WebBrowser1.Document.All.tags("table").Item(1).Rows.Item(i).Cells.Item(1).innerText

h = WebBrowser1.Document.All.tags("table").Item(1).Rows.Item(i).Cells.Item(2).innerText

Print #1, n &vbTab &h

Next

Close

MsgBox "ok,请点击下一页"

End Sub

Private Sub Form_Load()

WebBrowser1.Navigate "http://qun.qq.com"

End Sub

抓QQ的句柄是不可能的（腾讯的技术人员也不是那么白痴的），我们应该换个思路，好友列表其实是加密后保存在本地的（当然服务器上也有，QQ如果在本地找不到好友列表，就上服务器上找），如果能把它解密，就能获得好友列表（好友列表的文件加密应该不是很严格），仅提供思路，如果哪位朋友擅长这方面，可以用WinHex试试~

---