اين كد از صفحه نمايش يك تصوير ميگيرد و با فرمت bmp ذخيره مينمايد شما ميتوانيد با اين برنامه از صفحه نمايش يك كامپيوتر روي شبكه عكس بگيريد.اين تابع آدرسي براي ذخيرهسازي فايل bmp از شما ميگيرد.
کد:
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, _
ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Public Function fSaveGuiToFile(ByVal theFile As String) As Boolean
Dim lString As String
On Error goto Trap
'تست وجود فايل
If Dir(theFile) <> "" Then Exit Function
'گرفتن كل تصوير
Call keybd_event(vbKeySnapshot, 1, 0, 0)
'گرفتن پنجره فعال
'Call keybd_event(vbKeySnapshot, 0, 0, 0)
SavePicture Clipboard.GetData(vbCFBitmap), theFile
fSaveGuiToFile = True
Exit Function
Trap:
'خطاها
MsgBox "Error Occured in fSaveGuiToFile. Error #: " & Err.Number & ", " & Err.Description
End Function
