Web Browser Control...

[kerv21]

First, I have a web browser control that loads a webpage.

Once the webpage is loaded I then need to make a copy of that webpage and store it as a bitmap image in root drive c:\ of local machine.

Here's what I have so far... (Select, Copy, Clear selection)
But how do you create/save selection as image from clipboard ??
Is their a better way to do what I need ??

  ' Select all from webbrowser
  WebBrowser1.ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DONTPROMPTUSER
  ' Copy the text to Clipboard
  WebBrowser1.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DONTPROMPTUSER
  ' Clear the selection
  WebBrowser1.ExecWB OLECMDID_CLEARSELECTION, OLECMDEXECOPT_DONTPROMPTUSER

[Hack]

Try this

Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, _ 
ByVal dwFlags As Long, ByVal dwExtraInfo As Long) 

Private Const VK_SNAPSHOT = &H2C 

Private Function SaveScreen(ByVal pstrFileName As String) As Boolean 

'To get the Entire Screen 
Call keybd_event(vbKeySnapshot, 1, 0, 0) 

'To get the Active Window 
'Call keybd_event(vbKeySnapshot, 0, 0, 0) 

SavePicture Clipboard.GetData(vbCFBitmap), pstrFileName 

SaveScreen = True 
 
End Function 

Private Sub Command1_Click()
Call SaveScreen("C:\Windows\Desktop\shot1.bmp") 
End Sub

[kerv21]

Hack...

First off, thanks for your helpful code and quick reply !!!

I have tried out you code and it works great... However I really need to be able to capture only what is contained within the web browser control and not the entire form.

Thanks Again !!!

[Hack]

If you notice that the code I posted gives you two options.

Entire Screen is active.

Comment that out, and use the other one which is just the Active Window. See how that works.

[kerv21]

Hack,

I must be doing something wrong because it gives me the same image as before (the entire screen).

I first thought maybe I needed to "setfocus" to the web browser control before calling your routine but that was no help...

 
  WebBrowser1.SetFocus
  Call SaveScreen("C:\" & Format(Now, "HHMMSS") & ".bmp")
  
  Clipboard.Clear  ' <-- doesn't seem to clear clipboard ??

[Hack]

Arey you using Call keybd_event(vbKeySnapshot, 0, 0, 0) instead of Call keybd_event(vbKeySnapshot, 1, 0, 0)

[kerv21]

Yup... Calling the correct line.

Call keybd_event(vbKeySnapshot, 0, 0, 0)