关于IE页面下载功能的问题

[baidu_35758633]

有谁知道下面这个方法在做什么吗
可以换成vb.net 给我吗 急！在线等
IeScreen 对象是IE窗口对象
TypeName(IeScreen.Document) = "HTMLDocument"


Public Function downloadFromWeb() As Boolean
Dim iA As IUIAutomation
Dim iAE As IUIAutomationElement
Dim handle As Long
Dim iCnd As IUIAutomationCondition
Dim Button As IUIAutomationElement
Dim InvokePattern As IUIAutomationInvokePattern
Dim iElemFound As IUIAutomationElement
Dim iValuePattern As IUIAutomationValuePattern

downloadFromWeb = True
Set iA = New CUIAutomation

handle = IeScreen.hWnd
' Application.Wait Now() + TimeValue(RUN_WAIT_TIME) '
handle = FindWindowEx(handle, 0, "Frame Notification Bar", vbNullString)

If handle = 0 Then
downloadFromWeb = True

Exit Function
End If

Do
DoEvents
Application.Wait Now() + TimeValue(RUN_WAIT_TIME)
Loop Until IsWindowVisible(handle)

Set iAE = iA.ElementFromHandle(ByVal handle)


Set iCnd = iA.CreatePropertyCondition(UIA_NamePropertyId, "通知栏显示")
Set iElemFound = iAE.FindFirst(TreeScope_Subtree, iCnd)
Set iValuePattern = iElemFound.GetCurrentPattern(UIA_ValuePatternId)

Do
DoEvents

If iValuePattern.CurrentValue Like "*打开还是保存?*” Then
'download开始的时候，保存按钮按下
Set iCnd = iA.CreatePropertyCondition(UIA_NamePropertyId, "保存")
Set iElemFound = iAE.FindFirst(TreeScope_Subtree, iCnd)
Set InvokePattern = iElemFound.GetCurrentPattern(UIA_InvokePatternId)
InvokePattern.Invoke

Exit Do
End If
Loop

'download结束的时候 message表示
Set iCnd = iA.CreatePropertyCondition(UIA_NamePropertyId, "*通知栏显示*")
Set iElemFound = iAE.FindFirst(TreeScope_Subtree, iCnd)
Set iValuePattern = iElemFound.GetCurrentPattern(UIA_ValuePatternId)

Do
DoEvents

If iValuePattern.CurrentValue Like "*已下载*" Then
'下载结束message表示的时候，关闭按钮按下
Set iCnd = iA.CreatePropertyCondition(UIA_NamePropertyId, "关闭")
Set iElemFound = iAE.FindFirst(TreeScope_Subtree, iCnd)
Set InvokePattern = iElemFound.GetCurrentPattern(UIA_InvokePatternId)
InvokePattern.Invoke

Exit Do
End If
Loop

End Function