عکس گرفتن از صحفه نمایش

آیا میشه با تابع send keysو با فرستادن دکمهprint screen از صفحه نمایش عکس گرفت
اگه میشه اون عکس رو چتوری میشه به صورت یک عکس ذخیره کرد

نقل قول:

---

نوشته شده توسط amirtar [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

آیا میشه با تابع send keysو با فرستادن دکمهprint screen از صفحه نمایش عکس گرفت
اگه میشه اون عکس رو چتوری میشه به صورت یک عکس ذخیره کرد

---

با تابع Sendkeys نمی تونی از صفحه نمایش عکس بگیری ولی می تونی از تابع keybd_event استفاده کنی

کد:

---

Private Const KEYEVENTF_KEYUP = &H2
Private Const KEYEVENTF_KEYDOWN = &H0
Private Declare Sub keybd_event Lib "user32.dll" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Sub Command1_Click()
keybd_event vbKeySnapshot, 0, KEYEVENTF_KEYDOWN, 0
keybd_event vbKeySnapshot, 0, KEYEVENTF_KEYUP, 0
SavePicture Clipboard.GetData(vbCFBitmap), "c:\PrintScreen.BMP"
End Sub

---