Evet bir çok kişi bunu arıyor buyrun paylaşıyım 2 adet Buttons 1 adet Picture Box Ekliyorz Ve bu kodları yapıştırıyoruz: Kod: Public Class Form1 Private Sub Button1_Click Handles Button1. Click Dim bounds As Rectangle Dim screenshot As System. Drawing. Bitmap Dim graph As Graphics bounds = Screen. PrimaryScreen. Bounds screenshot = New System. Drawing. Bitmap(bounds. Width, bounds. Height, System. Drawing. Imaging. PixelFormat. Format32bppArgb) graph = Graphics. FromImage graph. CopyFromScreen(bounds. X, bounds. Y, 0, 0, bounds. Size, CopyPixelOperation. SourceCopy) PictureBox1. Image = screenshot End Sub Private Sub Button2_Click Handles Button2. Click Dim savefiledialog1 As New SaveFileDialog Try savefiledialog1. Title = "Save File" savefiledialog1. FileName = " . bmp" savefiledialog1. Filter = "Bitmap | . bmp" If savefiledialog1. ShowDialog = DialogResult. OK Then PictureBox1. Image. Save(savefiledialog1. FileName, System. Drawing. Imaging. ImageFormat. Bmp) End If Catch ex As Exception End Try End Sub End Class Keylogger yazanlar Stubuna bunu yerleştirirlerse olur

Bunun Gibi Başka Güzel Kodlar Yokmu Örnek Chipboard Log Mail Gönderme Vs.

Güzel, teşekkürler. Ufak bir ekleme olan yere boşluk olmadan s ender yazıyorsunuz. Kayıtlı