調用的時候，我采用了遞歸調用，只要有子窗口沒有關完，就會繼續關。這里用do while的話會多執行一次EnumIE這個函數，大家可以考慮換一種循環方式，我就不多說了。
Set allIE = EnumIE()
Do while allIE.Count>0
For each oIE in allIE.Items
oIE.quit
Next
Set allIE = EnumIE()
Loop
當然了QTP有自己的方法會很快關閉所有的IE窗口：
SystemUtil.CloseProcessByName(“iexplore.exe”)
下面介紹下利用DOM操作測試對象的幾種常用方法，還是用百度主頁做例子，首先將百度主頁加進對象庫。
IE8里會自帶F12開發工具，可以方便你看你需要的DOM屬性
Set oDOM = Browser("百度一下，你就知道").Page("百度一下，你就知道").Object
需要注意的是，此處的Object屬性目前只支持IE，而對其他的瀏覽器目前還沒有加入支持。
1. 通過getElementById方法獲取定位對象，對其進行操作：
oDOM.getElementById("kw").value = "態度決定測試"
oDOM.getElementById("su").click
2. 通過getElementsByName方法獲取定位對象，對其進行操作：
方法一：
Set oEdits = oDOM.getElementsByName("wd")
For each oEdit in oEdits
oEdit.value = "態度決定測試"
Next
oDOM.getElementById("su").click
方法二：
Set oEdits = oDOM.getElementsByName("wd")
oEdits(0).value = "態度決定測試"
oDOM.getElementById("su").click
通過方法名里Element后面的復數形式也大概可以知道這個方法返回的是一個集合，所以需要遍歷集合里的對象獲取這個對象。
3. 通過getElementsByTagName方法獲取定位對象，對其進行操作：
Set oEdits = oDOM.getElementsByTagName("INPUT")
For each oEdit in oEdits
If oEdit.type = "text" Then
oEdit.value = "態度決定測試"
End If
Next
oDOM.getElementById("su").click
用這個方法遍歷之后通常要加判斷，因為一個頁面里可能有很多INPUT標簽。
4. 利用FORM來獲取對象元素，對其進行操作：
oDOM.f.wd.value = "態度決定測試"
oDOM.f.su.click
5. 訪問頁面里的Script腳本變量
通過DOM可以直接訪問到頁面中的JS或者VBS中的變量，還是以百度為例，我們用F12進行探測，可以看到k這個變量： k = d.f.wd
oDOM.parentWindow.k.value = "態度決定測試"
oDOM.getElementById("su").click
從代碼里可以看出，我們只需要通過parentWindow去訪問web頁面中的變量即可。
下面我們來說說利用DOM完成QTP無法完成的任務：
還是百度，假設我們需要驗證一些屬性，此時我們可以使用CurrentStyle來驗證。
Set oDOM = Browser("百度一下，你就知道").Page("百度一下，你就知道").Object
Set p = oDOM.f.CurrentStyle
msgbox p.color
我們可以驗證表單的顏色。
利用DOM還可以提升我們的腳本性能，舉個例子，自己構建一個含有100個文本框的HTML頁面，每個文本框的name屬性都是由text_開頭，之后由1到100遞增。首先將Page對象加到對象庫里去。
效果圖如下：
接下來我們就可以引入保留對象Services的Transaction屬性來驗證性能是否有提高。
QTP描述性編程：
Services.StartTransaction "test"
For i =1 to 100
Browser("Browser").Page("Page").webEdit("name:=text_"+cstr(i)).Set "hello world"
Next
Services.EndTransaction "test"
運行后結果大概用了11.5秒時間填寫完一百個webEdit對象。
DOM操作腳本：
Set oDOM= Browser("Browser").Page("Page").Object
Services.StartTransaction "test"
For i =1 to 100
oDOM.getElementsByName("text_"+cstr(i))(0).value = "hello world"
Next
Services.EndTransaction "test"
結果只用了1.8秒時間，效率驚人。
如果文本框更多的話，那么DOM操作對象的優勢將進一步顯現出來。這對性能的提升會有巨大的幫助。