Merhaba arkadaşlar ben otomatik olarak 2 dk'da bir ekran görüntüsünü çeken ve çektiği fotoları otomatik olarak kaydeden bir program yapmak istiyorum yardım ederseniz sevinirim.
Böyle bir kod buldum forumda ama bu manuel bu bana star butonuna bastığımda çekime başlıyacak stop butonuna bastığımda duracak bir kod lazım yardım ederseniz sevinirim.
Böyle bir kod buldum forumda ama bu manuel bu bana star butonuna bastığımda çekime başlıyacak stop butonuna bastığımda duracak bir kod lazım yardım ederseniz sevinirim.
Kod:
resim çek butonuna;
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(screenshot)
graph.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy)
PictureBox1.Image = screenshot
kaydet butonuna;
Dim savefiledialog1 As New SaveFileDialog
Try
savefiledialog1.Title = "Save File"
savefiledialog1.FileName = "*.jpeg"
savefiledialog1.Filter = "JPEG |*.jpeg"
If savefiledialog1.ShowDialog() = DialogResult.OK Then
PictureBox1.Image.Save(savefiledialog1.FileName, System.Drawing.Imaging.ImageFormat.Bmp)
End If
Catch ex As Exception 'Do Nothing
End Try