Capture Screen under Vista & Win7

[PouriaAmid]

والا وی بی 6 و که من بيخيال شدم ديگه چون با همه چی مشکل داره تو ويستا
تو .net هم همه جور راه و امتحان کردم بازم جواب نداد.
اگه توجه کرده باشی اکثر برنامه های رموت دسکتاپ وقتی که ويستا اومد از کار افتادن.
مثلاً رادمين، به جاش ورژن 3 رو دادن بيرون که با ويدو هوک کار ميکنه.
تو forum ميکروسافت هم من زدم ولی فعلاً کسی راهی پيدا نکرده. يه مشکل اصلی برنامه اينه که windows بهش اکسس نميده واسه گرفتن capture
اين کد رو امتحان کن. رو xp جواب ميده ولی ويستا نه

کد php:

Imports System

Imports System.Windows.Forms

Imports System.Drawing

Imports System.Drawing.Bitmap



Public Class Form1

    Dim memoryImage As Bitmap



    Private Sub CaptureScreen()

        Dim myGraphics As Graphics = Me.CreateGraphics()

        Dim s As Size = Screen.PrimaryScreen.Bounds.Size



        memoryImage = New Bitmap(s.Width, s.Height, myGraphics)

        Dim memoryGraphics As Graphics = Graphics.FromImage(memoryImage)

        memoryGraphics.CopyFromScreen(0, 0, 0, 0, s)

        memoryImage.Save("C:\test.jpg")

    End Sub

End Class