简单的VB问题，总计190分求解！盼解答！
请问一下我获取整个网页的源码后怎么根据已有的url字符来获取完整的URL呀
比如；
我已经知道部分url； www.qq.com
在通过Document.All获取这个源码后，想获取源码中所有含有“www.qq.com”的URL，如"www.qq.com/eg?xxx=123"一类的URL。
获取url后显示在list1中
希望高人能给出代码。谢谢了。
+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
由于我刚来没有多少分，不过我在百度知道和QQ问问均有提问，地址：
百度知道：http://zhidao.baidu.com/question/130586335.html
QQ问问：http://wenwen.soso.com/z/q171879002.htm
百度知道50分，QQ问问100分。
晕，我不是只有20分么，怎么可以给40呀
这个很容易的
VB code:
Option Explicit
Private Sub Command1_Click()
Command1.Enabled = False
WebBrowser1.Navigate2 Text1.Text
End Sub
Private Sub WebBrowser1_DocumentComplete(ByVal pDisp As Object, URL As Variant)
Dim X As Long
List1.Clear
For X = 0 To WebBrowser1.Document.Links.length - 1
if instr(1,WebBrowser1.Document.Links.Item(X),"www.qq.com/eg?")>0 then
List1.AddItem WebBrowser1.Document.Links.Item(X)
endif
Next X
Command1.Enabled = True
End Sub
可用分：共 200 分
WebBrowser1.Navigate2 Text1.Text
Text1.Text 为网址
接点�
相关问答：
比如说要在1表中的第三列第二行单元中输入“一二三”一要粗体宋体12号字，二 不要粗体 15号字 三斜体5号字
代码应该怎么打？
LZ指的是个什么表格控件呢，貌似只能设置整个表的字体，或者某几行或几列，没有单独设� ......
为什么工具栏按扭的宽度改变不了,在属性里改了又变成原来的数值了
大胡子真厉害，回答基本都是爆料级的
大胡子升级真快啊，这才几天就5条短裤外加月排名第一了
想想我这5个短裤混了差不多8年才得到的。
回复 ......
我是VB的新成员，现在想用VB来做个TXT文档，请大家给我代码及介绍一下相应的控件！
非常感谢！！！！！！
可以用一些OFFICE控件
google上找一下吧,VB写入TXT,很多样例代码的
直接调查用就可以了
面对美女 ......
本人使用的是VB6.0版本
假设有一个对象A，A内有类型为B的对象属性。现在的问题是，需要添加若干个B对象作为A对象的属性。如，
A.B1,A.B2,...
但具体添加多少个B对象作为A对象的属性则视具体情况不同而不同 ......
数据库貌似已经连接上了vb，，可是为什么数据库上的数据不能显示在框表中捏？？？
具体的代码？
无码无真相！
你把篮球抱在怀里，就能远投得3分？
麻烦各位大虾了啊。。。
Private Sub Comm1_Click()
& ......
