vb 捉WebBrowser1里的截图

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

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


[解决办法]

VB code

'文件保存在C:\Picure_   Option ExplicitPrivate 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 SubPrivate 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