Capturing Screen Display (Peer)

[rmsrelay]

Anybody has an idea on how to capture the screen display of
Computer A to Computer B (vice versa) considering that these computers are connected through LAN?

Thankx...

[chenko]

Declare Function BitBlt Lib "gdi32" _
(ByVal hDestDC As Integer, ByVal x As Integer, _
ByVal y As Integer, ByVal nWidth As Integer, _
ByVal nHeight As Integer, ByVal _
hSrcDC As Integer, ByVal xSrc As Integer, _
ByVal ySrc As Integer, ByVal dwRop As _
Long) As Integer

Declare Function GetDesktopWindow Lib "user32" () As Long

Declare Function GetDC Lib "user32" _
(ByVal hwnd As Long) As Long

Sub Grabscreen(Dest As PictureBox)
    Dim DeskhWnd As Long, DeskDC As Long

    'Get the hWnd of the desktop
    DeskhWnd = GetDesktopWindow()

    'BitBlt needs the DC to copy the image. So, we
    'need the GetDC API.
    DeskDC = GetDC(DeskhWnd)

    Dest.AutoRedraw = True
    BitBlt Dest.hDC, 0, 0, _
    Screen.Width / Screen.TwipsPerPixelX, Screen.Height / Screen.TwipsPerPixelY, DeskDC, _
    0, 0, vbSrcCopy
    Dest.Refresh
End Sub

Use that to get the screen shot, then send the file via winsock...

[rmsrelay]

How will i send the file to another computer?
What file format will I used?
Does this work fast?

[chenko]

If you are on a LAN it wont take long, you will have to use winsock to transfer the file, do a search on it. You can always put the file to a shared location and pick it up from there.

[rmsrelay]

the reason why im so excited with this simply because, there was a time that i was invited by my friend at STI college. There, I really appreciate their computer facilities which they call it MBS.

They have 1 computer to be used by the Instructor and a lot of computers used by the students. They used the system for instruction. As the instructor click the general broadcast, all the display of student's computer will have to display what is on the Instructor's computer. Including mouse movement, clicking start menu etc. It is so very identical.

I was so inspired that i can do the same with VB by using the same as what what you've been given to me. but the problem is mouse pointer could not be captured.

But actually when i first saw their system, my concept is this, the video memory of student's computers was disabled and it gets from the Instructor's computer video memory.

Am i right with my idea?

Thank you very much for understanding me, im not so good in english, just try to understand my grammar, because im a filipino wanting to discover more about visual basic.

Is there a way to access the data of the physical memory?

[plenderj]

You dont need to mess with memory or whatever.
You could just make a picturebox the exact same size of the screen, and make sure its always on top.

Then when you receive the filedata via winsock, you would just stick the file into the picturebox.

[rmsrelay]

Is it possible to display one's computer's screen to another unnoticeable by the observer that it is actually loading a received file? (i mean no delay capturing including mouse pointer)

for example; when i have to make a demo, when i click start button, the observers on other computer would also see what i've done with my computer, etc. as in very indentical.

do i have to save it first to a bmp file in order to send it to another computer via winsock?

please give light to my confusions and doubts.

thankx for your help...

[plenderj]

Well saving it first would be the easiest way of doing it.
But you dont have to do it that way.

[rmsrelay]

then how will i do it...

oh... please, please help . . .

source code is more advantageous. . .

hello.... to somebody out there who is generous...

please naman ohhh. tabangi ko ninyo.....

[rmsrelay]

then how will i do it...

oh... please, please help . . .

source code is more advantageous. . .

hello.... to somebody out there who is generous...

please naman ohhh. tabangi ko ninyo.....

[Radames]

Well, that sounds like a hell of an application. I doubt someone's just gonna code it for you. Get a good book on Visual Basic and good luck!

[rmsrelay]

do you have some to best recommend to me.

but if you have some friends out there who is very good in vb, can you solicit source code for me?

thanks....

[plenderj]

The source code for taking a screengrab is available on the net.
All you have to do is look for it.

[Genxcop]

Try using this SDK. from Techsmith.

www.techsmith.com/products/camtasia/camtasia.asp

It claims to be able to do what you want but I haven't tried it so good luck.

[plenderj]

Might I mention that the code chenko posted works for taking a screenshot ...

[mohan_sekar]

Hi,

If you want code for captuing the desktop of any machine in a network and transfer that image to some other machine, contact me.

[email protected]

:-)

bye

Mohan

[plenderj]

Yeah well I want booze, drugs, strippers and pizza.

E-Mail me at [email protected]

[Radames]

oohhh oohh
naman ohhh. tabangi ko ninyo
thank you mister for code!
ohh ohh thank you
someone please give me napkin I wet my pants
oh oh naman ohhh. tabangi ko ninyo

LOL

[Radames]

what does naman ohhh. tabangi ko ninyo mean anyway?

[Piltdown Man]

Originally posted by chenko

Declare Function BitBlt Lib "gdi32" _
(ByVal hDestDC As Integer, ByVal x As Integer, _
ByVal y As Integer, ByVal nWidth As Integer, _
ByVal nHeight As Integer, ByVal _
hSrcDC As Integer, ByVal xSrc As Integer, _
ByVal ySrc As Integer, ByVal dwRop As _
Long) As Integer

Declare Function GetDesktopWindow Lib "user32" () As Long

Declare Function GetDC Lib "user32" _
(ByVal hwnd As Long) As Long

Sub Grabscreen(Dest As PictureBox)
    Dim DeskhWnd As Long, DeskDC As Long

    'Get the hWnd of the desktop
    DeskhWnd = GetDesktopWindow()

    'BitBlt needs the DC to copy the image. So, we
    'need the GetDC API.
    DeskDC = GetDC(DeskhWnd)

    Dest.AutoRedraw = True
    BitBlt Dest.hDC, 0, 0, _
    Screen.Width / Screen.TwipsPerPixelX, Screen.Height / Screen.TwipsPerPixelY, DeskDC, _
    0, 0, vbSrcCopy
    Dest.Refresh
End Sub

Chenko - as you see from my thread on this I'm trying to block capture through GetDC (which we think clevercontent.com does to stop screen capture). The best that I can think of is to have GetDC fired by a timer to keep it full but there must be a better way - can you help here?

[Piltdown Man]

OK I've just tried GetDC in a timer and it doesn't stop PSP grabbing an individual window so we need someone who know what they are doing to help here

[Kzin]

Originally posted by chenko

Declare Function BitBlt Lib "gdi32" _
(ByVal hDestDC As Integer, ByVal x As Integer, _
ByVal y As Integer, ByVal nWidth As Integer, _
ByVal nHeight As Integer, ByVal _
hSrcDC As Integer, ByVal xSrc As Integer, _
ByVal ySrc As Integer, ByVal dwRop As _
Long) As Integer

Declare Function GetDesktopWindow Lib "user32" () As Long

Declare Function GetDC Lib "user32" _
(ByVal hwnd As Long) As Long

Sub Grabscreen(Dest As PictureBox)
    Dim DeskhWnd As Long, DeskDC As Long

    'Get the hWnd of the desktop
    DeskhWnd = GetDesktopWindow()

    'BitBlt needs the DC to copy the image. So, we
    'need the GetDC API.
    DeskDC = GetDC(DeskhWnd)

    Dest.AutoRedraw = True
    BitBlt Dest.hDC, 0, 0, _
    Screen.Width / Screen.TwipsPerPixelX, Screen.Height / Screen.TwipsPerPixelY, DeskDC, _
    0, 0, vbSrcCopy
    Dest.Refresh
End Sub

Use that to get the screen shot, then send the file via winsock...

Wha is the correct way to call this?
Call Grabscreen(Picture1.Picture) and Call Grabscreen(Picture1.hDC) are wrong

[chenko]

Originally posted by Kzin


Wha is the correct way to call this?
Call Grabscreen(Picture1.Picture) and Call Grabscreen(Picture1.hDC) are wrong

Call Grabscreen(Picture1)