سلام دوستان خسته نباشید
من امروز دنبال یک برنامه برای عکس گرفتن از دسکتاپ با(ویژوال بیسیک 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