工程--》引用--》microsoft internet control
private sub form_load()
webbrowser1.navigate your url
end sub
private sub command1_click()
text1.text=WebBrowser1.document.documentElement.innerHTML'取得源文件
text2.text=webbrowser1.document.links(i).href '取得某个链接的地址,其中i 为链接序号
end sub