1、第一步：新建窗体程序打开Visual Studio2010，新建窗体程序，命名为Web browser，然后从工具箱中拖入进空间Web browser，如图：
2、第二步：引入百度搜索导航上级控件，在Code中输入“WebBrowser1.Navigate2 "www.baidu.com"”，然后点击运行，查看效果，如图：
3、第三步：禁止鼠标右键功能在Code主窗体中输入禁用鼠标右键功能代码：Dim WithEve艘绒庳焰nts M_Dom As MSHTM讣嘬铮篌L.HTMLDocumentPrivate Function M_Dom_oncontextmenu() As Boolean M_Dom_oncontextmenu = FalseEnd FunctionPrivate Sub Webbrowser1_DownloadComplete() Set M_Dom = Webbrowser1.Document运行，测试。如图：
4、第四步：调用浏览器收藏夹在Code主代码窗体中输入以下关键代码：Public Function SpecialFolder(By伊怕锱鳏Ref CSIDL As Long) As String 'locate the favorites folder Dim R As Long Dim sPath As String Dim IDL As ITEMIDLIST Const NOERROR = 0 Const MAX_LENGTH = 260 R = SHGetSpecialFolderLocation(MDIMain.hwnd, CSIDL, IDL) If R = NOERROR Then sPath = Space$(MAX_LENGTH) R = SHGetPathFromIDList(ByVal IDL.mkid.cb, ByVal sPath) If R Then SpecialFolder = Left$(sPath, InStr(sPath, vbNullChar) - 1) End If End If运行，测试。如图：
5、第五步：开启全屏显示输入关键代码：Call ShowWindow(FindWindow("Shell_traywnd", ""), 9)，form1.windowstate = 2运行，测试。如图：
6、第六步：选择网页内容输入关键代码：Me.WebBrowser1.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DODEFAULTMsgBox Clipboard.GetText即选择内容，运行，测试。如图：
7、第七步：调用浏览器下载功能进行下载主关键代码：sDownload = StrConv(Te垓矗梅吒xt1.Text, vbUnicode) Call Do僻棍募暖FileDownload(sDownload)Private Sub Form_Load()Text1.Text = "www.baidu.com/1.zip"Form1.Caption = "Audiograbber 1.62 Full"Text2.Text = "http://www.baidu.com/1.zip"运行，测试。如图：
8、第八步：动态加载控件主关键代码：Private Sub Command1_Click() Form1.Controls.Add "shell.explorer.2", "NewWeb", Form1 With Form1!NewWeb .Visible = True .Width = 10000 .Height = 10000 .Left = 0 .Top = 0 .Navigate2 "www.baidu.com"运行，测试。如图：
9、第九步：隐藏滚动条主关键代码：WebBrowser1.Document.body.Scroll = "no"运行，测试。如图：
