vb 抓WebBrowser1里的截图
有一WebBrowser1，点击Command1显示www.163.com,点击Command2把WebBrowser1里显示的截为图片保存在C：\pic下，自动命名为pic001.bmp

请问，点击Command2把WebBrowser1里显示的截为图片保存在C：\pic下，自动命名为pic001.bmp 应该怎么写？谢谢！

[解决办法]

'文件保存在C:\Picure_   


Option Explicit
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Private Sub Form_Load()
   Timer1.Enabled = True
   Timer1.Interval = 5000         '5秒保存一次图
End Sub

Private Sub Timer1_Timer()
          prog
  End Sub
    
  '执行程序段
 Private Sub prog()
     Dim Path  As String
     Dim DirName As String
     Dim JPGNnme As String
    DirName = "C:\Picure_" & Format(Now, "yyyy-mm-dd")      '文件夹名"picure_2008-10-05"
    Path = DirName & "\" & Format(Now, "hh时mm分ss秒") & ".JPG"  '文件名  "1时13分02秒.JPG"
        If Dir(DirName, vbDirectory) = "" Then        '先判断是否有这个文件夹
        MkDir (DirName)                              '没有就新建
        End If
       
    keybd_event vbKeySnapshot, 0&, 0&, 0&
    DoEvents
    Picture1.Picture = Clipboard.GetData(vbCFBitmap)
    SavePicture Picture1.Picture, Path
  End Sub

[解决办法]
正解：
Dim tdoc As MSHTML.HTMLDocument
Dim tIV As olelib.IViewObject2
Set tdoc = web.document
Set tIV = tdoc
tIV.Draw DVASPECT_CONTENT, 1, ByVal 0, ByVal 0, 0&, Picture1.hDC, tRc, tRc, ByVal 0, ByVal 0