سلام دوستان خسته نباشید
من امروز دنبال یک برنامه برای عکس گرفتن از دسکتاپ با(ویژوال بیسیک 6) vb6 بودم در اخر یک خوب پیدا کردم که از دسکتاپ اسکرین شات میگیره اما مشکلم اینه که این کد عکس هارو با حجم بالا ذخیره میکنه شما میتوننین به من کدی رو بگید که همین کار رو انجام بده(از صفحه عکس بگیره و ذخیره کنه) اما با حجم کم؟؟؟
کدی که من پیدا کردم:


Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetDC Lib "user32" (ByVal hwnd As Long) As Long
Private Declare Function BitBlt Lib "gdi32" (ByVal hDestDC As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hSrcDC As Long, ByVal xSrc As Long, ByVal ySrc As Long, ByVal dwRop As Long) As Long
Private Const SRCCOPY = &HCC0020


Private Sub Form_Load()

H = GetDesktopWindow()

C = GetDC(H)

Picture1.Visible = False

Picture1.AutoRedraw = True

Picture1.Width = Screen.Width

Picture1.Height = Screen.Height

BitBlt Picture1.hDC, 0, 0, Screen.Width / Screen.TwipsPerPixelX, Screen.Height / Screen.TwipsPerPixelY, C, 0, 0, SRCCOPY

SavePicture Picture1.Image, Text1.Text

End Sub