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
例 打开google搜索
//打开google
ole_webbrowser.object.navigate("www.google.com")
//输入搜索内容
ole_webBrowser.object.Document.GetElementsByName("q").item(0).SetAttribute("value", "xys_777")
//执行按钮
ole_webBrowser.object.Document.GetElementsByname("btnG").item(0).click