screenshot capture 1

[compnut24]

anyone have a program that can automatically take a screenshot and save it in a specified folder every 5 minutes, or at intervals i mean? i want to have my screenshot as part of my website...

 

[visualJay]

try these I have used both before this is not my code it is from a vb square posting. I have a little differant code I use.

This is just a screen capture

http://www.vbsquare.com/graphics/tip446.html

This is a screen capture put into a form.

http://www.vbsquare.com/graphics/tip276.html

This was just something Quick for you I had saved in favorites.

 

[strongm]

Here's a mino reworking of an earlier thread (thread711-118908), that may be of some assistance:

Add a module to your project, and drop in the following code:
[tt]
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 Const VK_MENU = &H12
Private Const VK_SNAPSHOT = &H2C
Private Const KEYEVENTF_KEYUP = &H2
Public Const SnapScreen = &H0
Public Const SnapWindow = &H1

Public Function Snapshot(SnapType As Long) As StdPicture

If SnapType = SnapWindow Then keybd_event VK_MENU, 0, 0, 0 'Simulate pressing ALT

' Simulate pressing and releasing PrtScn
keybd_event VK_SNAPSHOT, 0, 0, 0
keybd_event VK_SNAPSHOT, 0, KEYEVENTF_KEYUP, 0

If SnapType = SnapWindow Then keybd_event VK_MENU, 0, KEYEVENTF_KEYUP, 0 ' Simulate releasing ALT

DoEvents ' allow inserted keyboard events to be processed
Set Snapshot = Clipboard.GetData(0)

End Function
[/tt]
Now add a timer to a form, set the interval appropriately (you'll need to figure out for your self how to deal with intervals greater than approx 1 minute), and drop in the following code:
[tt]
Option Explicit

Private Sub Timer1_Timer()
Call SavePicture(Snapshot(SnapScreen), "c:\myscreensnapshot.bmp&quot ' Change the filename to whatever you like
End Sub
[/tt]

 

[compnut24]

ok, i did what you guys suggested, but: is there anyway to convert this bitmap to a .jpg, or .gif before it saves? that way it will work on all browsers (not just IE) and it will have a faster loading time. does anyone know how to do this?

 

[strongm]

It get's a mite more complicated if you want to save it as a .jpg, and generally involves getting hold of a 3rd party control if you want to save as a .gif

 

[WhiteTiger]

Yup, I would just suggest getting one of those freeware ocx controls...it should do it for ya...=) Regards,
Anthny
----------------------------------------
"You say [red]insanity[/red] like it's a BAD THING!"

 

[compnut24]

where can i get one of those?