- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 获取QQ群的QQ号 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=65054)
-- 发布时间：2015/3/8 10:54:00
-- 获取QQ群的QQ号
http://www.jb51.net/article/42158.htm
各位专家，我想用FOXTABLE做一个自已的营销软件，想象上面给出的网址获取群QQ号并存入FOXTABLE的表中，看有没有大师指导一下！
-- 发布时间：2015/3/8 11:36:00
--
参考
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:获取qq群成员.table |
-- 发布时间：2015/3/8 12:28:00
--
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号导到表中怎么办？
-- 发布时间：2015/3/8 14:33:00
--
For Each l As object In ls
If l.GetAttribute("className") = "member_id" Then
Dim ndr As DataRow = DaTaTables("表A").AddNew
ndr("第一列") = l.innerText.trim("(", ")")
End If
Next
-- 发布时间：2015/3/8 19:31:00
--
我试了，怎么获取不到啊？
-- 发布时间：2015/3/8 19:38:00
--
Dim ls As Object = web.Document.GetElementById("content_main_container").GetElementsByTagName("span")
这句是什么意思？
-- 发布时间：2015/3/8 19:55:00
--
http://tieba.baidu.com/p/2188006996
这只有VB的，而且没源码
-- 发布时间：2015/3/8 19:55:00
--
就是去取网页的某一个元素的内容。
-- 发布时间：2015/3/8 20:29:00
--
有点甜老师：我用了后，怎么没提取成功呢？我的QQ是78511721，您的QQ是多少啊？
-- 发布时间：2015/3/8 20:30:00
--
登陆以后，去到你的群那个页面，然后点击获取。
然后自己扩充。