Any 'Windows Service' Experts? Why can't I capture the screen??

[gwhite1]

I use this code to capture a screen in a regular VB 2005 windows app.
It works great! I found the code in google. But when I create a windows
service it does not capture the screen. It only captures a blank
graphic. Does anyone know why it will not capture the current screen?
Is something not available when running as a service? Thanks!!!
Sheila

Function CreateScreensho t() As System.Drawing. Bitmap
Dim Rect As System.Drawing. Rectangle =
System.Windows. Forms.Screen.Pr imaryScreen.Bou nds
Dim gDest As System.Drawing. Graphics
Dim hdcDest As IntPtr
Dim hdcSrc As Integer

CreateScreensho t = New System.Drawing. Bitmap(Rect.Rig ht,
Rect.Bottom)
gDest = gDest.FromImage (CreateScreensh ot)

hdcSrc = GetDC(0)
hdcDest = gDest.GetHdc
BitBlt(hdcDest. ToInt32, 0, 0, Rect.Right, Rect.Bottom, hdcSrc,
0, 0, SRCCOPY)
gDest.ReleaseHd c(hdcDest)
ReleaseDC(0, hdcSrc)
End Function

[Chris]

gw*****@kc.rr.c om wrote:

I use this code to capture a screen in a regular VB 2005 windows app.
It works great! I found the code in google. But when I create a windows
service it does not capture the screen. It only captures a blank
graphic. Does anyone know why it will not capture the current screen?
Is something not available when running as a service? Thanks!!!
Sheila

Function CreateScreensho t() As System.Drawing. Bitmap
Dim Rect As System.Drawing. Rectangle =
System.Windows. Forms.Screen.Pr imaryScreen.Bou nds
Dim gDest As System.Drawing. Graphics
Dim hdcDest As IntPtr
Dim hdcSrc As Integer

CreateScreensho t = New System.Drawing. Bitmap(Rect.Rig ht,
Rect.Bottom)
gDest = gDest.FromImage (CreateScreensh ot)

hdcSrc = GetDC(0)
hdcDest = gDest.GetHdc
BitBlt(hdcDest. ToInt32, 0, 0, Rect.Right, Rect.Bottom, hdcSrc,
0, 0, SRCCOPY)
gDest.ReleaseHd c(hdcDest)
ReleaseDC(0, hdcSrc)
End Function

The windows service runs in it's own session. This is why you can't
make an interactive service and you can't screen capture.

Chris

[gene kelley]

On 24 Apr 2006 18:43:47 -0700, gw*****@kc.rr.c om wrote:

I use this code to capture a screen in a regular VB 2005 windows app.
It works great! I found the code in google. But when I create a windows
service it does not capture the screen. It only captures a blank
graphic. Does anyone know why it will not capture the current screen?
Is something not available when running as a service? Thanks!!!
Sheila

Function CreateScreensho t() As System.Drawing. Bitmap
Dim Rect As System.Drawing. Rectangle =
System.Windows .Forms.Screen.P rimaryScreen.Bo unds
Dim gDest As System.Drawing. Graphics
Dim hdcDest As IntPtr
Dim hdcSrc As Integer

CreateScreensho t = New System.Drawing. Bitmap(Rect.Rig ht,
Rect.Bottom)
gDest = gDest.FromImage (CreateScreensh ot)

hdcSrc = GetDC(0)
hdcDest = gDest.GetHdc
BitBlt(hdcDest. ToInt32, 0, 0, Rect.Right, Rect.Bottom, hdcSrc,
0, 0, SRCCOPY)
gDest.ReleaseHd c(hdcDest)
ReleaseDC(0, hdcSrc)
End Function

I'm not sure if this is related, but:
With Windows Media Player ver 9 and earlier, you use to be able to
screen capture a running video via the PrintScreen key and the frame
that was playing at the time would show in the resulting capture. With
ver 10 (and possibly from an additional XP upgrade), you no longer can
capture the frame. All you get is a blank media player. Screen capture
of a running video on any other player that I have, here, works as
expected.

I don't recall what MS calls it, but I believe it has something to do
with their attempt to protect media licensing rights.

Gene

[Cor Ligthert [MVP]]

GWhite,

A service cannot reach (direct) the screen. (I never tried it, therefore it
was to often written here).

Cor

<gw*****@kc.rr. com> schreef in bericht
news:11******** *************@v 46g2000cwv.goog legroups.com...

I use this code to capture a screen in a regular VB 2005 windows app.
It works great! I found the code in google. But when I create a windows
service it does not capture the screen. It only captures a blank
graphic. Does anyone know why it will not capture the current screen?
Is something not available when running as a service? Thanks!!!
Sheila

Function CreateScreensho t() As System.Drawing. Bitmap
Dim Rect As System.Drawing. Rectangle =
System.Windows. Forms.Screen.Pr imaryScreen.Bou nds
Dim gDest As System.Drawing. Graphics
Dim hdcDest As IntPtr
Dim hdcSrc As Integer

CreateScreensho t = New System.Drawing. Bitmap(Rect.Rig ht,
Rect.Bottom)
gDest = gDest.FromImage (CreateScreensh ot)

hdcSrc = GetDC(0)
hdcDest = gDest.GetHdc
BitBlt(hdcDest. ToInt32, 0, 0, Rect.Right, Rect.Bottom, hdcSrc,
0, 0, SRCCOPY)
gDest.ReleaseHd c(hdcDest)
ReleaseDC(0, hdcSrc)
End Function

[Patrice]

Try perhaps to check the "allow service to interact with desktop" checkbox.

A service is generally not tied to the desktop. It runs in its own
context...

--
Patrice

<gw*****@kc.rr. com> a écrit dans le message de news:
11************* ********@v46g20 00...legro ups.com...

I use this code to capture a screen in a regular VB 2005 windows app.
It works great! I found the code in google. But when I create a windows
service it does not capture the screen. It only captures a blank
graphic. Does anyone know why it will not capture the current screen?
Is something not available when running as a service? Thanks!!!
Sheila

Function CreateScreensho t() As System.Drawing. Bitmap
Dim Rect As System.Drawing. Rectangle =
System.Windows. Forms.Screen.Pr imaryScreen.Bou nds
Dim gDest As System.Drawing. Graphics
Dim hdcDest As IntPtr
Dim hdcSrc As Integer

CreateScreensho t = New System.Drawing. Bitmap(Rect.Rig ht,
Rect.Bottom)
gDest = gDest.FromImage (CreateScreensh ot)

hdcSrc = GetDC(0)
hdcDest = gDest.GetHdc
BitBlt(hdcDest. ToInt32, 0, 0, Rect.Right, Rect.Bottom, hdcSrc,
0, 0, SRCCOPY)
gDest.ReleaseHd c(hdcDest)
ReleaseDC(0, hdcSrc)
End Function