diff --git a/Frm_Main.frm b/Frm_Main.frm
index 38818bd..25c0baf 100644
--- a/Frm_Main.frm
+++ b/Frm_Main.frm
@@ -10,6 +10,13 @@ Begin VB.Form Frm_Main
    ScaleHeight     =   9390
    ScaleWidth      =   19035
    StartUpPosition =   3  '窗口缺省
+   Begin VB.ListBox lurl 
+      Height          =   5100
+      Left            =   45
+      TabIndex        =   16
+      Top             =   1350
+      Width           =   11670
+   End
    Begin VB.CommandButton pic 
       Caption         =   "图片"
       Height          =   300
@@ -204,14 +211,27 @@ Attribute VB_PredeclaredId = True
 Attribute VB_Exposed = False
 Option Explicit
 Dim strUrl As String
+Dim dWinFolder As New ShellWindows
+Dim WithEvents eventIE As WebBrowser_V1
+Attribute eventIE.VB_VarHelpID = -1
+
+Private Sub Form_Load()
+    Dim objIE As Object
+    For Each objIE In dWinFolder
+    lurl.AddItem objIE.FullName
+        If InStr(1, objIE.FullName, "iexplore.exe") <> 0 Then
+            lurl.AddItem objIE.LocationURL
+        End If
+    Next
+End Sub
 
 Private Sub alibaba_Click()
     web(0).Navigate2 "http://work.1688.com/home/page/index.htm#nav/home"
 End Sub
-
-Private Sub Form_Load()
-    web(0).Navigate2 "http://192.168.0.8:83/"
-End Sub
+'
+'Private Sub Form_Load()
+'    web(0).Navigate2 "http://192.168.0.8:83/"
+'End Sub
 
 Private Sub Form_Resize()
     On Error Resume Next
diff --git a/VB鎺у埗IE.txt b/VB鎺у埗IE.txt
new file mode 100644
index 0000000..c4a98b1
--- /dev/null
+++ b/VB鎺у埗IE.txt
@@ -0,0 +1,81 @@
+IE浏览器完全控制   ,相信现在绝大多数计算机上使用的是IE浏览器。如何通过编程控制IE的操作呢，本文将一步步介绍如何通过VB  调用IE的对象库来对IE进行控制。  
+本文使用的编程工具是VB6英文企业版，浏览器是IE5，以下的代码只能在IE4及以上版本下运行。另外为了能深  
+入了解程序代码，最好能安装MSDN。文中的所有对象、函数、事件在其中都可以查到。  
+   
+一、如何获得Windows中所有打开的浏览器窗口  
+首先打开VB，建立一个新工程，点击菜单   Projects   |   References   项，在Available   References   列表中选择  
+Microsoft   Internet   Controls项将Internet对象引用介入到工程中。添加一个ListBox到Form1，然后在Form1中添  
+加如下代码：  
+Dim   dWinFolder   As   New   ShellWindows  
+   
+Private   Sub   Form_Load()  
+Dim   objIE   As   Object  
+   
+For   Each   objIE   In   dWinFolder  
+If   InStr(1,   objIE.FullName,   "IEXPLORE.EXE",   vbTextCompare)   <>   0   Then  
+List1.AddItem   objIE.LocationURL  
+End   If  
+Next  
+End   Sub  
+打开几个浏览器窗口，然后运行程序，可以看到所有浏览窗口中的URL地址都在List1中列了出来。  
+上面程序中的ShellWindows对象是描述当前所有打开的“浏览窗口”对象集合的对象，利用For...Each语句可以  
+获得其中所有的浏览窗口对象。这是一个WebBrowser对象，在MSDN索引中通过“WebBrowser   Object”中可以找到该  
+对象的详细介绍  
+在ShellWindows中的浏览窗口对象不仅包含IE，还包含Explore窗口（向资源管理器或者“我的电脑”窗口就是  
+Explore）。只不过它们的宿主程序一个是IEXPLORE.EXE，一个是EXPLORE.EXE。所以对每一个对象首先根据其FulName  
+属性来判断窗口是IE浏览器，如果是，则将该窗口的URL地址列出来。  
+通过WebBrowser对象可以获得和设置浏览器窗口中的很多属性，例如窗口大小、工具栏、状态栏状态以及控制  
+窗口的浏览等，大家通过MSDN都可以查到。  
+   
+二、如何得到每一个浏览窗口的内容  
+在上面程序的Form1中再添加一个TextBox控件，将MultiLine属性设置为True，然后在List1的Click事件中添加如  
+下代码：  
+Dim   objDoc   As   Object  
+Dim   objIE   As   Object  
+   
+For   Each   objIE   In   dWinFolder  
+If   objIE.LocationURL   =   List1.List(List1.ListIndex)   Then  
+Set   objDoc   =   objIE.Document  
+   
+For   i   =   1   To   objDoc.All.length   -   1  
+If   objDoc.All(i).tagname   =   "BODY"   Then  
+Text1.Text   =   objDoc.All(i).innerText  
+End   If  
+Next  
+Exit   For  
+End   If  
+Next  
+运行程序，点击ListBox中的一个列表，所对应的浏览器窗口中的文本内容就会显示在TextBox中。  
+在上面的程序中，首先根据ListBox中选择的URL获得Webrowser对象，然后根据Document属性获得文档对象。我们知道  
+一个页面中包括HEAD、TITLE、BODY部分，页面中还可能包括Applet、Script、连接、表单等，这些在文档中都是一个对象  
+在程序中就是循环文档对象下的所有对象，如果对象的名称是“BODY”，说明对象代表HTML文档的正文部分，那么访问对象  
+的innerText属性获得文档正文。关于Document对象更详细的信息，大家可以参考MSDN中Webbrowser   object帮助中的  
+Document属性连接。  
+   
+   
+三、响应IE事件  
+上面的部分只是介绍了如何访问Webbrowser对象的属性，下面介绍如何监控IE事件。  
+在Form1中再添加一个CommandButton。在代码窗口的   [Gengeral]-[Declaration]添加下面的定义：  
+Dim   WithEvents   eventIE   As   WebBrowser_V1  
+这样就在Form1中新添加了一个对象，然后在Command1的Click事件中添加如下代码：  
+Dim   objIE   As   Object  
+   
+For   Each   objIE   In   dWinFolder  
+If   objIE.LocationURL   =   List1.List(List1.ListIndex)   Then  
+Set   eventIE   =   objIE  
+Command1.Enabled   =   False  
+Text1.Text   =   ""  
+Exit   For  
+End   If  
+Next  
+在eventIE的NavigateComplete事件中添加如下代码：  
+Text1.Text   =   Text1.Text   +   Chr(13)   +   Chr(10)   +   URL  
+在Form的UnLoad事件中添加下面一句代码：  
+Set   dWinFolder   =   Nothing  
+运行程序，在ListBox中选择一个URL后点击Command1，然后转到与所选项向对应的浏览窗口输入网站地址进行浏览，可以  
+看到所浏览过的站点地址在TextBox中一一列出。  
+上面的程序实现起来也很简单。首先定义一个可响应事件的Webbrowser对象，然后将它与在ListBox中选择的Webbrowser对  
+象联系起来，当浏览器发生变化时，eventIE对象就能响应相应的事件。  
+根据IE版本的不同，Webbrowser对象也不同，作者的浏览器是IE5.0，在上面将eventIE定义为WebBrowser_V1运行通过，如  
+果你的浏览器版本为4.0的话，可能在执行   Set   eventIE   =   objIE   时，可能产生   Type   mistake   错误，这时你可以尝试将  
+eventIE定义为:Dim   WithEvents   eventIE   As   WebBrowser
\ No newline at end of file
diff --git a/棣栧浘瀵煎嚭宸ュ叿.vbw b/棣栧浘瀵煎嚭宸ュ叿.vbw
index 6cddf97..850b36a 100644
--- a/棣栧浘瀵煎嚭宸ュ叿.vbw
+++ b/棣栧浘瀵煎嚭宸ュ叿.vbw
@@ -1,5 +1,5 @@
-Frm_Main = 0, 0, 984, 374, , 0, 0, 918, 535, C
+Frm_Main = 0, 0, 984, 374, , 0, 0, 1070, 535, C
 TzDownload = 0, 0, 0, 0, C, 0, 0, 0, 0, C
 TzListBox = 0, 0, 0, 0, C, 0, 0, 0, 0, C
-Frm_Download = 0, 0, 0, 0, C, 0, 0, 0, 0, C
+Frm_Download = 44, 44, 1095, 418, , 110, 110, 1094, 484, C
 TzProgressBar = 0, 0, 0, 0, C, 0, 0, 0, 0, C