送分啊，会者不难啦，两个关于VB和OS的问题

Question

1，如何模拟发送键盘F5按下事件
2，如何在后台将当前打开的页面保存成HTML文本，直接在后台做，不要出现对话框的

Answer 1

SendKeys "{F5}"   刚才错了，呵呵

Answer 2

2：
  需要引用Microsoft Internet Controls 文件
Private Sub GetBody()
Dim dWinFolder As New ShellWindows                         'IE窗口
Dim objIE As Object
Dim objDoc As Object
Dim i As Integer
   For Each objIE In dWinFolder
          If objIE.LocationURL = "http://community.csdn.net/Expert/topic/4527/4527566.xml?temp=.1874964" Then
                Set objDoc = objIE.Document
                For i = 1 To objDoc.All.Length - 1
                    If objDoc.All(i).tagname = "BODY" Then
                      Text1(0).Text = objDoc.All(i).innerText
                    End If
                Next
               
            Exit For
        End If
Next
End Sub