1、插入一个webbrowser控件命名
ole_webbrowser
2、写个打开网页的按钮
ole_webbrowser.object.navigate("www.baidu.cn")
3、插入一个listbox控件
4、写个获得链接的按钮
int i,count
string ls_link[]
count = ole_webBrowser.object.Document.getElementsByTagName("A").length
//messagebox('',string(i))
For i = 0 To count - 1
ls_link[i+1] = ole_webBrowser.object.Document.getElementsByTagName("A").item(i,1).getAttribute("HREF")
next
for i=1 to count
lb_1.additem(ls_link[i])
next