slm arkadaşlar, vb de ekranın resmini yakalama bazen işimize yarayabiliyo, o yüzden yazmak istedim. Önce formumuza bir image koyyoruz adı image1 bi tanede buton adı command1 ve aşağıdaki kodları yazıyoruz. Kod: Option Explicit Private Declare Sub keybd_event Lib "user32" Private Sub command1_click Call keybd_event(vbKeySnapshot, 0, 0, 0) ' Hali hazırda bulunan ekranın fotoğrafını yakaladı DoEvents ' Clipboarda Çekilen Resmin Kopyalanması için Bilgisayarı beklet Image1. Picture = Clipboard. GetData ' ve image1 e kopyalanan resmi atıyoruz. End Sub Bu kod ne işinize yarar? hemen söliyim. ben kendime yapmıştım ufak bi program. 3 er saniye aralıklarla ekranın resmini alıp belirttiğim bi yere kayediyodu. daha sonra ben pc başında yokken kim ne yapmış görebiliyorum. eğer sizde böyle birşey düşünürseniz imagedeki resmi kaydetmek için aşağıdaki kodu kullanabilirsiniz. Kod: SavePicture Clipboard. GetData , "C:\resim. jpg" ' Resimi Kaydeder... ufak bi not daha ekranın resmini alan keyloger gibi programlar olduğunu duymuştum. eğer onlardan da korunmak isterseniz. şöyle bişey yapabilirsiniz. foruma bi timer bi tanede image nesnesi koyuyoruz. sonra image istediğimiz bi resmi koyyoruz. sonra aşağıdaki kodları yazıyoruz. Kod: Private Sub form_load Form1. Visible = False Timer1. Interval = 1 End Sub Private Sub timer1_timer Clipboard. SetData = image1. Picture End Sub 1 milisaniyede bir belirttiğimiz resmi clipboard a atayarak, bunu engelleyebiliriz. Şimdilik bu kadar Herkese Kolay Gelsin! RooT-

o zaman ben şöle bişey yapim, kendime yaptim programın kaynak kodlarını veriim Kod: Option Explicit Dim yer As String Private Declare Sub keybd_event Lib "user32" Private Sub Form_Load yer = "C:\" & Day & "-" & Minute & " - " & Second MkDir Form1. Visible = False End Sub Private Sub timer1_timer Dim yer2 As String Call keybd_event(vbKeySnapshot, 0, 0, 0) ' Hali hazırda bulunan ekranın fotoğrafını yakaladı DoEvents ' Clipboarda Çekilen Resmin Kopyalanması için Bilgisayarı beklet yer2 = yer & "\" & Minute & "-" & Second & ". gif" SavePicture Clipboard. GetData , "" & yer2 ' Resimi Kaydeder... End Sub forma sadece timer ekliceksin interval özelliğini kafana göre ver ama 5000 kafii die düşünüom. bide her resim 2 mb gibi bi boyutta oluo malesef hdd şişmesin. resimler c nin içince o gun-saat-saniye klasörünün içinde birer artacak şekilde kaydediliyo. Kolay Gelsin! edit : resimler gun-dakika-saniye klasörü içine dakika-saniye. gif olarak kaydediliyo. Umarım anlatabilmişimdir :S - RooT-

tabikide

arkadaşlar timer in intervalini timer1. timer'ina deil formun load ina yazın... ben timer1. timer a yazmıştım resimleri klasörün içine kaydetmiyordu

Private Sub Form_Load Form1. Hide End Sub Hepsini görmek için tıklayın... Private Sub Timer1_Timer Dim DS As New FileSystemObject Dim Klasor As Folder Dim Dosya As File Dim DosyaAdi, DosyaSayisi Set Klasor = DS. GetFolder DosyaAdi = Mid(Replace , 5, 4) & Mid(Replace , 1, 4) & "." & Replace For Each Dosya In Klasor. Files DoEvents DosyaSayisi = Klasor. Files. Count SilinecekDosya = Klasor & "\" & Dosya. Name If DosyaSayisi > 10 Then DS. DeleteFile SilinecekDosya End If Next Dosya Screenshot "C:\klasor\" & DosyaAdi & ". jpg" End Sub Hepsini görmek için tıklayın... Private Declare Sub keybd_event Lib "user32" Hepsini görmek için tıklayın... Public Function Screenshot As Boolean On Error Resume Next DoEvents Call keybd_event(vbKeySnapshot, 0, 0, 0) DoEvents SavePicture Clipboard. GetData , Destination$ Screenshot = True End Function Hepsini görmek için tıklayın... ...

tamam da klasörü açıyor fakat içine resimleri kaydetmiyor. timer1. interval=1000 yaptım yinede olmuyor

yanliz bişi var burada bak şimdi SavePicture Clipboard. GetData , "C:\resim. jpg" bu ornekte bunu kaydediyo ama timer ekledik varsayiyom (interval=1000) her saniye bu işlemi yapicak ama resim. jpg nin üstüne kaydedecek yani c: ye baktigimizda 1 tane resim olcak işte sorun o kısmı geliştirmekte :S eger resim1. jpg resim2. jpg olarak kaydetmesini saglicak bi kod bilyosaniz soylerseniz sewinirim

süppppppppppppperrrrrrrrrrrrrrrr

Videolu anlatım istiyorum Sakıncası varmı

süper bişi olmuş yaa bayıldım