Visual Basic’le Ekranın Fotoğrafını Çekin

[KuTuKa]

Visual Basic’le Ekranın Fotoğrafını Çekin

Option Explicit
Private Declare Sub keybd_event Lib "user32" (ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)

Private Sub Command1_Click()
Call keybd_event(vbKeySnapshot, 0, 0, 0) ‘command button’un Click olayına yazdığımız bu kod ekranın fotosunu çeker.bu kod klavyedeki “print screen” tuşunun görevini yapmış olur.’

DoEvents ' Clipboarda Çekilen Resmin Kopyalanması için Bilgisayarı bekletir ’
SavePicture Clipboard.GetData(vbCFBitmap), "" & App.Path & "\EkranFoto.bmp" ' Resimi verilen dizine kaydeder ‘
End Sub





Arkadaşlar ben denedim ama bu excel makrolarından değil herhalde ama excel içinde olsa iyi bir uygulama olabilir.bir bakın isterseniz
iyiakşamlar
halil kutuka

 

[safaari]

KeyCodeConstants.vbKeySnapshot o komutları bu kodlarla yazarsan sanırım istediğine ulaşırsın. ama fazla açıklama yapmıyorum. çok tehlikeli anladın sen onu